我已经好多年没有使用VB了，如果这个问题变得明显，请原谅我。我正在尝试编写一个Word VBA宏，用于模板中显示用户窗体，然后根据用户窗体导入fileA.docx、fileB.docx或fileC.docx的内容（之后我将使用书签填写一些表单数据，不知道这是否相关）。文件A、B和C将包含一些基本格式（如列表），但没有什么花哨的东西。
我在网上看到的解决方案可以将文件的内容复制到新文件中，但理想情况下，我希望将其中一个文件的所有内容导入到我从模板中获取的新的未命名文件中。我认为我遇到问题的地方是将选择切换到这些文件之一，然后切回新的未命名文档，虽然我也需要帮助确保我正在正确地复制文件。
更新：我把事情想得太难了，虽然这里的答案让我朝着正确的方向前进（谢谢！）。最终我只需执行以下操作：
ThisDocument.Activate
Selection.InsertFile("fileA")
它给了我我想要的每一件事情的原始转储。
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
您可以对其进行格式化，或者从以前的格式中复制并粘贴它们。
思路是将源文档中找到的某些文本部分转移到与源文档不同的目标文档，并保留源格式。
为了实现以上目标（跳过打开文档的代码）：
For Each oTable In oDoc_Source
'the above could have been anything that returns a Range object
'such as: ActiveDocument.Content.Find.Execute ....
'...
'logic here to identify the table, or text, you are looking for
'...
'I can't believe the MS Dev Center folks could only think
'of .InsertFile(), which is the last resort I would go for,
'especially if your code runs on a web server [concurrent web requests]!
'SAFEST
'(no user interference on clipboard possible, no need to deal with file i/o and permissions)
'you need a reference to Document.Content,
'as the act of obtaining a reference "un-collapses" the range, so the below 3 lines must be in that order.
Set oRange = oDoc_DestinationDoc.Content
oRange.Collapse Direction:=wdCollapseEnd
oRange.FormattedText = oTable.Range
'BRUTE, AND PRONE TO RANDOM ERRORS AND HANGS DUE TO USER INTERFERENCE WITH CLIPBOARD
'find a way to implement WIHTOUT using the CLIPBOARD altogether to copy the below range object
'it will be easier for PC users to use the clipboard while the macro runs
'and it will probably be safer for the output of this macro to remain uncorrupted
'oTable.Range.Copy
'Set oRange = oDoc_DestinationDoc.Content
'oRange.Collapse Direction:=wdCollapseEnd
'oRange.Paste
'THE BELOW DOES NOT WORK
' '1) - cannot add a range from another document
' 'adds only text, not the formats and not the table layout
' oTable.Range.TextRetrievalMode.IncludeFieldCodes = True
' oTable.Range.TextRetrievalMode.IncludeHiddenText = True
' oDoc_DestinationDoc.Content.InsertAfter oTable.Range
'
' '2) - cannot add a range from another document
' oDoc_DestinationDoc.Content.Tables.Add oTable.Range, iRowMax, iColMax
'
' '3) - only puts in plain text, and it replaces the range without the .Collapse call
' oDoc_DestinationDoc.Content.Text = oTable.Range
记录宏...
或者（假设Word 2007或更高版本）
我更喜欢第二个版本，所以应该把它放在第一个位置
'set current doc name and path
Dim docName As String: docName = ActiveDocument.name
Dim filepath As String: filepath = ActiveDocument.Path
'create a new file
Documents.Add
'get the path of a current file
ChangeFileOpenDirectory filepath
'insert content of current file to newly created doc
Selection.InsertFile _
FileName:=docName, _
Range:="", _
ConfirmConversions:=False, _
Link:=False, _
Attachment:=False
'open prompt to save a new file
With Dialogs(wdDialogFileSaveAs)
.name = docName & "-copy"
.Show
End With
https://msdn.microsoft.com/en-us/vba/word-vba/articles/selection-insertfile-method-word
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertFile FileName:="C:\TEST.DOC"
FormattedText属性！（在Selection中，在Range中） - cxw