vba - 尝试使用 InsertFile 方法追加到 Word 文档

Question

活动文档称为“FinalDocument”</p>

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

  DoCmd.OpenReport ReportName, acPreview, , "Report1”

  DoCmd.OutputTo acOutputReport, ReportName, acFormatRTF, “WordDoc1”

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

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

我的问题是，在每次通过循环时，InsertFile 都会替换文本。

我想将 Report1 中的文本附加到 FinalDocument，从而一次构建 FinalDocument。

Answer 1

您应该使用一个Range对象，以便您可以定位插入点。首先，将 设置Range为整个文档，然后将其“折叠”到一个点 - 将其想象为按下右箭头键以在选择结束时使选择成为闪烁的光标。

例如：

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

Answer 2

尝试这个：

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