Como alterar o tipo e o tamanho da letra em todas as caixas de texto de um documento do Word?

Este artigo explica como alterar o tipo e o tamanho da letra numa Caixa de Texto, quer no Documento Atual, quer em todos os documentos de uma pasta especificada. Experimente os métodos VBA apresentados!

Alterar o tipo de letra e Tamanho da fonte em Caixa de Texto em Documento Atual

Alterar o tipo de letra e Tamanho da fonte em Caixa de Texto de todos os documentos numa pasta

---

Alterar o tipo de letra e Tamanho da fonte em Caixa de Texto em Documento Atual

Para as Caixas de Texto em que pretende alterar o tipo e o tamanho da letra no Documento Ativo, aplique o seguinte código VBA para resolver o problema.

1. Prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, em seguida, copie o código seguinte para a janela do Módulo.

Código VBA: Alterar o tipo de letra e Tamanho da fonte em todos os Caixa de Texto em Documento Atual

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: No código, «Arial» e «20» correspondem, respetivamente, ao tipo de letra e ao tamanho da fonte definidos no meu caso. Pode ajustá-los conforme as suas necessidades.

3. Prima a tecla F5 para executar o código. Em seguida, o tipo de letra e o tamanho da fonte de todos os textos na caixa de texto são alterados para o tipo de letra e o tamanho da fonte especificados. Veja a imagem:

---

Alterar o tipo de letra e Tamanho da fonte em todos os Caixa de Texto de todos os documentos numa pasta

Para alterar em massa o tipo e o tamanho da fonte das caixas de texto em vários documentos do Word, aplique o seguinte código VBA.

1. Reúna todos os documentos-alvo que contenham as Caixas de Texto cujo tipo e tamanho da letra pretende alterar numa mesma pasta.

2. Num documento do Word aberto, prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, em seguida, copie o código seguinte para a janela do Módulo.

Código VBA: Alterar o tipo de letra e Tamanho da fonte em Caixa de Texto de vários 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. Prima a tecla F5 para executar o código. Na janela Procurar que se abre, selecione a pasta (que contém os documentos cujo tipo de letra e tamanho da fonte em caixa de texto pretende alterar) e clique no botão OK.

Em seguida, o tipo e o tamanho da fonte de todas as caixas de texto dos documentos na pasta selecionada são alterados para os valores especificados.