Range.InsertFile (Word)

Insere todo o arquivo especificado ou parte dele.

InsertFile (FileName, Range, ConfirmConversions, Link, Attachment)

ActiveDocument.Range.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Range.InsertFile FileName:="C:\TEST.DOC", Link:=True

Arguments

O seguinte argumento é necessário

FileName (String) - O caminho e o nome do arquivo a ser inserido. Se você não especificar um caminho, o Word partirá do pressuposto de que o arquivo se encontra na pasta atual.

Optional arguments

Os seguintes argumentos são opcionais

Range (Range) - Quando o arquivo especificado é um documento do Word, esse parágrafo se refere a um indicador. Quando o arquivo é de outro tipo (por exemplo, uma planilha do Microsoft Excel), esse parâmetro se refere a um intervalo nomeado ou a um intervalo de células (por exemplo, L1C1:L3C4).

ConfirmConversions (Boolean) - True para fazer com que o Word peça a você que confirme a conversão ao inserir arquivos de outros formatos que não sejam o formato de documento do Word.

Link (Boolean) - True para inserir o arquivo usando um campo INCLUDETEXT.

Attachment (Boolean) - True para inserir o arquivo como um anexo a uma mensagem de email.