lisp与word接口的小试验
www.dimcax.com
lisp与word接口的小试验
(defun c:test (/ msw doc paragraphs pg range)
(if (equal nil mswc-wd100words)
(vlax-import-type-library
:tlb-filename
"c:\\program files\\microsoft office\\office11\\msword.olb"
:methods-prefix
"mswm-"
roperties-prefix
"mswp-"
:constants-prefix
"mswc-"
)
)
(setq msw (vlax-get-or-create-object "word.application"))
(vla-put-visible msw :vlax-true)
(if (/= nil msw)
(progn
(setq doc (mswm-add (vla-get-documents msw))
paragraphs (mswp-get-paragraphs doc)
pg (mswp-get-last paragraphs)
range (mswp-get-range pg)
)
(mswp-put-italic range 1)
(mswp-put-underline range mswc-wdunderlinesingle)
(mswm-insertafter
range
"斜体字下划线\n"
)
(setq pg (mswp-get-last paragraphs))
(setq range (mswp-get-range pg))
(mswp-put-italic range 0)
(mswp-put-underline range mswc-wdunderlinenone)
(mswm-insertafter
range
"正常字体\n\n"
)
(vlax-invoke-method
(vlax-get-property msw "activedocument")
"saveas"
"c:\\1111.doc"
)
(mswm-quit msw)
);_end of progn
(alert "no microsoft word application found.")
);_end of if
)
终于试验出来二者的接口，请问班主能否提供些有关word类型库函数用法的介绍，有些函数不知道如何使用。
d
支持一下楼主，我也想研究一下word
d
支持楼主，研究word，网上研究的excel较多，但研究word的是在少，所以希望楼主有所成就！
d