Article View: adobe.scripting.indesign
Article #9427Re: [JS, VBS CS2] Unlink all Incopy Stories, Delete All Assignments via script?
From: Karthik_ind
Date: Sat, 19 Aug 2006 10:56
Date: Sat, 19 Aug 2006 10:56
20 lines
1358 bytes
1358 bytes
You can try this in VB
---------------------------------------------------------------
'This is to delete all incopy stories
For Each mylink In mydoc.Links
If mylink.LinkType = "InCopyInterchange" Then
mypath = mylink.FilePath
myfilename = mylink.Name
mylen = Len(mypath) - Len(myfilename)
myincname = Mid(mypath, 1, mylen)
myincname = myincname & "*.incx"
mylink.Unlink
Else
mylink.Unembed
End If
Next
'This is to delete the Assignment
Set myinc = mydoc.Assignments(1)
myinc.Delete
------------------------------------------------------------
Technical Details
Message-ID:
<3bc09db8.0@webcrossing.la2eafNXanI>Path:
arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news.glorb.com!syros.belnet.be!news.belnet.be!news.stben.net!webcrossingReferences:
<3bc09db8.-1@webcrossing.la2eafNXanI>Show Full Headers
Complete Article Headers
X-Google-Thread: f939a,51db34675c26cde1,start X-Google-Attributes: gidf939a,public X-Google-Language: ENGLISH,ASCII-7-bit From: Karthik_ind <sastha505@yahoo.com> Newsgroups: adobe.scripting.indesign Subject: Re: [JS, VBS CS2] Unlink all Incopy Stories, Delete All Assignments via script? Message-ID: <3bc09db8.0@webcrossing.la2eafNXanI> Date: Sat, 19 Aug 2006 03:56:47 -0700 References: <3bc09db8.-1@webcrossing.la2eafNXanI> Lines: 20 MIME-Version: 1.0 Content-Type: text/plain; charset="ISO-8859-1" Content-Transfer-Encoding: 8bit Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news.glorb.com!syros.belnet.be!news.belnet.be!news.stben.net!webcrossing