Was passiert denn bisher überhaupt? Wird dein bisheriger Versuch überhaupt kompiliert? Mich wundert zum Beispiel, dass bei der Zeile
WordDocument.SaveAs(FileName := 'C:\Dokumente und Einstellungen\topak\Eigene Dateien\Doc.Doc', AddToRecentFiles := False) ;
nicht vom Compiler gemeckert wird. Richtiger wäre (ohne, dass ich jetzt nachgeschaut habe, ob die Parameter generell die richtigen sind) etwa das hier:
WordDocument.SaveAs('C:\Dokumente und Einstellungen\topak\Eigene Dateien\Doc.Doc', False);
Und an der Stelle hier:
WordApplication.Selection.TypeText('Memo_Daten.Lines');
Gibst du nicht die Zeilen deines Memos aus, sondern genau den Text "Memo_Daten.Lines". Richtiger wäre sowas wie:
WordApplication.Selection.TypeText(Memo_Daten.Lines.Text);
Ggf. könntest du auch eine Schleife über die einzelnen Zeilen verwenden, aber als erster Test sollte das reichen.
Vielleicht hast du damit schon mal ein paar Ansätze, wo du suchen kannst, ansonsten bräuchten wir ein paar Tipps, was genau nicht klappt.
Bis denn
Bommel