Попытка использовать метод InsertFile для добавления в документ 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

Я успешно получаю текст из отчета1 в FinalDocument.

Моя проблема в том, что на каждом проходе цикла InsertFile заменяет текст.

Я хочу добавить текст из отчета1 в 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