Como localizar e substituir várias palavras ao mesmo tempo em um documento do Word?
O Word fornece uma função Localizar e Substituir para localizar todas as ocorrências de uma palavra ou frase e substituí-las por uma nova palavra ao mesmo tempo. Mas se você deseja localizar e substituir palavras diferentes ao mesmo tempo, essa função integrada não pode ajudar. Neste artigo, estamos falando sobre um método VBA para localizar e substituir várias palavras diferentes ao mesmo tempo em um documento do Word.
Encontre e substitua várias palavras ao mesmo tempo no Word com código VBA
Encontre e substitua facilmente várias palavras ao mesmo tempo no Word com um recurso incrível
Encontre e substitua várias palavras ao mesmo tempo no Word com código VBA
Faça o seguinte para localizar e substituir várias palavras ao mesmo tempo em um documento do Word.
1. Abra o documento do Word que deseja localizar e substitua várias palavras ao mesmo tempo e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a janela Módulo.
Código VBA: encontre e substitua várias palavras ao mesmo tempo no Word
Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
Dim xFind As String
Dim xReplace As String
Dim xFindArr, xReplaceArr
Dim I As Long
Application.ScreenUpdating = False
xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
xFindArr = Split(xFind, ",")
xReplaceArr = Split(xReplace, ",")
If UBound(xFindArr) <> UBound(xReplaceArr) Then
MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
Exit Sub
End If
For I = 0 To UBound(xFindArr)
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = xFindArr(I)
.Replacement.Text = xReplaceArr(I)
.Format = False
.MatchWholeWord = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
Application.ScreenUpdating = True
End Sub
3. aperte o F5 chave para executar o código.
4. No primeiro Kutools for Word caixa de diálogo, digite as várias palavras que você irá encontrar e substituir na caixa de texto, separe-as com vírgulas e clique no botão OK botão. Veja a imagem:
5. Na segunda Kutools for Word caixa de diálogo, digite as novas palavras que você substituirá (essas palavras também precisam ser separadas por vírgulas) e clique no botão OK botão.
Observação: Neste caso, todos "KTE" neste documento será substituído por "Novo", e "KTO" e “KTW” será substituído por "Teste" e "Terminar". Altere-os de acordo com suas necessidades.
Encontre e substitua facilmente várias palavras ao mesmo tempo no Word com um recurso incrível
A Localização e substituição em lote característica de Kutools for Word pode ajudar a localizar e substituir facilmente diferentes textos em um documento ou em vários documentos ao mesmo tempo.
Antes de aplicar este recurso, reserve alguns minutos para baixe e instale primeiro.
1. Inicie o aplicativo Microsoft Word e clique em Kutools Plus > Localização e substituição em lote.
2. No Localização e substituição em lote janela, configure como segue.
- 2.1 clique no botão> Adicionar Arquivo or adicionar pasta para adicionar um ou mais documentos nos quais você encontrará e substituirá várias palavras.
- 2.2 Clique no Adicionar linha botão para inserir os campos localizar e substituir. Se você deseja localizar e substituir três textos diferentes ao mesmo tempo, crie três linhas.
- 2.3 Em cada linha, insira as palavras existentes que você irá substituir por uma nova no Encontre coluna e, em seguida, insira as novas palavras na Substituir coluna.
- 2.4 Especifique o Tipo de pesquisa para cada linha.
- 2.5 no Encontre em coluna, escolha onde aplicar o localizar e substituir. Inclui Documento principal, cabeçalho e Rodapé nesta secção. Você pode escolher um deles, dois deles ou todos eles com base em suas necessidades.
- 2.6. Clique na Substituir botão para iniciar a operação. Veja a imagem:
Em seguida, as palavras específicas são substituídas em documentos selecionados ao mesmo tempo.
Dica: Você pode destacar o resultado com a cor de fundo, especificando certa cor no Destaques coluna por uma linha.
Se você quiser ter um teste gratuito (60 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...