Object:  Application.ActiveDocument.nameProp

The value returned for this document is "GetName"  Neither the extension nor the path are included with the nameProp property.

Function GetName() As String
   'Tested 20090208
   On Error GoTo errHandler1
   GetName = Application.ActiveDocument.nameProp
   Exit Function
errHandler1:
   'Notify user of failure.
   MsgBox "GetName has failed", _
   vbCritical, "Function Failure"
End Function

 

 

Valid XHTML 1.0 Transitional        Valid CSS!