🚀 go-pugleaf

Perrin--

Here's a version that works for me in InDesign CS:



Rem PlaceGraphicAtTag.vbs 
Rem An InDesign CS script. 
Rem Places a graphic at locations in text defined by begin "<<" and end ">>" tags. 
Rem Optional variable declarations. Omit these if you are creating a VBScript. 
Rem Dim myInDesign As InDesign.Application 
Rem Dim myPath As String 
Rem Dim myDocument As InDesign.Document 
Rem Dim myStory As InDesign.Story 
Rem Dim myStartItems, myEndItems, myFoundTag As Object 
Rem Dim myCounter, myFoundCounter, myStartIndex, myEndIndex As Long 
Rem Enter the path to the folder containing the images you want to place. 
Rem (Include the trailing backslash "\".) 
myPath = "g:\myFilesToPlace\" 
Set myInDesign = CreateObject("InDesign.application.CS") 
Rem Clear the find/change preferences. 
myInDesign.FindPreferences = idNothingEnum.idNothing 
myInDesign.ChangePreferences = idNothingEnum.idNothing 
Set myDocument = myInDesign.ActiveDocument 
Rem Work through the document story-by-story. 
For myCounter = 1 To myDocument.Stories.Count 
    Set myStory = myDocument.Stories.Item(myCounter) 
    Rem Create an object containing references to all instances of 
    Rem the "start tag" string ("<<" in this example). 
    Set myStartItems = myStory.Search("<<") 
    If myStartItems.Count > 0 Then 
        Rem Create an object containing references to all instances of 
        Rem the "end tag" string (">>" in this example). 
        Set myEndItems = myStory.Search(">>") 
        If myStartItems.Count = myEndItems.Count Then 
            Rem Iterate through the found items backwards to avoid invalidating 
            Rem text object references preceding them in the story. 
            For myFoundItemCounter = myStartItems.Count To 1 Step -1 
                Set myStartItem = myStartItems.Item(myFoundItemCounter) 
                myStartIndex = myStartItem.Characters.Item(1).Index 
                Rem Get the corresponding "end" tag. 
                Set myEndItem = myEndItems.Item(myFoundItemCounter) 
                myEndIndex = myEndItem.Characters.Item(-1).Index 
                Rem Get a reference to the first character in the "start" tag. 
                Set myStartCharacter = myStory.Characters.Item(myStartIndex) 
                Rem Get a reference to the first character in the "end" tag. 
                Set myEndCharacter = myStory.Characters.Item(myEndIndex) 
                Rem Use the ItemByRange method to get a reference to the entire tag. 
                Set myFoundTag = myStory.Texts.ItemByRange(myStartCharacter, myEndCharacter).Item(1) 
                Rem Replace the text of the tag with the specified graphic. 
                myFileName = Mid(myFoundTag.Contents, 3, Len(myFoundTag.Contents) - 4) 
                myFoundTag.Place myPath & myFileName 
            Next 
        Else 
            Rem We have a mismatched tag somewhere. 
            MsgBox "One of the stories contains a mismatched tag." 
            Exit For 
        End If 
    End If 
Next

Sorry I wasn't able to get to your email messages earlier--haven't had a free moment until now.

Thanks,

Ole