OpenOffice.info

Hallo
mein Hhrgedanke:
Ich habe in der symbolleiste ein feld das ich anklicke, daraufhin entsteht an einer bestimmten stelle ein text ...wenn ich nochmal klicke verschwindet der text wieder!

mein Versuch:
Ich versuche erstmal mit einem Makro einen Textrahemn zu erstellen der nicht mitgedruckt wird, der an der seite verankert ist und in den ich dann mit autotext einen Txt einfüge (alles mit einem Makro)!
Ich klicke auf makro aufzeichnen, Rahmen erstellen, eigenschaften eingeben, fertig ...rahmen ist da wo ich ihn haben will so wie alles sein soll... klicke erstmal auf makroaufzeichnung beenden um den schritt zu testen. Speichere das makro ab und führe es dann aus! wupps alle einstellungen sind falsch!
Wenn ich direkt den autotext einfüge, kommt zwar auch der text aber rahmen ist weg und ich kann den ort wo die schrift hin soll nicht mehr bestimmen.

mein Problem:
Wenn ich das alles einstelle wie ich es haben will, und das makro speichere und dann ausführe ist der rahmen zwar in der richtigen größe aber nicht an der richtigen stelle und die eigenschaften des rahmens sind auch falsch!
Was mache ich falsch? oder wie erzeuge ich am besten einen rahmen mit einem makro, ...muss ich die ganzen begriffe (programiersprache) kennen, oder woher weis ich was ich in das makro reinschreiben muss damit was bestimmtes passiert?
Ich habe schon versucht Xray zu bekommen habe es aber nicht gefunden der download war irgendwie kaputt!

immoment sieht mein makro so aus!



sub makrogehtnicht
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(4) as new com.sun.star.beans.PropertyValue
args1(0).Name = "AnchorType"
args1(0).Value = 2
args1(1).Name = "Pos.X"
args1(1).Value = 0
args1(2).Name = "Pos.Y"
args1(2).Value = 0
args1(3).Name = "Size.Width"
args1(3).Value = 17000
args1(4).Name = "Size.Height"
args1(4).Value = 499

dispatcher.executeDispatch(document, ".uno:InsertFrame", "", 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(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Group"
args3(0).Value = "mytexts*1"

dispatcher.executeDispatch(document, ".uno:SetActGlossaryGroup", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Group"
args4(0).Value = "mytexts*1"

dispatcher.executeDispatch(document, ".uno:SetActGlossaryGroup", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(1) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Group"
args5(0).Value = "mytexts*1"
args5(1).Name = "ShortName"
args5(1).Value = "S"

dispatcher.executeDispatch(document, ".uno:InsertGlossary", "", 0, args5())


end sub

vielen Dank für eure hilfe!

nochwas wie bekomme ich die makros so schön hier rein wie die anderen???