如何合并磁盘上的两个Word文件为一个文件？

Question

先录制一个宏，open\open\copy，

Answer 1

Documents.Open FileName:="A:\文档1.doc", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    Selection.WholeStory
    Selection.Copy
    Documents.Open FileName:="A:\文档2.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto
    Selection.MoveUp Unit:=wdLine, Count:=1000
    Application.Run MacroName:="MathTypeCommands.UIWrappers.EditPaste"