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

Este artículo trata sobre cómo cambiar la fuente y Tamaño de fuente en Cuadro de texto en Documento Actual o en documentos de una carpeta especificada. Pruebe los métodos VBA que se incluyen en el artículo.

Cambiar la fuente y Tamaño de fuente en Cuadro de texto en Documento Actual

Cambiar la fuente y Tamaño de fuente en Cuadro de texto de todos los documentos de una carpeta

---

Cambiar la fuente y Tamaño de fuente en Cuadro de texto en Documento Actual

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

1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y, a continuación, copie el siguiente código en la ventana del módulo.

Código VBA: Cambiar la fuente y Tamaño de fuente en todos los Cuadro de texto de 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 modificarlos según sus necesidades.

3. Pulse la tecla F5 para ejecutar el código. A continuación, la fuente y el tamaño de fuente de todos los textos del cuadro de texto cambiarán a los valores especificados. Vea la captura de pantalla:

---

Cambiar la fuente y Tamaño de fuente en todos los Cuadro de texto de todos los documentos de una carpeta

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

1. Reúna en una misma carpeta todos los documentos de destino que contengan cuadros de texto cuya fuente y tamaño de fuente desee cambiar.

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

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y, a continuación, copie el siguiente código en la ventana del módulo.

Código VBA: Cambiar la fuente y Tamaño de fuente en Cuadro 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. Pulse la tecla F5 para ejecutar el código. En la ventana Examinar que se abre, seleccione la carpeta (que contiene los documentos en los que va a cambiar la fuente y el tamaño de fuente en el cuadro de texto) y haga clic en el botón Aceptar.

Entonces, la fuente y el tamaño de fuente de todos los cuadros de texto de los documentos de la carpeta seleccionada se cambian a la fuente y el tamaño de fuente especificados.