Procurar e substituir texto em documentos programaticamente

O Find objeto é um membro dos Selection objetos e e Range você pode usar qualquer um deles para procurar texto em documentos do Microsoft Office Word. O comando replace é uma extensão do comando find.

Use um objeto para percorrer um documento do Microsoft Office Word e procurar texto, formatação ou estilo específico e use a Replacement propriedade para substituir qualquer um Find dos itens encontrados.

Aplica-se a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de suplemento VSTO para Word. Para obter mais informações, consulte Recursos disponíveis por aplicativo e tipo de projeto do Office.

Usar um objeto Selection

Quando você usa um Selection objeto para localizar texto, todos os critérios de pesquisa especificados são aplicados somente ao texto selecionado no momento. Se o for um ponto de inserção, o Selection documento será pesquisado. Quando o item é encontrado que corresponde aos critérios de pesquisa, ele é selecionado automaticamente.

É importante notar que os critérios são cumulativos, o que significa que os Find critérios são adicionados aos critérios de pesquisa anteriores. Limpe a formatação de pesquisas anteriores usando o ClearFormatting método anterior à pesquisa.

Para localizar texto usando um objeto Selection

1. Atribua uma cadeia de caracteres de pesquisa a uma variável.

   C#

   object findText = "find me";
   

   VB

   Dim findText As String = "find me"
   

2. Limpar a formatação de pesquisas anteriores.

   C#

   Application.Selection.Find.ClearFormatting();
   

   VB

   Application.Selection.Find.ClearFormatting()
   

3. Execute a pesquisa e exiba uma caixa de mensagem com os resultados.

   C#

   if (Application.Selection.Find.Execute(ref findText,
       ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
       ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, 
       ref missing, ref missing)) 
   { 
       MessageBox.Show("Text found.");
   } 
   else
   { 
       MessageBox.Show("The text could not be located.");
   }
   

   VB

   If Application.Selection.Find.Execute(findText) = True Then
       MessageBox.Show("Text found.")
   Else
       MessageBox.Show("The text could not be located.")
   End If
   

   O exemplo a seguir mostra todo o método .

   C#

   private void SelectionFind() 
   { 
       object findText = "find me";
   
       Application.Selection.Find.ClearFormatting();
   
       if (Application.Selection.Find.Execute(ref findText,
           ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing)) 
       { 
           MessageBox.Show("Text found.");
       } 
       else
       { 
           MessageBox.Show("The text could not be located.");
       } 
   }
   

   VB

   Private Sub SelectionFind()
       Dim findText As String = "find me"
   
       Application.Selection.Find.ClearFormatting()
   
       If Application.Selection.Find.Execute(findText) = True Then
           MessageBox.Show("Text found.")
       Else
           MessageBox.Show("The text could not be located.")
       End If
   End Sub
   

---

Usar um objeto Range

O uso de um Range objeto permite que você pesquise texto sem exibir nada na interface do usuário. O Find objeto retornará True se for encontrado um texto que corresponda aos critérios de pesquisa e False se não corresponder. Ele também redefine o objeto para corresponder aos critérios de pesquisa se o Range texto for encontrado.

Para localizar texto usando um objeto Range

1. Defina um Range objeto que consiste no segundo parágrafo do documento.

   O exemplo de código a seguir pode ser usado em uma personalização em nível de documento.

   C#

   Word.Range rng = this.Paragraphs[2].Range;
   

   VB

   Dim rng As Word.Range = Me.Paragraphs(2).Range
   

   O exemplo de código a seguir pode ser usado em um suplemento VSTO. Este exemplo usa o documento ativo.

   C#

   Word.Document document = this.Application.ActiveDocument;
   Word.Range rng = document.Paragraphs[2].Range;
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(2).Range
   

2. Usando a Find propriedade do objeto, primeiro limpe todas as Range opções de formatação existentes e, em seguida, procure a cadeia de caracteres Localizar-me.

   C#

   rng.Find.ClearFormatting();
   
   if (rng.Find.Execute(ref findText,
       ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
       ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, 
       ref missing, ref missing)) 
   {
   

   VB

   rng.Find.ClearFormatting()
   
   If rng.Find.Execute(findText) Then
   

3. Exiba os resultados da pesquisa em uma caixa de mensagem e selecione a Range para torná-la visível.

   C#

       MessageBox.Show("Text found.");
   } 
   else 
   { 
       MessageBox.Show("Text not found.");
   } 
   
   rng.Select();
   

   VB

       MessageBox.Show("Text found.")
   Else
       MessageBox.Show("Text not found.")
   End If
   
   rng.Select()
   

   Se a pesquisa falhar, o segundo parágrafo será selecionado; Se for bem-sucedido, os critérios de pesquisa serão exibidos.

   O exemplo a seguir mostra o código completo para uma personalização em nível de documento. Para usar este exemplo, execute o ThisDocument código da classe em seu projeto.

   C#

   private void RangeFind() 
   { 
       object findText = "find me";
   
       Word.Range rng = this.Paragraphs[2].Range; 
   
       rng.Find.ClearFormatting();
   
       if (rng.Find.Execute(ref findText,
           ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing)) 
       { 
           MessageBox.Show("Text found.");
       } 
       else 
       { 
           MessageBox.Show("Text not found.");
       } 
   
       rng.Select(); 
   }
   

   VB

   Private Sub RangeFind()
       Dim findText As String = "find me"
   
       Dim rng As Word.Range = Me.Paragraphs(2).Range
   
       rng.Find.ClearFormatting()
   
       If rng.Find.Execute(findText) Then
           MessageBox.Show("Text found.")
       Else
           MessageBox.Show("Text not found.")
       End If
   
       rng.Select()
   End Sub
   

---

O exemplo a seguir mostra o código completo de um suplemento VSTO. Para usar este exemplo, execute o ThisAddIn código da classe em seu projeto.

C#

private void RangeFind()
{
    object findText = "find me";

    Word.Document document = this.Application.ActiveDocument;
    Word.Range rng = document.Paragraphs[2].Range;

    rng.Find.ClearFormatting();

    if (rng.Find.Execute(ref findText,
        ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
        ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
        ref missing, ref missing))
    {
        MessageBox.Show("Text found.");
    }
    else
    {
        MessageBox.Show("Text not found.");
    }

    rng.Select();
}

VB

Private Sub RangeFind()
    Dim findText As Object = "find me"

    Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(2).Range

    rng.Find.ClearFormatting()

    If rng.Find.Execute(findText) Then
        MessageBox.Show("Text found.")
    Else
        MessageBox.Show("Text not found.")
    End If

    rng.Select()
End Sub

Pesquisar e substituir texto em documentos

O código a seguir pesquisa a seleção atual e substitui todas as ocorrências da cadeia de caracteres Find me pela cadeia de caracteres Found.

Para pesquisar e substituir texto em documentos

1. Adicione o seguinte código de exemplo à ThisDocument classe ou ThisAddIn em seu projeto.

   C#

   private void SearchReplace()
   {
       Word.Find findObject = Application.Selection.Find;
       findObject.ClearFormatting();
       findObject.Text = "find me";
       findObject.Replacement.ClearFormatting();
       findObject.Replacement.Text = "Found";
   
       object replaceAll = Word.WdReplace.wdReplaceAll;
       findObject.Execute(ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref replaceAll, ref missing, ref missing, ref missing, ref missing);
   }
   

   VB

   Private Sub SearchReplace()
       Dim FindObject As Word.Find = Application.Selection.Find
       With FindObject
           .ClearFormatting()
           .Text = "find me"
           .Replacement.ClearFormatting()
           .Replacement.Text = "Found"
           .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
   End Sub
   

   A Find classe tem um ClearFormatting método, e a Replacement classe também tem seu próprio ClearFormatting método. Quando você estiver executando operações de localização e substituição, você deve usar o método ClearFormatting de ambos os objetos. Se você usá-lo apenas no objeto, poderá obter resultados imprevistos no Find texto de substituição.

2. Use o ExecuteFind método do objeto para substituir cada item encontrado. Para especificar quais itens substituir, use o parâmetro Replace . Esse parâmetro pode usar um dos valores de WdReplace a seguir:

   • wdReplaceAll Substitui todos os itens encontrados.

   • wdReplaceNone não substitui nenhum dos itens encontrados.

   • wdReplaceOne substitui o primeiro item encontrado.

Conteúdo relacionado

• Como: definir programaticamente opções de pesquisa no Word
• Como: Executar um loop programaticamente por itens encontrados em documentos
• Como: definir e selecionar programaticamente intervalos em documentos
• Como: restaurar programaticamente seleções após pesquisas
• Parâmetros opcionais em soluções do Office