🚀 go-pugleaf

Thank you, Roberto, for the code you supplied above. I was able to adapt it to perform a very useful function.

I place Word docs into text frames in ID and wanted to be able to include inline graphics in the Word files (that are also placed and linked and can be updated). If you put the actual graphic itself in the Word doc it does get pasted into ID but it is not linked to the original file.

The following code, borrowed from you, retrieves the name of a graphic included in the Word doc in brackets, eg [mypic.jpg]. It places the graphic at the beginning of the name and then deletes the name, so that all that is left is the linked inline graphic. fullRange is the name with brackets (ie [mypic.jpg]) and graphicCode is the name of the graphic file without the brackets (ie mypic.jpg).

'place the Word doc into ID text frame
myTextFrame.Place docToPlace
'find references to inline graphics
Set myStory = myTextFrame.ParentStory
Set myStart = myStory.Search("[")
Set myEnd = myStory.Search("]")
If myStart.Count > 0 Then
    For counter2 = 1 To myStart.Count
        s = myStart.Item(counter2).Index
        e = myEnd.Item(counter2).Index
        Set fullRange = myStory.Characters.ItemByRange(myStory.Characters.Item(s), _
            myStory.Characters.Item(e)).Item(1)
        Set graphicRange = myStory.Characters.ItemByRange(myStory.Characters.Item(s + 1), _
            myStory.Characters.Item(e - 1)).Item(1)
        fileGraphic = graphicRange.TextContents
        graphicToPlace = folderGraphics & Application.PathSeparator & fileGraphic
        Set myInsertionPoint = fullRange.InsertionPoints.Item(1)
        myInsertionPoint.Place graphicToPlace
        fullRange.Delete
    Next counter2
End If

Thanks again. I never could have figured this out on my own.

Brian McMahon