Sub copyall()
'
' 复制本文档所有内容至一个新建的文档中
'
'
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
End Sub
该博客主要围绕Word VBA展开,介绍了如何使用其将当前文档的所有内容复制到一个新建文档中,涉及信息技术里的办公自动化操作。
Sub copyall()
'
' 复制本文档所有内容至一个新建的文档中
'
'
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
End Sub

被折叠的 条评论
为什么被折叠?