Como alterar a fonte e o tamanho da fonte em todas as caixas de texto no Documento do Word?
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 SubNota: 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:
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 Sub4. 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.
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 Office
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 (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...
📘 Domínio de Documentos: 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 Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...
🧹 Limpeza Sem Esforço: Elimine 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 Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...
⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...
Melhores Ferramentas de Produtividade para Office
Kutools para Word – 100+ Ferramentas para Word
- 🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Conteúdo: Localizar e Substituir em Lote / Redimensionar Todas as Imagens
- 🧹 Limpeza Sem Esforço: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Separadores de Milhar / Inserir Caixas de Seleção / Criar QR Codes