Dokumente zusammenfügen

11/08/2009 - 10:54 von Werner Kistner | Report spam
Hallo,
ich habe 4 einzelne Dokumente, die ich zu einem Dokument zusammenfügen will.
Das ist ja kein Problem. Jedoch soll jedes einzelne Dokument bei der
Zusammenfügung wieder mit einer neuen Seite beginnen. Unter VB.NET sieht das
Zusammenfügen wie folgt aus.

'***erzeuge neues Doc

oWord = CType(GetObject("", "Word.Application"), Word.Application)
oWord.WindowState = WdWindowState.wdWindowStateMinimize
oWord.Visible = True

'
'***als Erster den letzten Datensatz verwenden, da sonst die Reihenfolge
nicht stimmt.
oWord.Documents.Add(CType("C:\EN\" & Document(3), Object))

If con.FileCounter > 0 Then
For iI = 0 To 2
oWord.Selection.InsertFile("C:\EN\" & Document(iI))
Next
End If

Hat jemand einen Tipp.
Besten Dank
Werner
 

Lesen sie die antworten

#1 Thomas Gahler
11/08/2009 - 17:34 | Warnen spam
Hallo Werner


[...] Jedoch soll jedes einzelne Dokument bei der Zusammenfügung wieder
mit einer neuen Seite beginnen. [...]

For iI = 0 To 2
oWord.Selection.InsertFile("C:\EN\" & Document(iI))
Next


Innerhalb deiner Scheife musst du ein Seitenwechsel einfügen (vor- oder
nachher).
- Selection.InsertBreak wdPageBreak


Übrigens, beim fernsteuern von Word ist die Verwendung des .Range- anstelle
des .Selection-Objektes zu bevorzugen. Ich würde mich gleich von Anfang an
mit diesem Ding beschàftigen.



Thomas Gahler
MVP für Word
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP3), Office XP (SP3)

Ähnliche fragen