Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Utilice un objeto Find para recorrer un documento de Microsoft Office Word en busca de un texto, formato o estilo concreto, y utilice la propiedad Replacement para reemplazar cualquiera de los elementos encontrados.
Se aplica a: la información de este tema se aplica a los proyectos de nivel de documento y los proyectos de nivel de aplicación para Word 2007 y Word 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.
El código siguiente busca en la selección actual y reemplaza todas las apariciones de la cadena find me por la cadena Found. Para usar este ejemplo, ejecútelo desde la clase ThisDocument o ThisAddIn del proyecto.
Ejemplo
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
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);
}
Compilar el código
La clase Find tiene un método ClearFormatting y la clase Replacement también tiene su propio método ClearFormatting. Cuando se ejecuta una operación de búsqueda y sustitución, se debe utilizar el método ClearFormatting de ambos objetos. Si sólo se utiliza en el objeto Find, podría obtener resultados imprevistos en el proceso de reemplazar el texto.
Utilice el método Execute del objeto Find para reemplazar cada elemento encontrado. Para especificar los elementos que se tienen que reemplazar, use el parámetro Replace. Este parámetro puede tener uno de los siguientes valores WdReplace:
wdReplaceAll reemplaza todos los elementos encontrados.
wdReplaceNone no reemplaza ninguno de los elementos encontrados.
wdReplaceOne reemplaza el primer elemento encontrado.
Vea también
Tareas
Cómo: Buscar texto en documentos
Cómo: Establecer opciones de búsqueda en Word
Cómo: Recorrer los elementos encontrados en documentos
Cómo: Restaurar selecciones después de realizar búsquedas