怎样用lisp打开一个word文件，并运行其中的宏

zhaohd2003

怎样用lisp打开一个word文件，并运行其中的宏

我只写了打开word，后面不会了，求教各位！
(defun c:test()
(setq APPPath
(vl-registry-read
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Winword.EXE"
"Path"
)
)
(setq APPPath (strcase (strcat APPPath "Winword.EXE")))
(setq filename (GETFILED "选择需要的文件" "" "doc;docx" 2))
(STARTAPP APPPath filename)


)

yjr111

给个链接
http://bbs.mjtd.com/forum.php?mo ... st%3D1%26digest%3D1