Lisp与Word接口的小试验

wangph

(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-"
      :properties-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类型库函数用法的介绍，有些函数不知道如何使用。

enixing

支持一下楼主，我也想研究一下word

jxphklibin

支持楼主，研究word，网上研究的excel较多，但研究word的是在少，所以希望楼主有所成就！

chengzhang

非常感谢楼主的资料，非常及时！

8350

建议把这方面做为多多讨论的议题，也希望论坛高手多一点交流这方面问题，我现在就急解决这方面问题，谢谢楼主，先收下了！

htys24101

想法很好，不过觉得意义大吗？

precon

我试了一下楼主的程序，测试后一点反映也没有啊，不知为什么？

precon

错误提示为： VLA-OBJECT nil

heifeng

操作word还是用别的语言比较好

mafutz

学习了。