von Stephan » So, 24.01.2021 11:03
Hallo Sigmund,
ich verstehe das Du Dich verletzt fühlst, aber ich verstehe auch F3K, weil Deine Frage zumindest ungeschickt formuliert war, denn das Forum versteht sich als Hilfe zur Selbsthilfe
und es ist zusätzlich geradezu verpönt hier Antworten nicht öffentlich zu geben sondern sie per Email haben zu wollen, weil so gegebene Antworten nicht Allen zugute kommen sondern nur Einzelnen.
Aber inhaltlich:
Woran genau hakt es denn? Das Aufzeichen des Einfügens des Feldbefehls klappt bei mir einwandfrei, und beim Speichern-Unter musst Du doch nur die dAteiadresse weglassen, damit der Dialog erscheint, Insgesamt also z.B.:
Code: Alles auswählen
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(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 2
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = ""
args1(4).Name = "Format"
args1(4).Value = 0
args1(5).Name = "Separator"
args1(5).Value = " "
dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, Array())
end sub
Ansonsten siehe 1.2 und 2. in:
http://www.ooowiki.de/MakrosInstallieren.html
kannst Du mir bitte eine Adresse nennen von Firmen, die so
was gegen Bezahlung machen?
http://www.openoffice.org/bizdev/consultants.html
Gruß
Stephan
Hallo Sigmund,
ich verstehe das Du Dich verletzt fühlst, aber ich verstehe auch F3K, weil Deine Frage zumindest ungeschickt formuliert war, denn das Forum versteht sich als Hilfe zur Selbsthilfe [u]und es ist zusätzlich geradezu verpönt hier Antworten nicht öffentlich zu geben sondern sie per Email haben zu wollen, weil so gegebene Antworten nicht Allen zugute kommen sondern nur Einzelnen.[/u]
Aber inhaltlich:
Woran genau hakt es denn? Das Aufzeichen des Einfügens des Feldbefehls klappt bei mir einwandfrei, und beim Speichern-Unter musst Du doch nur die dAteiadresse weglassen, damit der Dialog erscheint, Insgesamt also z.B.:
[code]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(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 2
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = ""
args1(4).Name = "Format"
args1(4).Value = 0
args1(5).Name = "Separator"
args1(5).Value = " "
dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, Array())
end sub[/code]
Ansonsten siehe 1.2 und 2. in:
http://www.ooowiki.de/MakrosInstallieren.html
[quote]
kannst Du mir bitte eine Adresse nennen von Firmen, die so
was gegen Bezahlung machen?[/quote]
http://www.openoffice.org/bizdev/consultants.html
Gruß
Stephan