Word öffnen Makro dauert sehr lange

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