jaminth 发表于 2008-5-7 13:17:00

能不能通过LISP，关闭WORD ？

下面这段LISP，可以打开WORD。。。。
抛砖引玉。。。。。求助各位，，能不能也通过LISP，关闭WORD ？
(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 发表于 2008-5-7 14:33:00

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

sailorcwx 发表于 2008-5-7 14:44:00

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

董堃 发表于 2008-5-7 23:36:00

厉害，佩服

mp13119 发表于 2010-6-9 21:13:00

敢问如何控制word字体大小啊？
页: [1]
查看完整版本: 能不能通过LISP，关闭WORD ？