Hello

I cobbled this little pg to incorporate a rtf files directory given in a word document.
I wish I could do the same for all files and pdf xls directory.

Thank you for ideas.

Private Sub CommandButton1_Click ()
'Dim AppWord As Word.Application
'Dim DocWord As Word.Document
Debug.Print Application.ActiveDocument.FullName

With ActiveDocument

Debug.Print. Path

'ActiveWindow.Caption = AppWord.ActiveDocument.FullName
End With
ActiveWindow.Caption = ActiveDocument.Path

Selection.InlineShapes.AddOLEObject ClassType: = "Word.Document.8"
FileName _
: = _
"Application compatibility contrat.rtf State" _
, LinkToFile: = False, DisplayAsIcon: = True, IconFileName: = _
"C: \ WINNT \ Installer
\ (90110409-6000-11D3-8CFE-0150048383C9) \ wordicon.exe "_
IconIndex: = 1, IconLabel: = "Query State compatibility
contrat.rtf "
Selection.TypeText Text: = vbTab
Selection.InlineShapes.AddOLEObject ClassType: = "Word.Document.8"
FileName _
: = _
"Query State compatibilité_ot_ar.rtf" _
, LinkToFile: = False, DisplayAsIcon: = True, IconFileName: = _
"C: \ WINNT \ Installer
\ (90110409-6000-11D3-8CFE-0150048383C9) \ wordicon.exe "_
IconIndex: = 1, IconLabel: = "Query State
compatibilité_ot_ar.rtf "
Selection.TypeText Text: = vbTab
End Sub