Vba MS Word宏-将系统变量用于模板路径

我有一个包含多个宏的模板，该模板将分布在多个设备上

我有以下宏使用ms word的快速部分插入文本

Application.Templates( _


"C:\Users\user_name\AppData\Roaming\Microsoft\Word\STARTUP\template_name.dotm" _
    ).BuildingBlockEntries("alphabet").Insert Where:=Selection.Range, _
    RichText:=True
ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions

问题是，代码包含模板的绝对路径，在不同的机器上，绝对路径是不同的

我尝试过改用

%Appdata%

，但宏没有做任何操作，也没有错误消息

这有什么办法吗

---

谢谢

您可以在VBA代码中使用环境变量来获取“用户名”，即

"C:\Users\" & LCase(Environ("UserName")) & "\AppData\Roaming\.."

---

这里有一个链接可以显示其他变量（或者只搜索“VBA using environmental variables”（不带引号：

如何获取%Appdata%？是否使用Environ（“Appdata”）？我在路径中直接使用了

%Appdata%

，认为它会扩展。不知道

Environ

，谢谢！