Hello Hans, Yes i want to sort and then consolidate the documents .
I did it. But dont know this is right or not .
1)Initially i am getting tableID's,Col A content of worddoc1, worddoc2 and then storing it and doing sort in excel sheet.
2)To merge it i did little changes to your above code.
'Note::This will run in Excel
Sub Merging()
Dim originalDoc1 As Word.Application, tempDoc1 As Word.Application, newDoc1 As Word.Application
Dim originalDoc As Word.Document, tempDoc As Word.Document, newDoc As Word.Document
Dim myPath As String, myPath1 As String, myPath2 As String, myPath3 As String
Dim rng As Word.Range
myPath3 = "\creat.docx"
myPath4 = "\creat1.docx"
'Read Excel sheet contains SlNO/TableID and Docpath details
Set sh = ThisWorkbook.Sheets("Merge")
lastrow = sh.Cells(Rows.Count, "A").End(xlUp).Row
'Open the document to consolidate and copy the sorted table
Set newDoc1 = CreateObject("Word.Application") 'Set newDoc = Documents.Add
Set newDoc = newDoc1.Documents.Open(myPath3)
newDoc1.Visible = True
With ActiveDocument.PageSetup
.Orientation = wdOrientLandscape
End With
'Copy tables 1 by 1 based on the sort info available in Excel
For t = 2 To lastrow
TID = sh.Range("B" & t).Value
myPath1 = sh.Range("C" & t).Value
Set originalDoc1 = CreateObject("Word.Application")
Set originalDoc = Documents.Open(myPath1)
originalDoc1.Visible = False
originalDoc.Tables(TID).Range.Copy
Set rng = newDoc.Content
rng.Collapse Direction:=wdCollapseEnd
rng.PasteAndFormat (wdFormatOriginalFormatting)
originalDoc.Close SaveChanges:=False
Next t
newDoc.SaveAs myPath4
newDoc.Close SaveChanges:=False
MsgBox ("Merging Done !!!")
Kill_Word
End Sub
