スクスニップ

AppleScriptの断片をここに書く

InDesign 選択された段落に番号を振る AppleScript

「InDesign自動処理実例集」のJavaScriptをAppleScriptで書く

2-4 01 選択された段落に番号を振る（P.120）

組版時間を半減する! InDesign自動処理実例集

組版時間を半減する! InDesign自動処理実例集

=== 書籍の JavaScript を AppleScript で書き直してみます ===

部品作製

f:id:mikomaya:20141112143323p:plain

-- オブジェクト内の段落[pFrom]から[pTo]までを選択
-- pToが0の場合は、最終段落まで
-- pToがマイナスの場合は、最終段落 - pTo段落まで
to selectParagraph(myObj, pFrom, pTo)
    tell application "Adobe InDesign CS6"
        tell myObj
            if pTo = 0 then set pTo to number of paragraph
            if pTo < 0 then set pTo to (number of paragraph) + pTo
            select (text from paragraph pFrom to paragraph pTo)
        end tell
    end tell
end selectParagraph

-- 選択された段落に行番号を追加
to addParagraphNumbers(mySep)
    tell application "Adobe InDesign CS6"
        set loop to number of paragraph of selection
        repeat with i from 1 to loop
            set contents of insertion point 1 of paragraph i of selection to ("" & i & mySep)
        end repeat
    end tell
end addParagraphNumbers

部品が揃ったので、まとめ

tell application "Adobe InDesign CS6"
    tell active document
        set myObj to text frame 1
    end tell
end tell

selectParagraph(myObj, 4, -1)
addParagraphNumbers(" : ")

実行結果

f:id:mikomaya:20141112143337p:plain