(vl-load-com)
(cond
((null msw-wd100Words) (setq a 1))
)
(if (= a 1) (princ "设置失败!") (princ "设置成功!"))
(setq sysdrv (getenv "systemdrive"))
(setq tlbfile (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office12\\msword.olb")))
(vlax-import-type-library
:tlb-filename tlbfile
:methods-prefix "msw-"
:properties-prefix "msw-"
:constants-prefix "msw-"
)
(if mswc-wd100Words (princ "设置成功!") (princ "设置失败!"))
(setq appsession (vlax-create-object "word.Application"))
(vlax-invoke-method (vlax-get-property appsession 'documents) 'Add)
(vla-put-visible appsession 1)