word中如何获得当前打开的word文档的所在路径

key7000

我用curdir总是只能获得当前临时文件夹的路径，不知怎么办？其实属性里面就有，不知怎样获得？

ququ

Dim Filepath As String
Dim RetVal
Filepath = Me![文件位置]
Select Case Me![文件类型]
Case "DOC"
RetVal = Shell("Winword " & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
Case "XLS"
RetVal = Shell("excel " & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
'Case "DF"
'RetVal = Shell("D:\tools\Acrobat 6.0\Reader\AcroRd32.exe" & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
Case "TXT"
RetVal = Shell("notepad " & Chr(34) & Filepath & Chr(34), vbMaximizedFocus)
End Select

duzili

二楼的，有这么复杂么？？？？？？？？？
'=============================================
本示例显示活动文档的路径和文件名。

MsgBox ActiveDocument.Path & Application.PathSeparator & _
    ActiveDocument.Name

本示例将当前路径改变为活动文档的模板的路径。

ChDir ActiveDocument.AttachedTemplate.Path

本示例显示 AddIns 集合中第一个加载项的路径。

If AddIns.Count >= 1 Then MsgBox AddIns(1).Path