4 métodos úteis para localizar e substituir texto em parte de um documento do Word

Neste documento, temos o prazer de mostrar 4 métodos úteis para localizar e substituir texto em parte de um documento do Word.

Normalmente, quando fazemos o “Localizar e Substituir” no Word, o efeito é global. Portanto, hoje queremos oferecer a você maneiras de localizar e substituir texto em parte de um documento, como em uma seleção, uma única página ou uma seção específica.

Método 1: Utilizar o recurso “Localizar e substituir” em uma seleção

1. Em primeiro lugar, selecione tarobter texto.
2. Em segundo lugar, pressione “Ctrl + H” para abrir a caixa “Localizar e substituir”.
3. Em seguida, insira o texto de localização na caixa de texto “Localizar o quê” e o texto de substituição na caixa “Substituir por”.
4. Em seguida, clique no botão “Substituir tudo”.
5. Uma caixa aparecerá, perguntando se você deseja continuar fazendo a pesquisa no restante do documento. Certifique-se de clicar em "Não".

Método 2: Executar códigos VBA para localizar e substituir texto em uma seleção

1. Em primeiro lugar, selecione um intervalo de conteúdo do documento.
2. Em seguida, acione o editor VBA pressionando "Alt + F11".
3. Em seguida, clique em “Normal” e clique em “Inserir”.
4. Escolha “Módulo” no menu.
5. Agora abra o módulo com um clique duplo.
6. Copie e cole os seguintes códigos lá:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. Em seguida, pressione "F5".
8. Haverá duas caixas de entrada solicitando. Insira o texto de localização e substituição, respectivamente, em duas caixas.
9. Clique em “OK” para prosseguir.

Você deve obter exatamente o mesmo efeito do método 1.

Método 3: Executar macro do Word para localizar e substituir texto em uma página designada

A macro a seguir permite localizar e substituir o texto em uma página específica.

1. Primeiro, instale e execute uma macro seguindo as etapas do método 2.
2. Em seguida, substitua essa macro por esta:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Depois de executar esses códigos, haverá 3 caixas de entrada. Insira um número de página na primeira caixa, insira o texto da descoberta na segunda e digite o texto de substituição na terceira.
4. Lembre-se de clicar em “OK” para prosseguir.

Método 4: Executar macro do Word para localizar e substituir texto em uma seção

1. Da mesma forma, execute as mesmas etapas no método 2 para instalar e executar uma macro.
2. Só que desta vez use esta macro:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Lembre-se de inserir o número da seção na primeira caixa. E insira a localização e substituição de textos nas duas caixas a seguir.
4. Ainda assim, clique em “OK” para prosseguir.

Lidar com problemas do Word

Pode haver muitos tipos de problemas ocorrendo em seu documento. Alguns são fáceis de manusear, enquanto outros são mais graves, o que pode levar a Corrupção de palavras. Nesse cenário, você deve obter uma ferramenta de reparo o mais rápido possível para resgatar seus dados.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Correção do Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com