Question: Active Document is called “FinalDocument”

The following is in a loop (ie. Report1, Report2, etc..)

```
  DoCmd.OpenReport ReportName, acPreview, , "Report1”

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

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

```

I am successfully getting text from Report1 to FinalDocument.

My problem is that on every pass throught loop, InsertFile is REPLACING text.

I want to APPEND Text from Report1 to FinalDocument thereby building FinalDocument one pass at a time.

Answer: 
You should work with a `Range` object so that you can target the insertion point. First, set the`Range` to the entire document, then "collapse" it to a point - think of it like pressing the right-arrow key to make a selection a blinking cursor at the end of the selection.

For example:

```
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

```
Try this:

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

```