如何用vba，实现多word合并。

fanbin8592

一个主word，还有好多附表1、2、3...的word，要放在主word后面。
可以通过插入->对象->文件中的文字，但是有的附表的word表格宽用的页面是横版。插入后都变竖版了，表格显示不全。
怎么能通过vba合并保留附表文件的样式。
或者怎么能通过vba遍历每页的每个表格发现超出页面就将页面变成横版。
谢谢各位大佬。

snow653124

我也是新手，都自学的，写过一个合并的
不过未曾用过，也未曾考虑横版竖版的问题
不过在现有代码加一个判断，分文档第一节的横竖版以及合并文档最后一节的横竖版，如果不同，则加入一个分节符，如果相同，加一个分页符
这个代码是老的，未更新判断的，写的很初级

Sub 合并文档()
    Dim n%, 文档 As Document
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show = -1 Then
            n = .SelectedItems.Count
            Documents.Add
            Set 文档 = ActiveDocument
            For i = 1 To n
                Documents.Open FileName:=.SelectedItems(i), Visible:=True, ReadOnly:=True
                ActiveDocument.Content.Copy
                ActiveDocument.Close
                文档.Activate
                Selection.EndKey wdStory
                ActiveDocument.Content.InsertAfter Chr(12)
                Selection.PasteAndFormat wdFormatOriginalFormatting
            Next
        End If
    End With
    Application.ScreenUpdating = True
End Sub