流星さんに書いていただいたスクリプト

私が借りた掲示板ではひとつのレスに書き込める行数に制限があったため、こちらに記録。
下記スクリプトは単体では動作しない。
詳しくは上のリンク先を参照いただくとして、記録用Scriptとペアで使うためのもの。

''クリッピングパス情報の復活用Script
'----------------------------------------
'ClippingPathNameUndo.vbs
'----------------------------------------
delimiterStr = "〓"
Dim MyInDesign 'As InDesign.Application
Set MyInDesign = CreateObject("InDesign.Application.CS3_J")
With MyInDesign
For LC = 1 To .ActiveDocument.Links.Count
Set D = .ActiveDocument.Links(LC)
D.Parent.ImageIOPreferences.ApplyPhotoshopClippingPath = True
PSDINFO = Split(D.Label, delimiterStr)
UB = UBound(PSDINFO)
For Z = 1 To UB
Select Case PSDINFO(Z)
Case "リンクファイル名":
If D.Name = FN Then
StatusOK = True
End If
Case "クリッピングパス":
If StatusOK = Ture Then
CPS = PSDINFO(Z + 1)
D.Parent.ClippingPath.AppliedPathName = CPS
End If
Case Else
End Select
StatusOK = False
Next 'Z
Next 'LC
End With
Set MyInDesign = Nothing
MSGBOX "クリッピングパスの情報に復元しました。"
'----------------------------------------