Microsoft Excel

Herbers Excel/VBA-Archiv

Word-Serienbrief

Betrifft: Word-Serienbrief von: Klaus
Geschrieben am: 31.08.2004 12:14:40

Hallo zusammen
Ich starte von Excel aus ein Word-Serienbrief mit dem folgenden Code:

Dim wApp As Object
Set wApp = CreateObject("Word.Application.8")
With wApp
.Application.Visible = True
.Application.Activate
Word-Dokument laden und anzeigen
sWordFilename = "C:\Ausbildung\Terminplanung HSE-Schulung\Serienbrief.doc"
.Documents.Open sWordFilename
End With

Den Code habe ich in der Recherche gefunden. Das Problem ist, es dauert ewig lange, gibt es eine andere Möglichkeit??

Gruss Klaus

  


Betrifft: AW: Word-Serienbrief von: FloGo
Geschrieben am: 31.08.2004 13:55:13

Hallo Klaus

Ich benutze meistens den hier:

Dim myWord As Object
Set myWord = GetObject("C:\Ausbildung\Terminplanung HSE-Schulung\Serienbrief.doc")
myWord.Application.Documents.Open "C:\Ausbildung\Terminplanung HSE-Schulung\Serienbrief.doc"

ob er schneller ist, weiss ich nicht?
Vielleicht konnte ich dir ja helfen!
FloGo


  


Betrifft: AW: Word-Serienbrief von: Klaus
Geschrieben am: 31.08.2004 14:30:51

Hallo FloGo
Es liegt einfach daran, dass das Öffnen der Serienbriefvorlage so lang dauert. ich habe weiter oben im Forum mein Problem nochmals geschildert.
Trotzdem vielen Dank für deine Hilfe
Gruss Klaus