VBA如何设置路径,使文件夹移动时,仍能打开某一文档?

只要excel和word放在同一个路径就行了，先获取excel自己所在的路径，然后打开word文档即可。
pth=Thisworkbook.Path
If
right(pth,1)
<>
"\"
then
pth=
pth
&
"\"
Set
odoc
=
docApp.
Documents
.Open(pth
&
"3-B02-01
在用压力容器全面
检验报告
_v1_0.doc")
如果不在同一个路径，只要相对位置是固定的也可以使用类似方法来实现。