最前面のPages書類のうちの最終ページ上のオブジェクトとテキストを削除するAppleScriptです。
Pagesで凝ったレイアウトの書類を作る場合、やりかたはいくつかありますが……ページはすべてセクション(改ページ処理みたいなもの)を入れて1ページ=1セクションみたいにページを作って、その上にテキストフレームを配置、ページ間のテキストフレームの連続はGUI上で指定しておき、テキストが先頭から末尾まで、指定ボックス上を流れていくように指定しています。
別途、脚注のテキストは別のテキストボックスを配置しておき、こちらも前ページの脚注と連結する必要があればつないでおきます。
そのうえで、このように作成したPages書類を前後で分割しようとした場合に、
(1)書類をコピー
(2)前半の書類は、後半部分を削除
(3)後半部分の書類は、前半部分を削除
となるわけです。
が、Pagesに「指定ページを削除」する機能はないので、このようなScriptを組んでいろいろ対処を行っています。
本Scriptは、(2)の処理を行うためのものです。最終ページ上のオブジェクトおよびテキストを削除することで、ページ自体を削除できます。
あとは、1ページ=1セクションで書類が構成されているかどうかをチェックすれば、ページ削除とほぼ同義で扱えるところです。
AppleScript名:末尾のページのオブジェクトを全削除.scpt |
tell application "Pages" tell front document tell last page delete every iWork item end tell tell last section set body text to "" end tell end tell end tell |
More from my site
(Visited 122 times, 1 visits today)