When I write text in Nisus, my favorite word processor, I usually do it in 12p and have the page zoomed 200%. Now, when I import such files into DEVONthink, the 12p is retained, but there is no zoom feature in DEVONthink, as far as I know. The result is, the text is too small for my old eyes, and I have to adjust it manually to 16p .
Now I’m wondering if this can be automized, for example with a smart rule.
In order for this to work I need to automatically select the text first. Similarly, when the size has been set to 16p I want to deselect the text.
-- Script Format > Body Normal
-- Created by Christian Grunenberg on Sat May 15 2004.
-- Copyright (c) 2004-2014. All rights reserved.
tell application id "DNtp"
try
tell selected text of think window 1
SELECT ALL
set properties to {alignment:justified, font:"Times", size:16, color:{5000, 5000, 5000}, background:{65535, 65535, 65535}}
DESELECT ALL
end tell
end try
end tell
-
How can I replace the pseudo-code (‘SELECT ALL’ and ‘DESELECT ALL’) with correct AppleScript commands in the script above?
-
I’m also not sure whether the first part of the AppleScript “
on performSmartRule(theRecords)
” should be included at all. Should I delete it from the script? -
How can I change the AppleScript above so that it will automatically change the text size in ALL rich text files in all (open) databases?
NB
If someone has a better approach, then please share it with me. I’m open for everything, as long as it automates the size change.