Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End) For Each aWord In myRange.Words If aWord.Text = "Answer " Then aWord.Delete Next aWord
Sub DeleteAnswers() Dim oRng As Word.Range Set oRng = ActiveDocument.Range With oRng.Find .Text = "Answer" While .Execute With oRng.Paragraphs(1).Range If .Characters(1) = "Answer" Then .Delete End With Wend End With End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)