怎样用lisp打开一个word文件，并运行其中的宏
怎样用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)
)
给个链接
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=84603&extra=page%3D2%26filter%3Ddigest%26digest%3D1%26digest%3D1
页:
[1]