正在尝试使用InsertFile方法APPEND到Word文档

Question

活动文档称为"FinalDocument">

以下是一个循环(即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