OpenOffice.info

Code: Alles auswählen

Sub EnterUnicodeChar
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim unicode as string
dim unicodeVal as long

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem read unicode from dialog box
unicode = INPUTBOX("Enter unicode in decimal form - or hexadecimal form, where it has to start with &H:", "Enter Unicode Character by its Decimal or Hexadecimal Code")

rem print character in document
dim args7(1) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Symbols"
unicodeVal = clng(unicode)
args7(0).Value = chr(unicodeVal)
args7(1).Name = "FontName"
args7(1).Value = "Lucida Sans Unicode"
dispatcher.executeDispatch(document, ".uno:InsertSymbol", "", 0, args7())

End Sub