
vielen Dank.
Ich habe die angegeben Seite besucht dun auch einiges ausprobiert.
Das Problem bei mir ist das manuelle anlegen von Autotexten ist aufwendig deswegen ahbe ich ebim anlegen ein Macro ausgezeichnet aber es gibt einen kleinen Bug.
Macro:
sub Main
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 = "Group"
args1(0).Value = "mytexts*1"
dispatcher.executeDispatch(document, ".uno:SetActGlossaryGroup", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Group"
args2(0).Value = "mytexts*1"
dispatcher.executeDispatch(document, ".uno:SetActGlossaryGroup", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Group"
args3(0).Value = "mytexts*1"
args3(1).Name = "Name"
args3(1).Value = "Mon"
args3(2).Name = "ShortName"
args3(2).Value = "Monitor"
dispatcher.executeDispatch(document, ".uno:NewGlossary", "", 0, args3())
end sub
Man kann keine neuen Autotexte anlegen da das ersten von Name und Shortname zwar Autotexte erstelen aber er ersetzte s trotzdem durch alte Namen.
Bitte um hilfe

:) vielen Dank.
Ich habe die angegeben Seite besucht dun auch einiges ausprobiert.
Das Problem bei mir ist das manuelle anlegen von Autotexten ist aufwendig deswegen ahbe ich ebim anlegen ein Macro ausgezeichnet aber es gibt einen kleinen Bug.
Macro:
sub Main
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 = "Group"
args1(0).Value = "mytexts*1"
dispatcher.executeDispatch(document, ".uno:SetActGlossaryGroup", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Group"
args2(0).Value = "mytexts*1"
dispatcher.executeDispatch(document, ".uno:SetActGlossaryGroup", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Group"
args3(0).Value = "mytexts*1"
args3(1).Name = "Name"
args3(1).Value = "Mon"
args3(2).Name = "ShortName"
args3(2).Value = "Monitor"
dispatcher.executeDispatch(document, ".uno:NewGlossary", "", 0, args3())
end sub
Man kann keine neuen Autotexte anlegen da das ersten von Name und Shortname zwar Autotexte erstelen aber er ersetzte s trotzdem durch alte Namen.
Bitte um hilfe :)