Note: The other languages of the website are Google-translated. Back to English

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.

NOTA 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

O 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 Procure 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.


Ferramentas de produtividade de palavras recomendadas

 

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
Comentários (21)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
Este comentário foi feito pelo moderador no site
isso funcionará no Office Excel 365
Este comentário foi feito pelo moderador no site
Alguma maneira de tornar este case sensitive?
Este comentário foi feito pelo moderador no site
Oi, Isso funciona bem com palavras em inglês. Agora estou fazendo um documento onde traduzo do inglês para o guzerate. Então, quando eu aplico isso, (Encontrar palavras em inglês) e (Substituir por palavras em Gujarati), ele muda, mas aparece como "???". Não mostra a palavra Gujarati, mas apenas pontos de interrogação? Mais alguma ajuda? Por favor.
Este comentário foi feito pelo moderador no site
Olá Shailesh, enfrentando o mesmo problema. Você encontrou uma solução para isso. Também estou tentando descobrir como mudar de chinês para inglês.
Este comentário foi feito pelo moderador no site
Como encontrar e selecionar várias palavras ao mesmo tempo
Este comentário foi feito pelo moderador no site
Oi,
Depois de executar o código, uma caixa de diálogo Kutools for Excel aparecerá, digite as palavras-chave que você encontrará e separe-as com vírgulas.
Este comentário foi feito pelo moderador no site
Oi, como essa macro pode ser revisada para receber mais palavras-chave? Tenho cerca de 170 palavras que gostaria de encontrar e substituir
Este comentário foi feito pelo moderador no site
Olá JM,
Depois de executar o código, uma caixa de diálogo Kutools for Excel aparecerá, digite as palavras-chave que você encontrará e separe-as com vírgulas.
Este comentário foi feito pelo moderador no site
Oi! Primeiramente, parabéns pelo seu trabalho: esta macro é muito útil e interessante! Eu gostaria, no entanto, que você me ajudasse com uma coisa. Sou revisor e gostaria que as substituições fossem destacadas na cor verde ou vermelha. Como posso fazer isso? Existe uma linha de código que eu poderia usar?
Este comentário foi feito pelo moderador no site
Oi, O recurso Localizar e substituir em lote do Kutools for Word pode resolver perfeitamente seu problema, você pode tentar.
Este comentário foi feito pelo moderador no site
Depois de clicar em Substituir, ele vai para a visualização e não faz mais nada.
Este comentário foi feito pelo moderador no site
Oi Ajs, Todas as palavras necessárias foram substituídas com sucesso de uma só vez depois de pressionar o botão Substituir. Ele vai para a guia Visualizar para ajudá-lo a saber quantas palavras foram substituídas com sucesso. Depois disso, feche a caixa de diálogo.
Este comentário foi feito pelo moderador no site
E se eu estiver tentando substituir vírgulas?
Este comentário foi feito pelo moderador no site
O código VBA não pode ajudar a substituir vírgulas. Você pode aplicar Kutools para conseguir.
Este comentário foi feito pelo moderador no site
Na primeira instrução (Localizar e substituir várias palavras ao mesmo tempo no Word com código VBA), ele não encontra instâncias em que a palavra a ser substituída cai no meio de uma palavra (por exemplo, .com após o nome de um site) . Isso pode ser modificado para fazer isso?
Este comentário foi feito pelo moderador no site
Obrigado pelo projeto, você poderia fazê-lo da maneira que também podemos substituir letras em palavras. Por exemplo, se eu quiser alterar o dólar como DoLLar, ele não funciona.
Este comentário foi feito pelo moderador no site
THAY THế RấT NHIềU CụM Từ BằNG RấT NHIềU CụM Từ KHÁC (NHậP TừNG CụM Từ RấT MấT THời GIAN) BằNG CÁCHT 2 FILT MấT TRONÇÃO T TRONT 1) cụm từ đích được không? rất cám ơn bạn.
Este comentário foi feito pelo moderador no site
Olá Nguyễn Phúc Lâm,
Eu recomendo que você aplique o recurso Localizar e substituir em lote do Kutools for Word (o segundo método neste post) para resolver esse problema.
Na caixa de diálogo Localizar e substituir, após criar as duas colunas necessárias, você pode salvar as configurações atuais como um cenário para uso futuro.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Este comentário foi feito pelo moderador no site
Cristal de Cám ơn, Các Này Có thể Áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000 .. cụ th thì thì rấ r) Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
Este comentário foi feito pelo moderador no site
Olá Nguyễn Phúc Lâm,
Temporariamente incapaz de lidar com esse problema com o código VBA, pois é um pouco complexo. Esse recurso será considerado para atualização na próxima versão. Desculpe pela inconveniência.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL