Word öffnen Makro dauert sehr lange
25.04.2003 17:22:25
Robert Abler
verwende folgendes Makro, um einen 604 KB große Word-Datei zu öffnen:
Private Const Pfad = "C:\Daten\Dokumente\Versand\Versand.doc"
Sub Antrag_KAG()
Dim wdAnw As Object
Dim wdDok As Object
Set wdDok = GetObject(Pfad)
Set wdAnw = wdDok.Parent
wdAnw.Visible = True
wdAnw.WindowState = 1
wdAnw.Activate
Set wdDok = Nothing
Set wdAnw = Nothing
End Sub
Das ganze Procedere dauert ca. 15 Sekunden, bis das Word-Dokument geöffnet ist. Kann man diesen Vorgang beschleunigen?
lg
Robert