Como: Procurar e substituir texto em documentos

Artigo
08/08/2011

Usar um Find para executar loop em um documento do Word de Microsoft Office e procurar por texto específico, a formatação ou o estilo de objeto e, em seguida, use o Replacement propriedade para substituir qualquer um dos itens encontrados.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Word 2007 e Word 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

O código a seguir procura a seleção atual e substitui todas as ocorrências da seqüência de caracteres Localizar me com a seqüência de caracteres encontrado. Para usar esse exemplo, executá-lo do ThisDocument ou ThisAddIn classe no projeto.

Exemplo

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

Compilando o código

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

Use o Execute método da Find o objeto para substituir cada item encontrado. Para especificar quais itens para substituir, use o Replace parâmetro. Esse parâmetro pode ser uma das seguintes WdReplace valores: