Extract Certain Text from Word into Excel Using VBA

Hi,
i'm new to VBA and i'm learning now.
My requirement is to match the word PROC or PRIC from a word document and move the next strings to excel under corresponding headers.
for (e.g) my word document (sample.docx) contains
PROC-1801
PROC-1901
PRIC-1801
PRIC-1901

my excel (sample.xlsm) contains the heading
PROC PRIC

code need to check the word PROC and move the text 1801, 1901 to excel under the heading PROC like below
PROC
1801
1901

Have gone through some of the online site and come up with the below code. this code doesn't give any error but the results were not coming in sample1 spreadsheet.

Code is given below:

Please Login or Register  to view this content.

It's impossible to tell for sure what's going on from your code, because you're using Selections & Moves in Word. Furthermore, having lines like:
Tble1 = 5
followed by:
If Tble1 = 0 Then
and:
Tble1 = 2
followed by:
If Tble1 = 0 Then
are pointless, since the If tests must always return False. Try something along the lines of the code below:

Please Login or Register  to view this content.

Cross-posted at: http://www.vbaexpress.com/forum/show...xcel-Using-VBA
Please read Excel Forum's Cross-Posting policy in rule 8: http://www.excelforum.com/forum-rule...rum-rules.html

Admin note: I have tried to add tags to post #1, but the text disappears on edit

Originally Posted by sandy666

Hi Ford,
Copy whole text from post, edit post, paste text from the clipboard, add tags

I thought about doing that, but figured if members saw that an admin or mod had tried, it would be OK - I have added the tags