View Single Post
 
Old 10-14-2021, 09:49 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,187
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

If you want a demo file you should create it and post it here. Then I can make the macro work according to what you actually have rather than what I think you might have. I presume you don't want code for a single input line but that is all you have provided.

The code I posted assumes the text you posted in https://www.msofficeforums.com/163102-post1.html is the first paragraph of a Word document. The code takes just this one paragraph's text as the input and converts it into an array with a new item every time the string contains a ". Then it grabs the text from the positions in that array that align with your required data values. These array positions are the numbers you see in the sOutput line.

In my code, the output appears in your vba Immediate Window. If you want to do something else with it then you need to explain what exactly that is. The three disabled lines in the code (the lines with the ' at the start of the line) output each of the array positions to the Immediate Window so you can work out what numbers align with the data you require.
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote