Lo primero comentarte que el funcionamiento de InsertFile es al revés de lo que creo que estás intentando:
En tu código:
WorApp.Selection.InsertFile FileName:=dire, Link:=True
Se introduciría el texto del documento que estuviese en dire en la posición actual del documento referenciado con WorApp, y no al revés.
De todas formas, yo he conseguido que esto funcione correctamente con archivos de origen .txt, y no con archivos Word.
Puedes probar a abrir los dos archivos, y copiar / pegar de uno al otro:
Código:
Documento1.Selection.WholeStory ' Para seleccionar todo del doc1.
Documento1.Copy
Documento2.PasteAndFormat (wdPasteDefault) ' Pega lo copiado en doc2.
Saludos, Foxi.