In my professional work as a translator I often have to translate just select paragraphs of a file, which I have always manually copied and pasted to another Word document, which will be imported into my Computer-Assisted Translation software. It would help my productivity if, when copying the text, it automatically pasted it into the other Word file, with three empty lines (like pressing Return/Enter) between the new copied paragraph and the next (to make these paragraphs that came from distant parts of the document easier to identify compared to e.g. copying several contiguous paragraphs), and keeping the original formatting (so that things like numbers in subscript get carried over).
Searching these forums I found this script by FanaticGuru, which I took out the parts I didn't need and changed trigger hotkey to
{, but it doesn't work when there are two Word files open (it pastes the text onto the same file I copied it from), doesn't maintain the original formatting, and doesn't add three empty lines between each copying.
Code: Select all
F12::
if (Toggle = "")
{
wdApp := ComObjActive("Word.Application")
wdApp.Selection.Range.ListFormat.ApplyOutlineNumberDefault
Toggle := 0
}
Toggle := !Toggle
MsgBox % Toggle ? "Clip to Word: ON" : "Clip to Word: OFF"
return
#if Toggle
{::
Send ^c
ClipWait, 1
wdApp.Selection.TypeText(Clipboard "`n")
return
#If
Thanks a lot!