Thread: Embed PDF into Word

I have created a tool that writes out a Word document based on text stored in a spreadsheet.

The last part of the process is to embed a PDF file into the Word document, unlinked and displayed as an icon.

This code works fine when run in Word but when run from Excel inserts the file contents which is not what I want (and is unreadable anyway).

wrdDoc.Shapes.AddOLEObject Anchor:=wrdApp.Selection.Range, ClassType:= _
"AcroExch.Document.7", Filename:=UserForm1.Controls("TextBox" & FileRef).Value, _
LinkToFile:=False, DisplayAsIcon:=True

For information wrdDoc is created like this:

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.documents.Add(Template:=FullDotName)

and the Filename:= is passed as a fully qualified text string.

Any ideas how I can get the file embedding to work?