VBA打开文档不提示替换字体

山巅清泉

使用 VBA打开文档不提示替换字体，直接忽略没有的字体打开了，有什么设置可以像正常打开DWG时，提示用户没有的字体进行替换的吗？
基本代码如下：

1. dim acaddoc as Acaddocument
   
2. Set acaddoc = Documents.Open("C:\test.dwg", true)

复制代码

试了下用Shell方式可以替换字体，但是这种方式还要判断安装路径啥的，还要再获取句柄，不太懂，也太麻烦。
Shell "C:\Program Files\Autodesk\AutoCAD 2014\acad.exe C:\test.dwg"

另外当然也可以修改acadlt.fmp来提前匹配。

但是现在的需求是：别人的图纸用的什么字体不一定，另一台机器上打开可能需要成某个字体。

求教大神，到底用VBA如何才能提示用户选择字体啊？