Re: [de-users] Makro für .uno:Command in Math-OLE object

Hallo Regina,

ich habe keinerlei Ahnung vom Coden, aber in anderem Zusammenhang
hatte ich mal gelesen, dass es eine Möglichkeit geben soll, die
Bildschirm-Aktualisierung vorübergehend auszuschalten, so dass er
sich nicht mehr weiter verändern kann und quasi eingefroren wird, um
sie nach der fraglichen Codestelle erst wieder einzuschalten, so
dass man dieses UI-Aufblitzen einfach nur nicht sehen kann.

Vielleicht wäre das ja auch hier eine Möglichkeit?

 .... und tschüss

            Franklin


Am 04.09.2017 um 17:14 Uhr schrieb Regina Henschel
<rb.henschel@t-online.de>:

> Hallo zusammen,
>
> wenn das Clipboard MathML enthält, dann soll dies in StarMath umgeformt 
> und sofort als Math-OLE object in das Textdokument eingefügt werden. Das 
> will ich zunächst als Makro probieren.
>
> Meine bisherige Lösung ist am Ende der Mail. Das funktioniert im 
> Prinzip. Aber es ist optisch nicht schön, dass zwischendurch die UI von 
> StarMath erscheint. Gibt es eine Möglichkeit das Kommando 
> .uno:InsertMathMLClipboard auch ohne die UI durchzuführen? Auf das 
> Kommando kann ich leider nicht verzichten, weil dort die ganze Umformung 
> drinsteckt.
>
> Langfristig möchte ich das Ganze im Code haben. Wenn jemand dazu Tipps 
> oder Hinweise hat, würde mich das auch freuen.
>
> Mit freundlichem Gruß
> Regina
>
>
>
> Sub PasteSpecialMathML
> dim bOK as boolean: bOK = FALSE
> dim oDocument as variant: oDocument = ThisComponent
> dim oCurrentController as variant: oCurrentController = 
> oDocument.getCurrentController()
> dim oXCOEO as variant
> dim oMathOLE as variant
> dim oMathFrame as variant
> dim oDispatcher as variant
> oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>
> rem  Verify, that clipboard contains MathML
> dim oService as variant
> oService = 
> createUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
> dim oContents as variant
> oContents = oService.Contents
> dim oVecTransferDataFlavors() as variant
> oVecTransferDataFlavors = oContents.TransferDataFlavors
> dim nIter as integer
> dim nEnd as integer: nEnd = UBound(oVecTransferDataFlavors)
> dim oCssDatatransferDataFlavor as variant
> dim sMime as string
> dim sHuman as string
> dim nDataFlavorIndex as integer: nDataFlavorIndex = nEnd+1
> For nIter=0 to nEnd
>       oCssDatatransferDataFlavor = oVecTransferDataFlavors(nIter)
>       sMime = oCssDatatransferDataFlavor.MimeType
>       sHuman = oCssDatatransferDataFlavor.HumanPresentableName
>       if sMime = "application/mathml-presentation+xml" or sMime = 
> "application/mathml+xml" or _
>               sHuman = "MathML" or sHuman = "MathML Presentation" then
>               nDataFlavorIndex = nIter
>               exit for
>       end if  
> next nIter
> if nDataFlavorIndex > nEnd then
>       msgbox("No MathML in Clipboard")
> else
>      oMathOLE = 
> oDocument.createInstance("com.sun.star.text.TextEmbeddedObject")
>       oMathOLE.CLSID = "078B7ABA-54FC-457F-8551-6147e776a997"
>       oMathOLE.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
>       rem  Actually insert oMathOLE at cursor position in the document
>       oMathOLE.attach(oCurrentController.Selection.getByIndex(0) )
>       oMathOLE.LeftMargin = 0
>       oMathOLE.RightMargin = 0
>       oMathOLE.Model.BaseFontHeight = oMathOLE.Anchor.CharHeight
>       rem  Use the command ".uno:ImportMathMLClipboard" which does the convertion
>       rem  from MathML to StarMath
>       oXCOEO = oMathOLE.ExtendedControlOverEmbeddedObject     
>       oXCOEO.doVerb(com.sun.star.embed.EmbedVerbs.MS_OLEVERB_OPEN)            
>       oMathFrame = oMathOLE.Model.CurrentController.Frame
>       oDispatcher.executeDispatch(oMathFrame, ".uno:ImportMathMLClipboard", 
> "", 0, Array())
>       bOK =  oMathOLE.Model.Formula<>""
>       oDispatcher.executeDispatch(oMathFrame, ".uno:CloseDoc", "", 0, Array())
>       if NOT bOK then
>               msgbox("Convertion to StarMath is not possible.")
>               oDispatcher.executeDispatch(oCurrentController.Frame, 
> ".uno:SwBackspace", "", 0, Array())   
>       end if          
> end if
> End Sub


-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert