OpenOffice.info

Sub Makro1()

Dim tmp_doc As Object

oDocument.close(false)

tmp_doc = oDocument

ActiveDocument.FormFields("RMA").Result = RMA

tmp_doc.FormFields("RMA").Result = RMA

[quote]> Woran liegt das?[/quote]

WAhrscheinlich daran das Du ein faslsches Dokumentobjekt referenzierst, das müßtest Du selbst durch debuggen prüfen indem Du entweder XRAY nutzt oder einfach Msgbox dbg_properties oder Msgbox dbg_methods und schaust was überhaupt noch ansprechbar ist.

Bei einem mehrfach gekürzten Code geben ich nicht gerne eine Prognise auch weil ich den nicht 'einfach so' laugfen lassen kann, ansonsten würde icch ins Blaue rein raten das Folgendes helfen könnte:

Deklariere vor:

[code]Sub Makro1()[/code]

die Variable:

[code]Dim tmp_doc As Object[/code]

füge vor:

[code]oDocument.close(false)[/code]

ein:

[code]tmp_doc = oDocument[/code]

ersetze:

[code]ActiveDocument.FormFields("RMA").Result = RMA[/code]

durch:

[code]tmp_doc.FormFields("RMA").Result = RMA[/code]




Gruß
Stephan