DBMEMO Übergabe nach Word

[blondervolker]

Hallo und ein Problem:oops:

habe mehrere DBedits und ein DBmemofeld.Diese Daten habe ich an MS-Word übergeben.
Alles funktioniert einwandfrei.
Aber beim öffnen des Dokuments kommt eine Fehlermeldung dass die Zeichenfolge
vom Memofeld zu lang sei und es wird der Text vom DBmemo nicht angezeigt.
Ich habe im Worddokument im Textfeld 9 aber "unbegrenzte Textlänge" angegeben.

Woran kann das liegen? :(

Delphi-Quellcode:

procedure TForm1.VorschauinMSWord1Click(Sender: TObject);
begin
word := CreateOleObject('Word.Application');
   word.visible := true;
   word.Documents.Open(FileName:= ExtractFilePath(Paramstr(0)) + 'Bericht-F-2.doc');
   word.ActiveDocument.FormFields.Item('Text1').Result := Form2.DBedit21.text;
   word.ActiveDocument.FormFields.Item('Text2').Result := Form2.DBedit13.text;
   word.ActiveDocument.FormFields.Item('Text3').Result := Form2.DBedit7.text;
   word.ActiveDocument.FormFields.Item('Text4').Result := DBedit110.text;
   word.ActiveDocument.FormFields.Item('Text5').Result := DBedit111.text;
   word.ActiveDocument.FormFields.Item('Text6').Result := DBedit2.text;
   word.ActiveDocument.FormFields.Item('Text7').Result := DBedit3.text;
   word.ActiveDocument.FormFields.Item('Text8').Result := DBedit1.text;
   word.ActiveDocument.FormFields.Item('Text9').Result := DBMemo31.lines.text;

end;

[DeddyH]

- falsche Sparte (ist ja kein Tutorial)
- Crossposts bitte in Zukunft verlinken

[p80286]

Ich bezweifle stark, daß dies funktioniert:

Delphi-Quellcode:

word.ActiveDocument.FormFields.Item('Text9').Result := DBMemo31.lines.text;

ausserdem arbeitet Word mit zwei Stringtypen. Der "Kurze" macht nach 64K zu. Könnte es sein das Dein Feldinhalt zu groß ist?

Gruß
K-H

[blondervolker]

Hallo,

ja das funktioniert ja auch nicht.Es sind ungefähr so um die 3000 bis 4000 Zeichen.
Aber ich komme nicht weiter.:oops: