Documents.Add DocumentType:=wdNewBlankDocument
    Windows("文档 1").Activate
    Selection.WholeStory
    Selection.Copy
    Windows("文档 5").Activate
    Selection.Paste
    Windows("文档 2").Activate
    Selection.WholeStory
    Selection.Copy
    Windows("文档 5").Activate
    Selection.Paste