Find several words in document, copy paragraph and create new document

macropod · #1 01-31-2019, 06:06 AM

Quote:

Originally Posted by coolio2341

The script below will search for "1945" and will copy the paragraph that contains "1945" and insert into new document. How to make do the same but for several texts example 1945, 1946, 1947 etc

With your original code, if it's a series of such years, use:
.Text = "<194[5-7]>"
with:
.MatchWildcards = True
and delete:
.MatchCase = False
.MatchWholeWord = False

.MatchSoundsLike = False
.MatchAllWordForms = False
This will ensure your output is in the same order as in the original document.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and highlight multiple words in MS Word document	AtaLoss	Word VBA	37	09-22-2021 12:04 PM
Macro to search for a particular word, copy the entire paragraph to a new document	Productivity	Word VBA	2	10-25-2019 06:40 AM
Copy text to new document based on paragraph numbering	mike.mm	Word VBA	7	11-22-2016 06:14 AM
How to select and copy to clipboard an entire document except for a paragraph and keep formatting	TD_123	Word VBA	7	06-16-2015 03:30 PM
Find and highlight multiple words in a document	flatop	Word VBA	3	04-16-2014 10:29 PM