Forum Discussion
Regarding batch page delete for word
How do I batch delete entire pages containing a specific word or can I find multiple pages with specific word to extract the entire page? Thanks!
Jin_Quan1010 Use a macro containing the following code
Dim strFind As String strFind = InputBox("insert the word to be found") Selection.HomeKey wdStory With Selection.Find Do While .Execute(FindText:=strFind, Forward:=True, _ MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True ActiveDocument.Bookmarks("\page").Range.Delete Loop End With
