Re: Selection by coordinates? [VB]

Article View: adobe.scripting.indesign

Article #15462

Back to adobe.scripting.indesign Previous Next

#15462

From: Roberto Soto
Date: Wed, 03 Dec 2003 19:58

23 lines
1470 bytes

Hi Matt

Dim myInDesign As InDesign.Application
Dim myDocument As InDesign.Document
Dim i As Integer

myInDesign = CreateObject("InDesign.Application.CS")

If myInDesign.Documents.Count > 0 Then
 myDocument = myInDesign.ActiveDocument
 myDocument.ViewPreferences.HorizontalMeasurementUnits = InDesign.idMeasurementUnits.idInches
 myDocument.ViewPreferences.VerticalMeasurementUnits = InDesign.idMeasurementUnits.idInches
 myDocument.ViewPreferences.RulerOrigin = InDesign.idRulerOrigin.idPageOrigin

For i = myDocument.AllPageItems.Count To 1 Step -1
  If myDocument.AllPageItems.Item(i).GeometricBounds(0) = 1.5 And _
   myDocument.AllPageItems.Item(i).GeometricBounds(1) = 7 Then
   myDocument.AllPageItems.Item(i).Delete()
  End If
 Next
End If

Roberto

Technical Details

Message-ID: <2cce9d48.3@webx.la2eafNXanI>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed01.sul.t-online.de!t-online.de!webx

References: <2cce9d48.-1@webx.la2eafNXanI>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f939a,26e686bc1b2d21e1
X-Google-Attributes: gidf939a,public
X-Google-ArrivalTime: 2003-12-03 12:08:15 PST
From: "Roberto Soto" <roberto1soto@yahoo.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed01.sul.t-online.de!t-online.de!webx
Newsgroups: adobe.scripting.indesign
Subject: Re: Selection by coordinates? [VB]
Message-ID: <2cce9d48.3@webx.la2eafNXanI>
Date: Wed, 3 Dec 2003 11:58:46 -0800
References: <2cce9d48.-1@webx.la2eafNXanI>
Lines: 26
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit

Reply to Parent Message