GetOpenFilename problem

[KK]

Private Sub OriginalFile_Click()

'Returns your full file name.
File_Name = Application.GetOpenFilename("Word Document
(*.doc;*.docx),*.doc;*.docx")

'Hence no len, no name...
If Len(File_Name) = 0 Then Exit Sub

Original_File.Value = File_Name

End Sub


I had try this in excel macro , it works,but it doesn't work in word macro
,why ?

 

[Doug Robbins - Word MVP]

In Word, use the following:

Dim File_Name As String
File_Name = ActiveDocument.FullName
If InStr(File_Name, "\") = 0 Then
MsgBox "The active document has not been saved."
Else
MsgBox "The path\filename of the active document is " & File_Name & "."
End If


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com