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

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