Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿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

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 extraordinarias!

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

📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...

Edición de cuerpo: Buscar y reemplazar en lote en múltiples 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 / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...

Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón de Opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...

Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...

🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

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

✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!

Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint

📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Más de 100 herramientas para Word!