Skip to main content

Como alterar a fonte e o tamanho da fonte em todas as caixas de texto no Documento do Word?

Author: Siluvia Last Modified: 2025-08-06

Este artigo discute como alterar a fonte e o tamanho da fonte em caixas de texto no documento atual ou em documentos em uma pasta específica. Por favor, experimente os métodos VBA no artigo.

Alterar a fonte e o tamanho da fonte em caixas de texto no documento atual

Alterar a fonte e o tamanho da fonte em caixas de texto de todos os documentos em uma pasta

Alterar a fonte e o tamanho da fonte em caixas de texto no documento atual

Para as caixas de texto que você deseja alterar a fonte e o tamanho da fonte no documento atual, por favor, aplique o código VBA abaixo para resolver o problema.

1. Pressione 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 seguinte código na janela Módulo.

Código VBA: Alterar a fonte e o tamanho da fonte em todas as caixas de texto no 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” são a fonte e o tamanho da fonte especificados no meu caso. Você pode alterá-los conforme suas próprias necessidades.

3. Pressione a tecla F5 para executar o código. Em seguida, a fonte e o tamanho da fonte de todos os textos nas caixas de texto serão alterados para a fonte e o tamanho especificados. Veja a captura de tela:

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

Alterar a fonte e o tamanho da fonte em todas as caixas de texto de todos os documentos em uma pasta

Para alterar a fonte e o tamanho da fonte em massa em várias caixas de texto em múltiplos Documentos do Word, você precisa aplicar o código VBA abaixo.

1. Reúna todos os documentos-alvo que contêm caixas de texto que você deseja alterar a fonte e o tamanho da fonte na mesma pasta.

2. Em um Documento do Word aberto, pressione 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 seguinte código na janela Módulo.

Código VBA: Alterar a fonte e o tamanho da fonte em caixas 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. Pressione a tecla F5 para executar o código. Na janela Navegar que se abre, selecione a pasta (contém os documentos nos quais você alterará a fonte e o tamanho da fonte nas caixas de texto) e clique no botão OK.

Browse window

Em seguida, a fonte e o tamanho da fonte de todas as caixas de texto dos documentos na pasta selecionada serão alterados para a fonte e o tamanho especificados.

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio do Documento: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Livre-se de Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools