Mehrere Word Dateien zusammenfügen

[ueei.net]

Hallo,

ich habe ein Word File, an das ich noch weitere Word Files anhängen möchte. D.h. die erste Seite ist immer gleich, die anderen werden je nach Bedarf zusammengestellt.

Hat wer einen Tipp, wie ich das angehen kann?

Danke.

[s.h.a.r.k]

Ja gut... Das ist wahrlich nicht so einfach!

Schon mal probiert, zwei Word-Dateien einzeln hintereinanderzuhängen?! Also einzeln einlesen und dann schreiben?! Ich denk zwar nicht dass das geht, aber eine Versuch ist es ja wert!

Ansonsten fällt mir da noch was ein:
Du kannst Word aus deinem eigenen Programm heraus steuern. Hab ich auch schon gemacht! Ist zwar teilweise eine komplexere Arbeit aber es geht! Dann kannst du ja beide Dokumente öffnen. Den Text der an die erste Seite angehängt werden soll in das dafür vorgesehene Dokument einfügen und dieses dann wiederrum in ein neues drittes Dokument speichern!
Dazu musst du dir mal die Komponenten TWordDocument und TWordApplication anschauen - soweit ich mich aber noch daran erinnere gibt es leider keine Hilfe! Musst halt dann ausprobieren!

mfg shark

[Keldorn]

Hallo

das eine Dokument öffnen, den cursor ans ende setzen und dann "Word menu: einfügen->Datei" dann wird die ausgewählte Datei eingefügt. Zeichne dir diese Vorgehensweise als Makro auf, schau es dir in VB an und setz es Delphi um (Twordapllication, wie mein Vorredner schon sagte) . Mit der Forensuche zu Word oder halt Wordapplication findest du auch einige Beispiele, wie es geht.

Probiers erstmal, sonst meld dich wieder.

Mfg Frank

[toms]

Zitat:

Zitat von Keldorn

das eine Dokument öffnen, den cursor ans ende setzen und dann "Word menu: einfügen->Datei" dann wird die ausgewählte Datei eingefügt.

Das sieht etwa so aus.

Delphi-Quellcode:

function MSWord_InsertFile(const FileName: string): Boolean; 
var 
  Word: OLEVariant; 
begin 
  // Referenz auf die IDispatch-Schnittstelle des aktiven Word-Objekts 
  // ermitteln 
  try 
    Word := CreateOleObject('Word.Application'); 
  except 
    // Fehler aufgetreten
    Exit; 
  end; 
  // Dokument öffnen
  ...
  .... 
  // Datei einfügen
  Word.Selection.InsertFile(FileName); 
  Word := Unassigned; 
end;

[AgentAS]

Hallo zusammen,

hat ja nichts mit der Frage meines Vorschreibers zu tun, ist aber auch eine Frage auf Word bezogen. Möchte gerne Word aus Delphi heraus drucken können, ohne in Word den Druckenbutton zu betätigen.
Hier der Quellcode.

Delphi-Quellcode:

    try
      word := CreateOleObject('Word.Application');
    except
      ShowMessage('Word konnte nicht gestartet werden!');
    end;
    
    word.Visible := True;
    word.Documents.Open(FileName := ExtractFilePath(ParamStr(0)) + 'BEGLEITSCHREIBEN-   RECHTSANWALT.doc');

    word.ActiveDocument.FormFields.Item('Name').Result := CBRechtsA.Text;
    word.ActiveDocument.FormFields.Item('Strasse').Result := EditRechtsAStrasse.Text;
    word.ActiveDocument.FormFields.Item('Plz').Result := EditRechtsAPLZ.Text;
    word.ActiveDocument.FormFields.Item('Ort').Result := EditRechtsAOrt.Text;
    word.ActiveDocument.FormFields.Item('Datum').Result := DatetoStr(Date);
    word.ActiveDocument.FormFields.Item('Mandant').Result := EditVName.Text + ' ' + EditName.Text;
    word.ActiveDocument.FormFields.Item('GaNr').Result := EditGaNr.Text;

Hab schon in der Hilfe geschaut finde aber nichts.

Gruß

Andreas

[toms]

Delphi-Quellcode:

word.ActiveDocument.PrintOut(False);

?

[ueei.net]

Hallo,

funktioniert ja super das Zusammenfügen, nur würde ich gerne vorher noch an das ende der geöffneten Datei springen, damit die Seiten auch wirklich nachher eingefügt werden (da meine Datei schon mehrere Seiten hat).

lg

[toms]

Um ans Ende des Dokuments zu gelangen,

Delphi-Quellcode:

Word.Selection.EndKey(Unit:=wdStory)

{const
wdStory = $00000006;}

[Luckie]

Zitat:

Zitat von AgentAS

hat ja nichts mit der Frage meines Vorschreibers zu tun,

Dann mach auch bitte dazu einen neuen Thread auf.