Hallo,
ich habe ein Problem mit etwa folgendem Code:
Private WD As Object
Dim strFile As String
Dim intDocCount As Integer
[...]
Set WD = CreateObject("Word.Application")
[...]
With WD.Selection
.SetRange 0, 0
For r = 0 To intDocCount - 1
.InsertFile strFile & IIf(r > 0, CStr(r), "")
.InsertBreak (wdPageBreak)
Next r
End With
Erläuterung: Es werden zunächst verschiedene Dokumente erstellt mit den Namen strFile.doc, strFile1.doc, strFile2.doc..., dann diese zu einem Dokument zusammengefügt. Dabei wird immer zwischen zwei ursprünglichen Dokumenten ein Seitenumbruch eingefügt.
Problem: Bei mir und meinen Kollegen funktioniert es, bei einem Kunden aber wird das erste Dokument (strFile.doc) zwar richtig erstellt und gespeichert, kann aber aus unerfindlichen Gründen nicht in das Gesamtdokument eingefügt werden. Alle anderen Dokumente werden richtig zusammengefügt.
Woran kann das liegen?
Besten Dank im Voraus
Gruß Reni
ich habe ein Problem mit etwa folgendem Code:
Private WD As Object
Dim strFile As String
Dim intDocCount As Integer
[...]
Set WD = CreateObject("Word.Application")
[...]
With WD.Selection
.SetRange 0, 0
For r = 0 To intDocCount - 1
.InsertFile strFile & IIf(r > 0, CStr(r), "")
.InsertBreak (wdPageBreak)
Next r
End With
Erläuterung: Es werden zunächst verschiedene Dokumente erstellt mit den Namen strFile.doc, strFile1.doc, strFile2.doc..., dann diese zu einem Dokument zusammengefügt. Dabei wird immer zwischen zwei ursprünglichen Dokumenten ein Seitenumbruch eingefügt.
Problem: Bei mir und meinen Kollegen funktioniert es, bei einem Kunden aber wird das erste Dokument (strFile.doc) zwar richtig erstellt und gespeichert, kann aber aus unerfindlichen Gründen nicht in das Gesamtdokument eingefügt werden. Alle anderen Dokumente werden richtig zusammengefügt.
Woran kann das liegen?
Besten Dank im Voraus
Gruß Reni