Finden Sie eine Zeichenkette in einem Dokument und löschen Sie alles, nachdem es

Question

Ich mag eine Zeichenfolge in einem Word-Dokument zu finden und alles, nachdem es löschen.

Was ist der beste Weg, dies zu tun, ohne das Selection Objekt mit?

Answer 1

Verwenden Sie stattdessen ein Range Objekt. Direkt aus der Word 2003-Hilfe:

  

Wenn Sie noch auf die Suche Objekt bekommen   vom Range-Objekt, wobei die Auswahl   nicht geändert wird, wenn Text die passende   finden Kriterien gefunden wird, aber der Range   Objekt wird neu definiert. Folgende   Beispiel sucht das erste Vorkommen   des Wortes „Blau“ in der aktiven   dokumentieren. Wenn „blau“ wird in dem gefunden   Dokument, myRange neu definiert

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", _
    Forward:=True
If myRange.Find.Found = True Then 

Sie nun die SetRange Methode dieses Range Objekt verwenden, den Anfang des Bereichs sein, das nächste Zeichen nach dem Ende der Zeichenfolge, die Sie gesucht zu machen und das Ende des Bereichs sein, das Ende des Dokuments machen:

myRange.SetRange (myRange.End + 1), ActiveDocument.Content.End

(TODO: Sie müssen mit dem Fall befassen, wenn die Zeichenfolge das letzte, was in dem Dokument sind)

den Inhalt löschen:

myRange.Delete