ActiveDocument.Path ist einfach leer !!!

[Marco]

Hallo zusammen, wenn ich die Datei öffne Funktioniert diese Funktion
ofmals nicht. d.h. sStr bleibt einfach leer. doch wenn ich die Word-Datei mit rechter Maustaste öffnen - öffne dann funktioniert dieser Code.

Was mache ich falsch oder an was kann es liegen? Kann ich evt. diesen
Code anders schreiben.

Es ist so wenn ich die Datei doppelklicke ist ActiveDocument einfach leer!! deshalb findet es dann auch die Corpid.ini nicht. aber wenn ich sie mit rechter maustaste öffne dann ist ActiveDcument der pfad drin. Wieso?

Bitte um Hilfe !!!!!!!

Hier der Code:

'Liest aus der INI Datei (Pfad, Gruppe, Untergruppe)

Count = 1
sLng = "Lang" & CStr(Count)
sStr = System.PrivateProfileString(ActiveDocument.Path & "\Corpid.ini", "Lang", sLng)
While sStr <> ""
Combo_StandardSprache.AddItem sStr
Combo_StandardSprache_Brief.AddItem sStr
Count = Count + 1
sLng = "Lang" & CStr(Count)
sStr = System.PrivateProfileString(ActiveDocument.Path & "\Corpid.ini", "Lang", sLng)
Wend

'#### ENDE ####