Skip to main content

¿Cómo cambiar la fuente y el tamaño de fuente en todos los cuadros de texto en un documento de Word?

Author: Siluvia Last Modified: 2025-08-06

Este artículo trata sobre cómo cambiar la fuente y el tamaño de fuente en los cuadros de texto del documento actual o en los documentos de una carpeta específica. Por favor, prueba los métodos VBA en el artículo.

Cambiar la fuente y el tamaño de fuente en los cuadros de texto del documento actual

Cambiar la fuente y el tamaño de fuente en los cuadros de texto de todos los documentos en una carpeta

Cambiar la fuente y el tamaño de fuente en los cuadros de texto del documento actual

Para los cuadros de texto en los que desee cambiar la fuente y el tamaño de fuente en el documento actual, por favor, aplique el siguiente código VBA para resolver el problema.

1. Presione las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. En la ventana de Microsoft Visual Basic for Applications, haga clic en Insertar > Módulo, y luego copie el siguiente código en la ventana del Módulo.

Código VBA: Cambiar la fuente y el tamaño de fuente en todos los cuadros de texto del documento actual

Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDoc As Document
    Set xDoc = ActiveDocument
    On Error Resume Next
    For Each xShape In xDoc.Shapes
        xShape.Select
        If xShape.GroupItems Is Nothing Then
            With xShape.TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
            GoTo LblExit
        End If
        For I = 1 To xShape.GroupItems.Count
            With xShape.GroupItems(I).TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
        Next
LblExit:
    Next
End Sub

Nota: En el código, “Arial” y “20” son la fuente y el tamaño de fuente especificados en mi caso. Puede cambiarlos según sus propias necesidades.

3. Presione la tecla F5 para ejecutar el código. Luego, la fuente y el tamaño de fuente de todos los textos en los cuadros de texto se cambiarán a la fuente y el tamaño de fuente especificados. Ver captura de pantalla:

Font and font size in the text boxes are changed to the specified ones

Cambiar la fuente y el tamaño de fuente en todos los cuadros de texto de todos los documentos en una carpeta

Para cambiar en masa la fuente y el tamaño de fuente en los cuadros de texto de varios documentos de Word, necesita aplicar el siguiente código VBA.

1. Por favor, reúna todos los documentos objetivo que contienen los cuadros de texto en los que cambiará la fuente y el tamaño de fuente en la misma carpeta.

2. En un documento de Word abierto, presione las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

3. En la ventana de Microsoft Visual Basic for Applications, haga clic en Insertar > Módulo, y luego copie el siguiente código en la ventana del Módulo.

Código VBA: Cambiar la fuente y el tamaño de fuente en los cuadros de texto de varios documentos

Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileStr As String
    On Error Resume Next
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolder = xDlg.SelectedItems(1) + "\"
        xFileStr = Dir(xFolder & "*.doc", vbNormal)
        While xFileStr <> ""
            Documents.Open xFolder & xFileStr
            For Each xShape In ActiveDocument.Shapes
                xShape.Select
                If xShape.GroupItems Is Nothing Then
                    With xShape.TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                    GoTo LblExit
                End If
                For I = 1 To xShape.GroupItems.Count
                    With xShape.GroupItems(I).TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                Next
LblExit:
            Next
            ActiveDocument.Save
            ActiveDocument.Close
            xFileStr = Dir()
       Wend
    End If
End Sub

4. Presione la tecla F5 para ejecutar el código. En la ventana Examinar que aparece, seleccione la carpeta (que contiene los documentos en los que cambiará la fuente y el tamaño de fuente en los cuadros de texto) y haga clic en el botón Aceptar.

Browse window

Luego, la fuente y el tamaño de fuente de todos los cuadros de texto de los documentos en la carpeta seleccionada se cambiarán a la fuente y el tamaño de fuente especificados.

Las mejores herramientas de productividad para Office

Kutools para Word: ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...

📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

✏ Edición de Contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, ve al grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Localiza páginas específicas / tablas / formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier ubicación / inserta automáticamente texto repetitivo / alterna entre ventanas de documento /11 herramientas de conversión...

🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word: más de 100 herramientas para Word

Descarga gratuita Comprar ahora Más información sobre Kutools