Do While WordDoc.Content.Find.Execute(FindText:="%NP6%", Wrap:=Word.WdFindWrap.wdFindContinue) = True WordApp.Selection.Range.Bookmarks("\line").Range.Delete() Loop
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)