Ответ: Indesign CS - Place text with linked graphics
Rem PlaceGraphicAtTag.vbs
Rem An InDesign CS script.
Rem Places a graphic at locations in text defined by begin "[~" and end "~]" tags such as [~c:\graphic.jpg~].
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 = "i:\image\catalog\"
Set myInDesign = CreateObject("InDesign.application.CS")
Rem Clear the find/change preferences.
myInDesign.FindPreferences = idNothingEnum.idNothing
myInDesign.ChangePreferences = idNothingEnum.idNothing
Set myDocument = myInDesign.ActiveDocument
myDocument.save("i:\doc\catalog\Descriptive Catalog.indd")
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
Rem myFoundTag.item(1).fit idFitOptions.idCenter-Content
Rem msgBox myFoundTag.contents
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
msgBox "Done Updating Graphics."
