Microsoft Office Forums - View Single Post - Merging of colums from two different docs & create a new doc

gmayor · 08-24-2021, 10:11 PM

Change the line

Code:

If Not oTable1.Rows.Count = oTable2.Rows.Count Then GoTo lbl_Exit

to

Code:

If Not oTable1.Rows.Count = oTable2.Rows.Count Then
    MsgBox "The tables do not have the same number of rows", vbCritical
    GoTo lbl_Exit
End If

Directly after the line

Code:

Set oSource = Documents.Open(sSource)

add the line

Code:

 oSource.AcceptAllRevisions