Cómo: Buscar texto en documentos

Actualización: noviembre 2007

Se aplica a
La información de este tema sólo se aplica a los proyectos de Visual Studio Tools para Office y versiones de Microsoft Office especificados. Tipo de proyecto Proyectos de nivel de documento Proyectos de nivel de aplicación Versión de Microsoft Office Word 2003 Word 2007 Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto.

El objeto Find es miembro de los objetos Selection y Range, y se puede utilizar cualquiera de ellos para buscar texto en los documentos de Microsoft Office Word. El comando que se utiliza para reemplazar es una extensión del comando de búsqueda. Para obtener información sobre cómo reemplazar texto en documentos, vea Cómo: Buscar y reemplazar texto en documentos.

Utilizar un objeto Selection

Cuando utiliza un objeto Selection para buscar texto, los criterios de búsqueda que especifique se aplicarán únicamente al texto que esté seleccionado. Si la Selection es un punto de inserción, se buscará en todo el documento. Cuando se encuentra el elemento que coincide con el criterio de búsqueda, se selecciona automáticamente.

Es importante darse cuenta de que los criterios de Find son acumulativos, es decir, cada criterio adicional se agrega a los anteriores. Puede borrar el formato de búsquedas anteriores mediante el método ClearFormatting antes de la búsqueda.

Para buscar texto mediante un objeto Selection

1. Asigne una cadena de búsqueda a una variable.

   Dim findText As String = "find me"
   

   object findText = "find me";
   

2. Borre el formato de las búsquedas anteriores.

   Application.Selection.Find.ClearFormatting()
   

   Application.Selection.Find.ClearFormatting();
   

3. Ejecute la búsqueda y muestre un cuadro de mensaje con los 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.");
   } 
   

En el siguiente ejemplo se muestra el método completo.

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

Utilizar un objeto Range

Usar un objeto Range permite buscar texto sin mostrar nada en la interfaz de usuario. El objeto Find devuelve True si se encuentra texto que coincide con los criterios de búsqueda y devuelve False en caso contrario. También redefine el objeto Range para que cumpla los criterios de búsqueda si se encuentra el texto.

Para buscar texto mediante un objeto Range

1. Defina un objeto Range que se componga del segundo párrafo del documento.

   El ejemplo de código siguiente se puede usar en una personalización de nivel de documento.

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

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

   El ejemplo de código siguiente se puede usar en un complemento de nivel de aplicación. En este ejemplo se usa el documento activo.

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

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

2. Utilice la propiedad Find del objeto Range, borrando antes cualquier opción de formato existente, y luego busque la cadena find 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)) 
   { 
   

3. Muestre el resultado de la búsqueda en un cuadro de mensaje y seleccione Range para hacerlo visible.

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

   Si la búsqueda no da resultados, se seleccionará el segundo párrafo; si obtiene resultados, se mostrarán los criterios de búsqueda.

En el ejemplo siguiente se muestra el código completo de una personalización de nivel de documento. Para usar este ejemplo, ejecute el código desde la clase ThisDocument del proyecto.

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

En el ejemplo siguiente se muestra el código completo de un complemento de nivel de aplicación. Para usar este ejemplo, ejecute el código desde la clase ThisAddIn del proyecto.

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

Vea también

Tareas

Cómo: Buscar y reemplazar texto en documentos

Cómo: Establecer opciones de búsqueda en Word

Cómo: Recorrer los elementos encontrados en documentos

Cómo: Definir y seleccionar rangos en documentos

Cómo: Restaurar selecciones después de realizar búsquedas

Conceptos

Descripción de los parámetros opcionales en las soluciones de Office