VB之文件绝对路径的获取及Word之邮件合并

Question

请教高手两个问题！

先说第一个：VB之文件绝对路径的获取

是这样，我想获取当前文件所保存的绝对路径。举个例子来说吧：
我有一个Excel_1.xls文件，并且我把它保存在D:\Folder_1\Folder_2\....\Folder_X文件夹下。
那么vb有没有函数能帮我输出“D:\Folder_1\Folder_2\....\Folder_X”？
我知道有个函数Application.StartupPath，但它输出的是Excel【运行程序】的绝对路径，就是安装路径（例：C:\Documents and Settings\xxx\Application Data\Microsoft\Excel\）而不是Excel【文件】的保存路径。

第二个问题：Word之邮件合并
我有个已经做好的word模板，并且，已经做好了与Excel的邮件合并链接。当我每次打开Word时，它都会提示我这个

我知道这是什么意思，但如果我将Excel移动了，再点是就会报错了。他这个是绝对路径，我不知道如有没有办法能把它弄成相对路径？比如我可以将word和Excel放在同一个文件夹中，然后把路径设置成【当前文件夹】下的 某某.xls？

Answer 1

可以通过
ThisWorkbook.PATH
来获取当前EXCEL文件的路径
或
Workbooks("Excel_1.xls").PATH
来获取该文件Excel_1.xls的路径追问

牛X！！
爱 死 你 了！
我就知道一定有个函数，哈哈！
不过我还是想追问一下：这个函数只适用于Excel吗？
你知道，Word也有宏的。如果把这个拿到Word里，该函数也可以获取Word的文件保存路径吗？

追答

在WORD中，有类似的方法，如下：
ThisDocument.Path
取得当前活动文档的路径。
Documents("文件名.doc").Path
取得打开的指定文件名的文件路径

Answer 2

APP.PATH
vb里面是这个
但你是VBA，可能也是，你试试