vba - 使用VBA将一个Word文档的内容复制到另一个Word文档中

Question

我已经好几年没有使用VB了，所以如果事实很明显，请原谅我。我正在尝试编写一个单词vba宏，以用于将显示用户窗体的模板中，然后根据用户窗体导入fileA.docx，fileB.docx或fileC.docx的内容。 (在那之后，我将使用书签来填写一些表单数据，我不知道这是否有意义)。文件A，B和C将包含具有一些基本格式的文本，例如列表，但没有花哨的地方。

我在网上看到的解决方案可以将文件的内容复制到一个新文件中，但是理想情况下，我想将其中一个文件的全部导入到我从模板中获取的新的，目前未命名的文件中。我认为我遇到问题的地方是将选择切换到这些文件之一，然后又回到了新的未命名文档，尽管我可以用一只手来确保我也正确地进行了复制。

更新:我使事情变得很难，尽管这里的答案使我指出了正确的方向(谢谢!)。最后我只是做了

ThisDocument.Activate

Selection.InsertFile("fileA")

这给了我所有我想要的东西的原始转储。

Answer 1

使用诸如此类的命令，您可以在正在使用的文档之间切换以及复制和粘贴元素:

ThisDocument.Activate 'Sets the main document active
Documents("Name.doc").Activate 'Activates another document

您可以使用复制命令在文件中插入，复制和粘贴内容。

ThisDocument.Range.InsertAfter("String") 'Insert text

Selection.WholeStory 'Select whole document
Selection.Expand wdParagraph 'Expands your selection to current paragraph
Selection.Copy 'Copy your selection
Documents("name.doc").Activate 'Activate the other document
Selection.EndKey wdStory 'Move to end of document
Selection.PasteAndFormat wdPasteDefault 'Pastes in the content

然后，您可以进行格式化，或者使用以前的原始格式复制和粘贴它们。