Si tratta di una macro per LibreOffice, con l’estensione Traduttore; ho copiato, da un sito per imparare inglese, un elenco di verbi inglesi, non tradotti; cos\u00ec ho cercato di velocizzare il prcesso di traduzione e aggiunta della parola tradotta a fianco di quella originale.<\/p>\n
Riporto la soluzioone, dal sito AskLibreOffice:<\/p>\n
\nSolved, with the help of macro’s author!<\/p>\n
This is my macro
\nsub translate_word
\nrem ———————————————————————-
\nrem define variables
\ndim document as object
\ndim dispatcher as object
\nrem ———————————————————————-
\nrem get access to the document
\ndocument = ThisComponent.CurrentController.Frame
\ndispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)<\/p>\n
rem ———————————————————————-
\ndim args1(0) as new com.sun.star.beans.PropertyValue
\nargs1(0).Name = “Language”
\nargs1(0).Value = “Current_Italian (Italy)”<\/p>\n
dispatcher.executeDispatch(document, “.uno:LanguageStatus”, “”, 0, args1())<\/p>\n
rem–nuovo inserim inizio
\n Dim oScriptProvider, oScript
\n oScriptProvider = ThisComponent.getScriptProvider()
\n oScript = oScriptProvider.getScript(“vnd.sun.star.script:TradutorLibreText.py$TradutorLibreText?language=Python&location=user”)
\n oScript.invoke(array(), array(), array())
\nrem–nuovo inserim fine
\nrem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:WordLeftSel”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:Copy”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:Undo”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:Undo”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:GoToEndOfLine”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndim args7(0) as new com.sun.star.beans.PropertyValue
\nargs7(0).Name = “Text”
\nargs7(0).Value = ” ”<\/p>\n
dispatcher.executeDispatch(document, “.uno:InsertText”, “”, 0, args7())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:Paste”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndim args9(0) as new com.sun.star.beans.PropertyValue
\nargs9(0).Name = “Text”
\nargs9(0).Value = “)”<\/p>\n
dispatcher.executeDispatch(document, “.uno:InsertText”, “”, 0, args9())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:GoToPrevWord”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:GoToPrevWord”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndim args12(0) as new com.sun.star.beans.PropertyValue
\nargs12(0).Name = “Text”
\nargs12(0).Value = “(”<\/p>\n
dispatcher.executeDispatch(document, “.uno:InsertText”, “”, 0, args12())<\/p>\n
rem ———————————————————————-
\ndim args13(1) as new com.sun.star.beans.PropertyValue
\nargs13(0).Name = “Count”
\nargs13(0).Value = 1
\nargs13(1).Name = “Select”
\nargs13(1).Value = false<\/p>\n
dispatcher.executeDispatch(document, “.uno:GoLeft”, “”, 0, args13())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:WordRightSel”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndispatcher.executeDispatch(document, “.uno:WordRightSel”, “”, 0, Array())<\/p>\n
rem ———————————————————————-
\ndim args16(1) as new com.sun.star.beans.PropertyValue
\nargs16(0).Name = “Count”
\nargs16(0).Value = 1
\nargs16(1).Name = “Select”
\nargs16(1).Value = true<\/p>\n
dispatcher.executeDispatch(document, “.uno:GoRight”, “”, 0, args16())<\/p>\n
rem ———————————————————————-
\ndim args17(0) as new com.sun.star.beans.PropertyValue
\nargs17(0).Name = “Color”
\nargs17(0).Value = 8421504<\/p>\n
dispatcher.executeDispatch(document, “.uno:Color”, “”, 0, args17())<\/p>\n
rem ———————————————————————-
\ndim args18(2) as new com.sun.star.beans.PropertyValue
\nargs18(0).Name = “FontHeight.Height”
\nargs18(0).Value = 8
\nargs18(1).Name = “FontHeight.Prop”
\nargs18(1).Value = 100
\nargs18(2).Name = “FontHeight.Diff”
\nargs18(2).Value = 0<\/p>\n
dispatcher.executeDispatch(document, “.uno:FontHeight”, “”, 0, args18())<\/p>\n
end sub<\/p>\n","protected":false},"excerpt":{"rendered":"
Si tratta di una macro per LibreOffice, con l’estensione Traduttore; ho copiato, da un sito per imparare inglese, un elenco di verbi inglesi, non tradotti; cos\u00ec ho cercato di velocizzare il prcesso di traduzione e aggiunta della parola tradotta a fianco di quella originale. Riporto la soluzioone, dal sito AskLibreOffice: Solved, with the help of … <\/p>\n