View Single Post
 
Old 06-13-2023, 02:11 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

The path to the current document would be
ActiveDocument.Path

so you could modify the code to
Code:
Selection.InsertFile FileName:=ActiveDocument.Path & "\WordInput.docx", Range:="", _
    ConfirmConversions:=False, Link:=False, Attachment:=False
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote