Office中国论坛/Access中国论坛

标题: word中如何获得当前打开的word文档的所在路径 [打印本页]

作者: key7000 时间: 2003-12-30 05:13
标题: word中如何获得当前打开的word文档的所在路径
我用curdir总是只能获得当前临时文件夹的路径，不知怎么办？其实属性里面就有，不知怎样获得？

作者: ququ 时间: 2003-12-31 00:22
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 时间: 2003-12-31 04:54
二楼的，有这么复杂么？？？？？？？？？
'=============================================
本示例显示活动文档的路径和文件名。

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

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

ChDir ActiveDocument.AttachedTemplate.Path

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)