Gewusst wie: Suchen und Ersetzen von Text in Dokumenten

Mithilfe eines Find-Objekts können Sie ein Microsoft Office Word-Dokument durchlaufen und nach einem bestimmten Text oder eine bestimmten Formatierung oder einen Stil suchen. Mithilfe der Replacement-Eigenschaft können Sie alle gefundenen Elemente ersetzen.

Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Dokument- und auf Anwendungsebene für Word 2007 und Word 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.

Im folgenden Code wird die aktuelle Auswahl durchsucht. Dabei werden alle Vorkommen der Zeichenfolge find me durch die Zeichenfolge Found ersetzt. Wenn Sie dieses Beispiel verwenden möchten, führen Sie es von der ThisDocument-Klasse oder der ThisAddIn-Klasse im Projekt aus.

Beispiel

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

Kompilieren des Codes

Die Find-Klasse verfügt über eine ClearFormatting-Methode. Die Replacement-Klasse verfügt ebenfalls über eine eigene ClearFormatting-Methode. Wenn Sie einen Such- und Ersetzungsvorgang ausführen, müssen Sie die ClearFormatting-Methode beider Objekte verwenden. Wenn Sie diese Methode nur beim Find-Objekt anwenden, erhalten Sie im Ersatztext möglicherweise unerwartete Ergebnisse.

Ersetzen Sie mithilfe der Execute-Methode des Find-Objekts jedes gefundene Element. Geben Sie die zu ersetzenden Elemente mit dem Replace-Parameter an. Dieser Parameter kann einen der folgenden WdReplace-Werte aufweisen:

• wdReplaceAll ersetzt alle gefundenen Elemente.

• wdReplaceNone ersetzt keines der gefundenen Elemente.

• wdReplaceOne ersetzt das erste der gefundenen Elemente.

Siehe auch

Aufgaben

Gewusst wie: Suchen nach Text in Dokumenten

Gewusst wie: Festlegen von Suchoptionen in Word

Gewusst wie: Durchlaufen gefundener Elemente in Dokumenten

Gewusst wie: Wiederherstellen der Auswahl nach Suchvorgängen

Konzepte

Optionale Parameter in Office-Lösungen