von Hubi » Mi, 26.01.2005 21:10
Hallo Lukanga, hattets Du Num Locjk angeschaltet ? Wenn das ausgeschaltet ist klappt das mit dem ä auch nicht. Hier der Text des Makros
sub AUml
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
args1(0).Value = "ä"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
end sub
kopiere den Text heraus und erzeuge ein leeres Makro, dann Makro bearbeiten un den Code einfügen. Nenne das Makro auch AUml. Es muß der ganze Text von Sub AUml bis end sub eingefügt werden.
Hallo Lukanga, hattets Du Num Locjk angeschaltet ? Wenn das ausgeschaltet ist klappt das mit dem ä auch nicht. Hier der Text des Makros
sub AUml
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
args1(0).Value = "ä"
dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())
end sub
kopiere den Text heraus und erzeuge ein leeres Makro, dann Makro bearbeiten un den Code einfügen. Nenne das Makro auch AUml. Es muß der ganze Text von Sub AUml bis end sub eingefügt werden.