Word table

[nigel1]

Hello,

I'm trying to get VBA in Excel open a Word Doc and after finding a specific word to go to the 1st table below that word and copy specific cells from it back to Excel.

For example, if the specific word to be found in the Word Document is "Apples", the Excel VBA should target the 1st table below that specific word (which can be the 2nd table in the Word Document) and get some cells from it back to Excel. So I'm guessing that something like a complete search in the entire Word Document should be done to look for "Apples", then create a range to count the tables from that point until the end of the document. Once this is done some cells from the first table after the searched word was found should be copied into Excel.

Below is what I've tried so far, any suggestions would be much appreciated ! Cheers !

Sub Test()

Dim ws As Worksheet
Dim objWord AsObject
Dim i AsInteger
Dim strValue AsString
Dim wdApp AsNew Word.Application, wdDoc As Word.Document, wdTbl As
Word.Table
Set objWord = CreateObject("Word.Application")

objWord.Visible =True
objWord.Documents.Open "C:\Users\Nigel\Desktop\Test2.docx"

objWord.Activate


With objWord.Selection.Find
.Text ="Test"
If objWord.Selection.Find.Text >0Then
MsgBox "Found"

TableStart = Selection.Tables(1).Range.Start
Selection.GoTo wdGoToTable, wdGoToNext,1
If Selection.Tables(1).Range.Start = TableStart ThenExitSub

Selection.GoToNext wdGoToTable = a
Dim x AsLong, y AsLong
x =8: y =1
With.Tables(a)
For rowNb =1To1
For colNb =2To2
Cells(x, y)= WorksheetFunction.Clean(.Cell(rowNb, colNb).Range.Text)
y = y +1
Next colNb
y =1
x = x +1
Next rowNb
EndWith
x = x +2



Else
MsgBox "Didn't"

EndIf
EndWith

EndSub

[macropod]

Cross-posted at: https://stackoverflow.com/questions/57959335/specific-word-table-into-excel
Please read VBA Express' policy on Cross-Posting in Rule 3: http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3

[nigel1]

Hello,
My sincere apologies, I posted it firstly on Stack but since nobody helped, I had to come here. I deleted the Stack post. I would really be more than grateful if someone could help here. Many thanks !

[Aussiebear]

Your request to have this thread deleted has been considered and declined. Whether members here wish to assist you ( given that you have been noted to have cross posted) will be entirely at their discretion. You simply need to accept responsibility for your actions and if others think you are contrite enough then assistance may be offered.

[nigel1]

Your request to have this thread deleted has been considered and declined. Whether members here wish to assist you ( given that you have been noted to have cross posted) will be entirely at their discretion. You simply need to accept responsibility for your actions and if others think you are contrite enough then assistance may be offered.
Hello, Yes, I understood, please accept my sincere apologies, I should have deleted the Stack before posting here. If someone would be able to help with the above query I would be more than grateful.

[macropod]

I posted it firstly on Stack but since nobody helped, I had to come here.
Your StackOverflow thread had numerous responses when I looked...

[nigel1]

Your StackOverflow thread had numerous responses when I looked...

Hello, cheers for the reply.
I was given some suggestion but they were sort of unclear to me anyway. Would anyone here be able to help based on the above code? I would really appreciate that.

[macropod]

Also cross-posted at: https://www.excelguru.ca/forums/showthread.php?10231-Word-table-to-Excel

As per the forum rules, kindly provide links to all your cross-posts.

[macropod]

Now also cross-posted at: https://stackoverflow.com/questions/57991687/search-in-word-doc-from-page-5-onwards-find-specific-word-and-copy-from-the-1st
Clearly, you have utter contempt for this forum's rules and any other you might care to visit. Thread closed. Account terminated.