View Single Post
 
Old 02-02-2021, 11:01 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

If you know how to define the range where the file needs to be inserted then you just do that
Code:
  Dim aRng As Range
  Set aRng = ActiveDocument.Paragraphs(3).Range
  aRng.InsertFile FileName:="C:\Text-To-MsWord\Sample.txt", ConfirmConversions:=False, Link:=False, Attachment:=False
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Last edited by Guessed; 02-03-2021 at 12:06 AM. Reason: Amended code
Reply With Quote