Como: Pesquisar para texto em documentos

Artigo
08/25/2010

Se aplica a
As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office. Tipo de Projeto Projetos de nível de documento Projetos de nível de aplicativo Versão do Microsoft Office Word 2003 Word 2007 For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office.

Tipo de Projeto

Projetos de nível de documento
Projetos de nível de aplicativo

Versão do Microsoft Office

Word 2003
Word 2007

For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

O objeto Find é um membro de Ambos a Selection e os objetos de Range e você pode usar um parPesquisarr texto em documentos do Microsoft Office Word.O comando Substituir é uma extensão do comando Localizar.Para obter informações sobre como substituir o texto em documentos, consulte Como: Pesquisarr e substituir texto em documentos.

Usando um objeto Seleção

Quando você usa um objeto de Selection para localizar texto, quaisquer critérios de Pesquisarr especificados são aplicados somente no texto selecionado no momento.Se o Selection for um ponto de inserção, o documento é pesquisado.Quando o item é encontrado correspondente a Pesquisar Critérios, ela será selecionada automaticamente.

É importante Anotação que os critérios de Find são cumulativos, o que significa que os critérios são adicionados aos critérios de Pesquisar anterior.Limpar formatação de pesquisas anteriores usando o método ClearFormatting antes para a pesquisa.

Para localizar texto usando um objeto Seleção

Atribuir uma Cadeia de Caracteres de Pesquisar a uma variável.

Dim findText As String = "find me"

object findText = "find me";

Limpar formatação de pesquisas anteriores.

Application.Selection.Find.ClearFormatting()

Application.Selection.Find.ClearFormatting();

Executar Pesquisarrr e exibir uma caixa de mensagem com os resultados.

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

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.");
}

O exemplo a seguir mostra Concluir método.

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

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.");
    } 
}

Usando um objeto Range

Usar um objeto Range permite que você Pesquisar para texto sem exibir nada na interface do usuário.O objeto de Find retorna True se texto for encontrado que corresponder a Pesquisar Critérios e False se ele não existir.Ele também redefine o objeto Range correspondem aos critérios de Pesquisarr se o texto for encontrado.

Para localizar texto usando um objeto Range

Definir um objeto Range que consiste o segundo parágrafo do documento.

O exemplo de código a seguir pode ser usado em uma personalização de nível de documento.
```
Dim rng As Word.Range = Me.Paragraphs(2).Range
```
```
Word.Range rng = this.Paragraphs[2].Range; 
```
O exemplo de código a seguir pode ser usado em um nível de aplicativo Adicionar - in.Este exemplo usa o documento ativo.
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(2).Range
```
```
Word.Document document = this.Application.ActiveDocument;
Word.Range rng = document.Paragraphs[2].Range;
```

Usando a propriedade Find do objeto de Range , primeiro desmarque quaisquer opções, de formatação existentes e, em seguida, Pesquisar para a Cadeia de Caracteres localizar me.

rng.Find.ClearFormatting()

If rng.Find.Execute(findText) Then

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)) 
{

Exibir os resultados dPesquisarrr em uma caixa de mensagem e Selecionar o Range para torná-la visível.
```
    MessageBox.Show("Text found.")
Else
    MessageBox.Show("Text not found.")
End If

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

rng.Select(); 
```
Se Pesquisarrr falhar, o segundo parágrafo será selecionado; Se tiver êxito, os critérios de Pesquisarr serão exibidos.

O exemplo a seguir mostra o códigConcluir para uma personalização de nível de documento.Para usar esse exemplo, executar o código de a classe ThisDocument no seu projeto.

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

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(); 
}

O exemplo a seguir mostra o códigConcluir para um aplicativo-nível Adicionar - in.Para usar esse exemplo, executar o código de a classe ThisAddIn no seu projeto.

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

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();
}