Microsoft Word - Insert pdf in word doc via macro vs. insert object

Word version: 97-2000

Background:  I need to insert 200+ small (~40KB) pdf files into a Word doc.

Doing it manually works fine via Insert->Object->Adobe Acrobat Document.

Now I wanted to automate the process and wrote a little VB macro (see below.).

Problem: When I save the document where I inserted the file manually it's ~80KB. However, a document where I inserted the file via the macro is 1.5MB. 

I'm new to VB , so what am I missing?

Thank you


Sub Macro1()

Dim strFileName As String

strFileName = "D:\tmp\test.pdf"

Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.7", _
        FileName:=strFileName _
        , LinkToFile:=False, DisplayAsIcon:=False

End Sub

It can be easily identified if you have only version of the reader installed, so that the manual insert and the macro insert can use the same version. 

There is only one version of Acrobat reader installed. I actually upgraded to 9.1.0 to see if the previous version was the reason for the issue.

I don't know how I can tell what exactly Word is using. I did open the files in binary and both contain a (identical looking) block with AcroExch.Document.7 in the data. The big file has a lot of data preceding that block.

I got a chance to try things in Word 2007 on another machine and the docx file does not get big when using the macro insert.  However, saving it as a doc file creates a big file.  I may have to convince those involved in the project and not able to handle docx to upgrade....

I'm still curious about the reason for the file size difference.

Thanks for the file picker sample.  The hard coded file name was purely for testing.  My intention is to use some list of file names, find the files and insert them in the order of the list. Ideally the macro would read the list from a text file. Time to study....