Question

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

以下内容处于循环状态（即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

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

2 个答案: