OpenOffice.info

Danke das war es. Mit einer Variable hatte ich auch rumgemacht, hatte oDatum aber als object definiert. nun geht es :D

Sub add2DateDispatcher

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 

Dim myDate as String
myDate = DateAdd("ww", 2, Date)

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = myDate

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

End Sub

ich denke, dass hat mit dem Rückgabewert zu tun: definierst Du den nicht, wird ein Variant verwendet, den der dispatcher nicht verarbeiten kann.
Das funktioniert für ein Writer-Dokument:[code]Sub add2DateDispatcher

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Dim myDate as String
myDate = DateAdd("ww", 2, Date)

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = myDate

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

End Sub[/code]

War es das?

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = Date

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

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = DateAdd("ww", 2, Date)

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

Sub example_dateadd
msgbox DateAdd("ww", 2, Date)
End Sub

Moin!

Ich würde zum Zwecke der Fristsetzung gern das Datum automatisiert einfügen, habe dafür folgenden code probiert:

[code]
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = Date

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3())[/code]

Der funkioniert, es wird das aktuelle Datum im Format 12.09.2007 eingefügt. Nun will ich ja beim Frist setzen nicht das aktuelle Datum sondern eines in der Zukunft, exakt 2 Wochen. Also will ich folgenden Code:

[code]
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = DateAdd("ww", 2, Date)

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3())
[/code]

Der mir jedoch den Rücklauf "Objektvariable nicht belegt" beschert.

[code]
Sub example_dateadd
msgbox DateAdd("ww", 2, Date)
End Sub[/code]

liefert eine Box mit dem gewünschten Datum.

Jemand ne Idee?