I’d like to add to a general reformatting script for RTF files to remove blank/empty lines. Any suggestions?
One possibility would be to use WordService’s “Reformat” service or the similar AppleScript command “reformat” of DEVONthink’s text suite. If the result isn’t the desired one, then you have to script visible rich text at the moment, e.g. here’s an old script:
tell application id "DNtp"
tell text of think window 1
set i to 1
set cnt to number of paragraphs
repeat while i ≤ cnt
if length of ((text of paragraph i) as string) is 1 then
set text of paragraph i to ""
set cnt to cnt - 1
else
set i to i + 1
end if
end repeat
end tell
end tell
This is perfect. Many thanks!