copy tables from word without repeating header

Attachment 26782Hi Paul, This is Mayur (continuing from stackoverflow) as there is no option to attach files. Hope you are same macropod [IMG]file:///C:/Users/User/AppData/Local/Temp/msohtmlclip1/01/clip_image001.gif[/IMG]
Attached here with are the two invoice files... I am trying to copy the tables (with only header row: with keyword "Description").
Following is the code that i am using. Also wanted to copy Invoice / sales order number with Date and paste in column E.
The instr function is unable to find "Description". Hope you have all the details now. Sorry for the confusion and taking so much time of yours.

Cross-posted (and answered before posting here) at: https://stackoverflow.com/questions/...peating-header
Please read VBA Express' policy on Cross-Posting in Rule 3: http://www.vbaexpress.com/forum/faq...._new_faq_item3

[QUOTE=macropod;402740]Cross-posted (and answered before posting here) at:
Yes sir, since there was no option to upload files in stackoverflow :(

Code:

---

Sub M_snb()
  with getobject("G:\OF\invoice.docx")
    For Each it In .Tables
        If InStr(it, "Description") Then c00 = c00 & vbCrLf & it
    Next
    .close 0
  end with

  CreateObject("scripting.filesystemobject").createtextfile("G:\OF\tbles.csv").write Replace(Join(Filter(Split(c00, vbCr & Chr(7) & vbCr & Chr(7)), "Description", 0), vbCrLf), vbCr & Chr(7), ",")
  Workbooks.Open "G:\OF\tbles.csv"
End Sub

---

[QUOTE=mvakharia;402744]

Quote:

---

Originally Posted by macropod

Yes sir, since there was no option to upload files in stackoverflow :(

---

Quite irrelevant. When you joined this forum you agreed to abide by its rules. In any event, as per the line you quoted, the problem was already solved at StackOverflow before you posted here.

[QUOTE=macropod;402751]

Quote:

---

Originally Posted by mvakharia

Quite irrelevant. When you joined this forum you agreed to abide by its rules. In any event, as per the line you quoted, the problem was already solved at StackOverflow before you posted here.

---

Unfortunately still not working as desired and that's the main reason I wanted to share the file. With your revised Instr formula it does go inside the loop but deletes the first row which in case 1 is has two row header.
Also unable to retrieve the Sales Order no. and Date from both the word files.
Sorry for all the trouble and really appreciate all your help. God bless you!

[QUOTE=mvakharia;402752]

Quote:

---

Originally Posted by macropod

ith your revised Instr formula it does go inside the loop but deletes the first row which in case 1 is has two row header.
Also unable to retrieve the Sales Order no. and Date from both the word files.

---

If you want help, kindly continue the discussion at StackOverflow. I have no intention of carrying on the discussion across two different forums. Thread closed.