从现有的word文档复制并粘贴到新文档时,我遇到了问题!我可以将文档1和文档2中的内容复制并粘贴到具有下面代码的新文档中,但是,当将文档2粘贴到新文档中时,它将直接粘贴到从文档1复制的材料下。我希望将从文档2复制的材料粘贴到其他材料下面的新页面中,这样可能有人请给我一个这样的或正确方向的微调。从多个word文档中复制和粘贴VBA
Sub automateword()
Dim wordapp As Object
Set wordapp = CreateObject("word.Application")
''''creates and saves new Document''''
With CreateObject("Word.Document")
.Windows(1).Visible = True
.SaveAs Filename:="C:\NewDocumnet.docx", FileFormat:=wdFormatDocument
End With
wordapp.Documents.Open "C:\Document1.docx"
wordapp.Selection.WholeStory
wordapp.Selection.Copy
wordapp.Documents("C:\NewDocumnet.docx").Activate
wordapp.Selection.PasteAndFormat wdInLine
wordapp.Documents.Open "C:\Document2.docx"
wordapp.Selection.WholeStory
wordapp.Selection.Copy
wordapp.Documents("C:\NewDocumnet.docx").Activate
wordapp.Selection.PasteAndFormat wdInLine
wordapp.Visible = True
End Sub
这正是我正在寻找的!非常感谢您的帮助 – user3538102 2014-10-20 11:06:25
很高兴为您工作:) – 2014-10-20 11:11:19