Autor Beitrag
scrato
Hält's aus hier
Beiträge: 1



BeitragVerfasst: Mo 15.06.09 09:50 
Hallo zusammen!

Ich arbeite mit Delphi 6 unter XP und wir sind kürzlich von Office 2000 auf Office 2007 umgestiegen.

Mein Problem ist nun, dass wir verschiedene Anwendungen haben, die Serienbriefe unter Word anstoßen. Unter Word 2000 funktionierte das auch wunderbar. Nach dem Umstieg auf Word 2007 behauptet Delphi standhaft, dass diese Methode oder Eigenschaft (in Zeile 11 des Codes) nicht verfügbar sei, weil das Dokument kein Serienbrief-Hauptdokument ist. Wenn ich den Serienbrief aber manuell aufrufe, tut er seinen Dienst wie gewünscht.

Hier mal mein Code:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
filename:=GetCurrentDir+'\kuvert.docx';
nosave:=False;
WordApplication1.Disconnect;
WordApplication1.Connect;
WordApplication1.Documents.Open(filename,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Visible:=True;
Pause:=True;
WordDocument1.MailMerge.Execute(Pause);
WordDocument1.Close(nosave,EmptyParam,EmptyParam);
WordDocument1.Disconnect;
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);


Wäre ganz toll, wenn mir jemand von euch nen Tipp geben könnte, wie man das Problem am einfachsten löst.

Vielen Dank schon im voraus!

scrato
Keldorn
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 2266
Erhaltene Danke: 4

Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
BeitragVerfasst: Mo 06.07.09 19:58 
Hallo

könnte dieses Problem sein: support.microsoft.co...scid=kb;en-us;825765

Probier mal, was passiert, wenn du ein bereits eingerichtetes Serienbriefdok in Word öffnets, wenn dann diese Meldung kommt, dann wie im link beschrieben vorgehen.

In Delphi selbst erhälst du leider diese nichtssagende Fehlermeldung.

Gruß Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)