embedded file objects in rtf files

[junior77048]

I am trying to save each embedded file object in a rtf file. I am able to
get to the file object but dont know what else to do since the OLEFormat
doesn't have a save as method. How can I go by on saving each file object to
a directory? The majority of my embedded file objects are pdf file. Here' s
my code:

Dim oWord As Word.Application

Dim oDoc As Word.Document

Dim fl As Word.InlineShape

Dim fr As Word.OLEFormat

oWord = New Word.Application

oWord.Visible = True

oWord.WindowState = WdWindowState.wdWindowStateMinimize

oDoc = oWord.Documents.Open(FileName)

For i = 1 To oDoc.InlineShapes.Count

fl = oDoc.InlineShapes.Item(i)

fr = fl.OLEFormat

fr.open()

Next

End If

I use the open method just to make sure I reference the file object.

Please help!!!

 

[Cindy M.]

Replied to earlier, duplicate question in this group.

Cindy Meister