能不能通过LISP，关闭WORD ？

jaminth

下面这段LISP，可以打开WORD。。。。
抛砖引玉。。。。。求助各位，，能不能也通过LISP，关闭WORD ？

2. (defun c:word(/ wordpath)
3. (setvar "cmdecho" 0)
4. (vl-load-com)
5. (setq wordpath (strcat (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\11.0\\word\\InstallRoot\" "path") "winword.exe"))
6. (startapp wordpath)
7. (prin1)
8. )

(defun c:word(/ wordpath) (setvar "cmdecho" 0) (vl-load-com) (setq wordpath (strcat (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\11.0\\word\\InstallRoot\" "path") "winword.exe")) (startapp wordpath) (prin1) )

danxingpen

(setq tmp(vlax-get-or-create-object "word.Application"))
(vlax-invoke-method tmp 'QUIT)

sailorcwx

(vl-load-com)
;打开word
(setq word (vlax-get-or-create-object "word.application"))
(vla-put-visible word :vlax-true)
;退出word
(vla-quit word)

董堃

厉害，佩服

mp13119

敢问如何控制word字体大小啊？