Vba 尝试使用InsertFile方法附加到Word文档

活动文档称为“最终文档”

以下是一个循环（即Report1、Report2等）

我正在成功地将文本从Report1获取到FinalDocument

我的问题是，在每个传递循环中，InsertFile都在替换文本

我想将Report1中的文本附加到FinalDocument，从而一次只生成一个过程。

尝试以下操作：

ActiveDocument.ActiveWindow.Selection.InsertFile FileName:=WordDoc1, Range:="", _ 
  ConfirmConversions:=False, Link:=False, Attachment:=False

---

您应该使用

范围

对象，以便以插入点为目标。首先，将

范围

设置为整个文档，然后将其“折叠”到一个点，就像按向右箭头键使选择在选择结束时成为闪烁的光标一样

例如：

Dim rng as Word.Range
Set rng = ActiveDocument.Content
rng.Collapse Word.WdCollapseDirection.wdCollapseEnd. 'Or use 0
rng.InsertFile FileName:=WordDoc1, Range:="", _ 
   ConfirmConversions:=False, Link:=False, Attachment:=False

---

文件插入的位置取决于选择的位置，这可能不是文档的结尾…太棒了！现在真是魅力四射！我花了大约8个小时，你解决了我的问题。我到处寻找这个解决办法，但毫无结果。非常感谢。

Dim rng as Word.Range
Set rng = ActiveDocument.Content
rng.Collapse Word.WdCollapseDirection.wdCollapseEnd. 'Or use 0
rng.InsertFile FileName:=WordDoc1, Range:="", _ 
   ConfirmConversions:=False, Link:=False, Attachment:=False