Hallo und ein Problem
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;