T
Tobias Weber
Hi,
got the following script from somewhere (Google doesn't find it) and
only modified the replace strings. I use this on Japanese text to make
single paragraph breaks into soft line breaks. Unfortunately it only
works *sometimes* but usually does absolutely nothing.
tell application "Microsoft Word"
set docRange to text object of selection
clear formatting of find object of docRange
execute find (find object of docRange) find text "^p^p" replace with
"•" replace replace all without match sounds like
clear formatting of find object of docRange
execute find (find object of docRange) find text "^p" replace with
"^l" replace replace all without match sounds like
clear formatting of find object of docRange
execute find (find object of docRange) find text "•" replace with
"^p" replace replace all without match sounds like
end tell
got the following script from somewhere (Google doesn't find it) and
only modified the replace strings. I use this on Japanese text to make
single paragraph breaks into soft line breaks. Unfortunately it only
works *sometimes* but usually does absolutely nothing.
tell application "Microsoft Word"
set docRange to text object of selection
clear formatting of find object of docRange
execute find (find object of docRange) find text "^p^p" replace with
"•" replace replace all without match sounds like
clear formatting of find object of docRange
execute find (find object of docRange) find text "^p" replace with
"^l" replace replace all without match sounds like
clear formatting of find object of docRange
execute find (find object of docRange) find text "•" replace with
"^p" replace replace all without match sounds like
end tell