Re: Current Insertion Point

Article View: adobe.scripting.indesign

Article #18292

Back to adobe.scripting.indesign Previous Next

#18292

From: roberto soto
Date: Fri, 04 Apr 2003 14:11

20 lines
1249 bytes

Hi Stu,

Here is a solution:

Sub Command1_Click()
    Dim myInDesign As InDesign.Application
    Dim mySelection As Variant

Set myInDesign = CreateObject("InDesign.Application.2.0")
    If myInDesign.Documents.Count > 0 Then
        Set mySelection = myInDesign.Selection
        If mySelection.Count > 0 Then
            If TypeName(myInDesign.Selection.Item(1)) = "InsertionPoint" Then
                myInDesign.Selection.Item(1).TextContents = "<2022>"
            End If
        End If
    End If
End Sub

Roberto

Technical Details

Message-ID: <1de8857d.2@WebX.la2eafNXanI>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX

References: <1de8857d.-1@WebX.la2eafNXanI>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f939a,7764f5f50b472ae3
X-Google-Attributes: gidf939a,public
X-Google-ArrivalTime: 2003-04-04 06:38:03 PST
From: "roberto soto" <roberto1soto@hotmail.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX
Newsgroups: adobe.scripting.indesign
Subject: Re: Current Insertion Point
Message-ID: <1de8857d.2@WebX.la2eafNXanI>
Date: Fri, 4 Apr 2003 06:11:11 -0800
References: <1de8857d.-1@WebX.la2eafNXanI>
Lines: 21
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit

Reply to Parent Message