【Acrobat】Acrobatフォームでデータ印字（はがき宛名）

【Acrobat】Acrobatフォームでデータ印字（その１）の続編
https://force4u.cocolog-nifty.com/skywalker/cat75986021/index.html

ハガキPDFフォームのデータPDF作成

こんな感じのハガキのフォームを

データ読み込みで個別のPDFにします

出来上がりPDFは氏名データでファイル名定義して保存します

ダウンロード - makehagakidataprintpdfform.zip

【Acrobat AppleScripts】フルスクリーン開始

スクリプトメニュー用です

ダウンロード

---

(*

Acrobatのフルスクリーン開始用

20210805 思い出して再作成

*)

set theList to {"UncoverLeft", "UncoverRight", "UncoverDown", "UncoverUp", "UncoverLeftDown", "UncoverLeftUp", "UncoverRightDown", "UncoverRightUp", "CoverLeft", "CoverRight", "CoverDown", "CoverUp", "CoverLeftDown", "CoverLeftUp", "CoverRightDown", "CoverRightUp", "PushLeft", "PushRight", "PushDown", "PushUp", "PushLeftDown", "PushLeftUp", "PushRightDown", "PushRightUp", "FlyInRight", "FlyInLeft", "FlyInDown", "FlyInUp", "FlyOutRight", "FlyOutLeft", "FlyOutDown", "FlyOutUp", "FlyIn", "FlyOut", "Blend", "Fade", "Random", "Dissolve", "GlitterRight", "GlitterDown", "GlitterRightDown", "BoxIn", "BoxOut", "BlindsHorizontal", "BlindsVertical", "SplitHorizontalIn", "SplitHorizontalOut", "SplitVerticalIn", "SplitVerticalOut", "WipeLeft", "WipeRight", "WipeDown", "WipeUp", "WipeLeftDown", "WipeLeftUp", "WipeRightDown", "WipeRightUp", "Replace", "ZoomInDown", "ZoomInLeft", "ZoomInLeftDown", "ZoomInLeftUp", "ZoomInRight", "ZoomInRightDown", "ZoomInRightUp", "ZoomInUp", "ZoomOutDown", "ZoomOutLeft", "ZoomOutLeftDown", "ZoomOutLeftUp", "ZoomOutRight", "ZoomOutRightDown", "ZoomOutRightUp", "ZoomOutUp", "CombHorizontal", "CombVertical"} as list

tell application "Finder"

---主名称指定

activate

set theChoices to theList

set theTransition to choose from list theChoices with prompt "トランジッションを選んでください" default items {"Random"}

----戻り値をテキストに

set theTransition to theTransition as text

end tell

log theTransition

tell application "Finder"

---主名称指定

activate

set objDialog to (display dialog "ページ送り秒（半角数字で）" default answer "5" giving up after 20 with title "ページ送り秒")

set numSecPage to (text returned of objDialog) as text

----戻り値を数字にエラーしたら５秒

try

set numSecPage to (numSecPage + numSecPage) / 2 as integer

on error

set numSecPage to "5" as integer

end try

end tell

log numSecPage

tell application "Finder"

set listRGBcolor to (choose color default color {65535, 65535, 65535})

end tell

set theR to ((item 1 of listRGBcolor) / 65535) as number

set theG to ((item 2 of listRGBcolor) / 65535) as number

set theB to ((item 3 of listRGBcolor) / 65535) as number

tell application "Adobe Acrobat"

activate

tell window 1

---トランジッション

do script "app.fs.defaultTransition = \"" & theTransition & "\";"

---ツールバー有無

do script "app.toolbar = false;"

---カーソル有無

do script "app.fs.cursor = cursor.visible;"

---クリック有用（ホイール）

do script "app.fs.clickAdvances = true;"

do script "app.fs.useTimer = true;"

do script "app.fs.usePageTiming = true;"

---ループ

do script "app.fs.loop = true;"

---背景色

do script "app.fs.backgroundColor = [\"RGB\"," & theR & ", " & theG & "," & theB & "];"

---do script "app.fs.backgroundColor = [\"CMYK\", 1, 0, 0,0];"

---do script "app.fs.backgroundColor = [\"RGB\", 1, 0, 0];"

---do script "app.fs.backgroundColor = [\"RGB\",0.7, 0.1, 0.1, 0.5];"

---do script "app.fs.backgroundColor = color.white;"

---do script "app.fs.backgroundColor = [\"G\", 0.5,0.2];"

---ページ送り時間

do script "app.fs.timeDelay = \"" & numSecPage & "\";"

do script "app.execMenuItem(\"FullScreenMode\");"

end tell

end tell

[Acrobat AppleScripts]アプリケーションの画面サイズ

(*

theStatusMenuShowHideの２２はFinderメニューバーのサイズ

Acrobatで開いた書類を画面最大サイズにリサイズする

*)

---画面サイズを求める

tell application "Finder"

set theWindowSize to (bounds of window of desktop) as list

set theDesktopWidth to (item 3 of theWindowSize) as number

set theDesktopHight to (item 4 of theWindowSize) as number

end tell

----ドックのサイズを求める

tell application "System Events"

tell application process "Dock"

set {dockWidth, dockHeight} to the size of list 1

end tell

tell dock preferences

set theScreenEdge to screen edge as text

set theAutohide to autohide as text

end tell

end tell

set theStatusMenuShowHide to (do shell script "/usr/bin/defaults read NSGlobalDomain _HIHideMenuBar") as number

if theStatusMenuShowHide is 0 then

set theMenuBarHight to 22 as number

else

set theMenuBarHight to 0 as number

end if

---アクロバットの処理

tell application "Adobe Acrobat"

---ファイルを開いて

open (choose file of type {"com.adobe.pdf"})

activate

tell active doc

---アプリケーションウィンドウのサイズを取得

set theDocBounds to bounds as list

end tell

--左から

set theDocBounds01 to (item 1 of theDocBounds) as number

--上から（メニュー部分を加味）

set theDocBounds02 to (item 2 of theDocBounds) as number

--幅

set theDocBounds03 to (item 3 of theDocBounds) as number

--高

set theDocBounds04 to (item 4 of theDocBounds) as number

---DOCKが隠れない場合

if theAutohide is "false" then

--DOCKの位置が下の場合

if theScreenEdge is "bottom" then

set theDockSize to dockHeight as number

set theAcroWindowBounds to {0, theMenuBarHight, theDesktopWidth, (theDesktopHight - theMenuBarHight - theDockSize)}

--DOCKの位置が左か右の場合

else

set theDockSize to dockWidth as number

set theAcroWindowBounds to {0, theMenuBarHight, (theDesktopWidth - theDockSize), (theDesktopHight - theMenuBarHight)}

end if

---DOCKが隠れる場合

else

--DOCKの位置が下の場合

if theScreenEdge is "bottom" then

set theDockSize to dockHeight as number

set theAcroWindowBounds to {0, theMenuBarHight, theDesktopWidth, (theDesktopHight - theMenuBarHight)}

--DOCKの位置が左か右の場合

else

set theDockSize to dockWidth as number

set theAcroWindowBounds to {0, theMenuBarHight, (theDesktopWidth), (theDesktopHight - theMenuBarHight)}

end if

end if

--アプリケーションウィンドウをリサイズする

tell active doc

set bounds to theAcroWindowBounds

end tell

activate

end tell

---

ダウンロード - acrobatbounds.zip

---

[Acrobat AppleScript]PDFを開いてTIFFで書き出す(バージョンによる差異)

上書きオプション等はAcrobat7からなので
バージョンを取得して分岐を作る
か
それぞれ記述を変える
で
対応できますね。

続きを読む "[Acrobat AppleScript]PDFを開いてTIFFで書き出す(バージョンによる差異)"

[Acrobat AppleScript]ファイルサイズの取得（this.filesize）

続きを読む "[Acrobat AppleScript]ファイルサイズの取得（this.filesize）"

[Acrobat AppleScript]ファイル名の取得（this.documentFileName）

続きを読む "[Acrobat AppleScript]ファイル名の取得（this.documentFileName）"

[Acrobat AppleScript]PDFを開いてTIFFで書き出す（Export to TIFF Image : Adobe Acrobat）

do script を使ってこのようにする事で
ロングファイルネームの不具合に対応出来ます。

「acro_Long_filename.rtf」をダウンロード

set FileResult to choose file "変更するファイルを選択"

set savefolder to choose folder with prompt ("TIFファイルの保存先を選択してください。" as Unicode text)

set destinationFolder to savefolder as Unicode text

tell application "Finder"

set theName to name of FileResult

set newfile to destinationFolder & text 1 thru -4 of theName & "tif" as Unicode text

set newfilepass to POSIX path of newfile as Unicode text

end tell

tell application "Adobe Acrobat Pro"

open FileResult as alias

set comandline to "" as Unicode text

do script "this.saveAs(\"" & newfilepass & "\", \"com.adobe.acrobat.tiff\");"

close active doc saving no

end tell

続きを読む "[Acrobat AppleScript]PDFを開いてTIFFで書き出す（Export to TIFF Image : Adobe Acrobat）"