我正在尝试使用Excel数据对Word文档执行各种任务。但是，这将被其他人使用，因此我想将所有内容从单词doc（以及格式和表格）复制到新的单词doc并进行编辑，以防止其他人意外地在第一个文档（模板）上进行保存。 ）。我还想关闭模板（第一个）文档，并保持第二个（新）文档打开。
我是VBA的新手，无法理解如何处理此问题。经过一堆谷歌搜索，我已经编译了这个（不起作用）的代码：
Dim WordApp As Object
Dim WordDoc As Word.Document
Dim NewWordDoc As Word.Document
'Dim other stuff'
'-------------------------------------------------------------------
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Users\Windows\Documents\CRC Labels
test.doc")
Set NewWordDoc = WordApp.Documents.Add 'I think this gives an error'
'------------------------------------------------------------------------
'Line that actives WordDoc'
Selection.WholeStory 'Select whole document
Selection.Expand wdParagraph 'Expands your selection to current paragraph
Selection.Copy 'Copy your selection
'Line that closes WordDoc'
'Line that activates NewWordDoc'
Selection.PasteAndFormat wdPasteDefault 'Pastes in the content
'------------------------------------------------------------------------
'Do stuff with NewWordDoc'
'------------------------------------------------------------------------
Set WordDoc = Nothing
Set WordApp = Nothing
处理这种情况还有其他想法吗？感谢您的答复。
当您发现使用现有文档作为创建新文档的基础时，就该考虑将该文档另存为Word模板了。这是一种特殊类型的文件（* .dotx或* .dotm），可能包含
从模板生成的所有文档都将继承和/或共享这些文档。
为了从模板创建新文档，请使用Documents.Add方法，指定路径和文件名：
Dim wdDoc as Word.Document
Set wdDoc = Documents.Add(path & filename)
'From outside Word: Set wdDoc = wdApplication.Documents.Add
这将从模板创建一个新文档，复制完整的模板内容，而不会影响模板本身。
注意：您也可以对Documents.Add方法使用“普通文档”（* .docx），它将复制内容。但是，它不会链接回该文档，因此它不能共享宏。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句