tetsu

InDesignでページ外のオブジェクトを削除

2017年11月21日 tetsu AppleScript, InDesign, OS X

InDesignでページ外にある不要なオブジェクトを一括で削除するスクリプトです。

あまり検証してないので、(個人的にあまり使う機会がないので…)

不具合が出るかも知れません。

▼AppleScript

tell application "Adobe InDesign CS6"
	tell active document
		
		set pID_LIst to {}
		
		repeat with p in pages
			tell p
				set piList to every page item
				
				repeat with pi in piList
					set the end of pID_LIst to (id of pi)
				end repeat
				
			end tell
		end repeat
		
		
		repeat with s in spreads
			tell s
				set sList to every page item
				
				repeat with si in sList
					set sID to (id of si)
					if sID is not in pID_LIst then
						delete text frame id sID
					end if
				end repeat
				
			end tell
		end repeat
	end tell
	
	activate
	display dialog "終了しました。" & return & "" buttons {"OK"} default button 1 giving up after 55 with icon 1
	
end tell

tell application "Adobe InDesign CS6"

tell active document

set pID_LIst to {}

repeat with p in pages

tell p

set piList to every page item

repeat with pi in piList

set the end of pID_LIst to (id of pi)

end repeat

end tell

end repeat

repeat with s in spreads

tell s

set sList to every page item

repeat with si in sList

set sID to (id of si)

if sID is not in pID_LIst then

delete text frame id sID

end if

end repeat

end tell

end repeat

end tell

activate

display dialog "終了しました。" & return & "" buttons {"OK"} default button 1 giving up after 55 with icon 1

end tell

▼AppleScript（下記のサイトを参考にしたもの）

tell application "Adobe InDesign CS6"
	tell active document
		set epi to every page item
		repeat with i in epi
			try
				if parent page of i = nothing then delete i
			end try
		end repeat
	end tell
end tell

tell application "Adobe InDesign CS6"

tell active document

set epi to every page item

repeat with i in epi

try

if parent page of i = nothing then delete i

end try

end repeat

end tell

【参考情報】

Script for deleting objects on pasteboard

すべてのアプリケーションを終了。

2017年4月16日 tetsu AppleScript, OS X

オートメーターにある「すべてのアプリケーションを終了」を、

アップルスクリプトで実現したかったのですが、

他のサイトにあるスクリプトでは、

思ったような動作にならなかったので、

自分でも作ってみました。

▼AppleScript

tell application "System Events" to set RunningApp to bundle identifier of every application process whose background only is false and name is not "Finder" and name is not "Script Editor" and name is not "AppleScript Editor"

repeat with quitApp in RunningApp
	try
		quit application id quitApp
	end try
end repeat

--tell application "System Events" to set RunningApp to name of every application process
--tell application "System Events" to set RunningApp to properties of every application process

tell application "System Events" to set RunningApp to bundle identifier of every application process whose background only is false and name is not "Finder" and name is not "Script Editor" and name is not "AppleScript Editor"

repeat with quitApp in RunningApp

try

quit application id quitApp

end try

end repeat

--tell application "System Events" to set RunningApp to name of every application process

--tell application "System Events" to set RunningApp to properties of every application process

↓不具合があったので、

オートメーターのようにパスを目立てに、

アプリケーションを終了するように修正しました。

OS Xのバージョンによってはもうひと工夫必要かも知れません。

▼AppleScript（OS X 10.8.5）

tell application "System Events" to set RunningApp to application file of every application process whose background only is false and name is not "Finder" and name is not "Script Editor" and name is not "AppleScript Editor"
--tell application "System Events" to set RunningApp to properties of every application process whose background only is false and name is not "Finder" and name is not "Script Editor" and name is not "AppleScript Editor"

repeat with quitApp in RunningApp
	try
		quit application (POSIX path of quitApp)
	end try
end repeat

tell application "System Events" to set RunningApp to application file of every application process whose background only is false and name is not "Finder" and name is not "Script Editor" and name is not "AppleScript Editor"

--tell application "System Events" to set RunningApp to properties of every application process whose background only is false and name is not "Finder" and name is not "Script Editor" and name is not "AppleScript Editor"

repeat with quitApp in RunningApp

try

quit application (POSIX path of quitApp)

end try

end repeat

Acrobat DCを利用して画面上の選択範囲をOCR。

2017年2月19日 tetsu Acrobat, AppleScript, OS X

Acrobat DCになって
OCRの精度が上がったようなので、
試しに作ってみました。
縦組みもOK。
Acrobat DCでしか動作しません。だぶん…
GUI Scriptingを使用しているため、
動作はかなり遅いです。
↓
コードを追加したら、動作が速くなりました。
理由は？

また、OCRの処理自体は、
Acrobat DCを利用していますが、
アプリに関係なく画面表示されるものは、
処理できるので、汎用性は高いと思います。

▼AppleScript（アプリケーション形式で保存。）

try
	
	tell application "Adobe Acrobat"
		if (count of document) ≠ 0 then
			activate
			display dialog "ドキュメントが開かれています。" & return & "OCRを中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 0
			return
		end if
	end tell
	
	
	set getTime to do shell script "date '+%m%d%H%M%S'"
	
	set tgt_file to "screen_" & (getTime as string) & ".png" --pngがデフォルト
	set txt_file to "screen_" & (getTime as string) & ".txt"
	
	do shell script "mkdir -p ~/Downloads/ScreenShot/"
	
	do shell script "screencapture -s ~/Downloads/ScreenShot/" & tgt_file
	
	tell application "Adobe Acrobat"
		activate
		open (path to home folder as string) & "Downloads:ScreenShot:" & tgt_file as alias
	end tell
	
	tell application id "com.apple.systemevents"
		tell application process "Acrobat Pro" --注意!! "Adobe Acrobat"ではない。
			try
				click menu bar item 4 of menu bar 1
				click menu item 12 of menu 1 of menu bar item 4 of menu bar 1 --テキストと画像を編集
				click menu item 9 of menu 1 of menu bar item 4 of menu bar 1 ---すべてを選択？
			end try
		end tell
	end tell
end try

tell application "Adobe Acrobat"
	activate
	set NewFilepath to (path to home folder as string) & "Downloads:ScreenShot:" & txt_file
	save front document to file NewFilepath using conversion "com.adobe.acrobat.plain-text"
	close front document saving no
end tell

try
	set getText to (do shell script "textutil -cat txt -stdout " & quoted form of (POSIX path of NewFilepath))
	set the clipboard to getText
end try
delay 0.5
try
	tell application "Finder" to set visible of (application process "Acrobat Pro" of application "Finder") to false --Acrobatを隠す
end try

activate
set res to display dialog "●クリップボードにもテキストが記録されています。" & return & return & "テキストが取得できない場合は、\nシステム環境設定　＞\nセキュリティーとプライバシー　＞　アクセシビリティ　＞\nでスクリプトを再チェックしてください。" & return default answer getText
if button returned of res = "OK" then set the clipboard to text returned of res


--コードを追加。なぜか速くなる。
tell application id "com.apple.systemevents"
	tell application process "Acrobat Pro" --注意!! "Adobe Acrobat"ではない。
		try
			click menu item 13 of menu 1 of menu bar item 3 of menu bar 1 --閉じる。
		end try
	end tell
end tell

try

tell application "Adobe Acrobat"

if (count of document) ≠ 0 then

activate

display dialog "ドキュメントが開かれています。" & return & "OCRを中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 0

return

end if

end tell

set getTime to do shell script "date '+%m%d%H%M%S'"

set tgt_file to "screen_" & (getTime as string) & ".png" --pngがデフォルト

set txt_file to "screen_" & (getTime as string) & ".txt"

do shell script "mkdir -p ~/Downloads/ScreenShot/"

do shell script "screencapture -s ~/Downloads/ScreenShot/" & tgt_file

tell application "Adobe Acrobat"

activate

open (path to home folder as string) & "Downloads:ScreenShot:" & tgt_file as alias

end tell

tell application id "com.apple.systemevents"

tell application process "Acrobat Pro" --注意!! "Adobe Acrobat"ではない。

try

click menu bar item 4 of menu bar 1

click menu item 12 of menu 1 of menu bar item 4 of menu bar 1 --テキストと画像を編集

click menu item 9 of menu 1 of menu bar item 4 of menu bar 1 ---すべてを選択？

end try

end tell

end try

tell application "Adobe Acrobat"

activate

set NewFilepath to (path to home folder as string) & "Downloads:ScreenShot:" & txt_file

save front document to file NewFilepath using conversion "com.adobe.acrobat.plain-text"

close front document saving no

end tell

try

set getText to (do shell script "textutil -cat txt -stdout " & quoted form of (POSIX path of NewFilepath))

set the clipboard to getText

end try

delay 0.5

try

tell application "Finder" to set visible of (application process "Acrobat Pro" of application "Finder") to false --Acrobatを隠す

end try

activate

set res to display dialog "●クリップボードにもテキストが記録されています。" & return & return & "テキストが取得できない場合は、\nシステム環境設定　＞\nセキュリティーとプライバシー　＞　アクセシビリティ　＞\nでスクリプトを再チェックしてください。" & return default answer getText