Vlisp连接Word初步

eachy · 发表于 2013-4-12 08:56:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Vlisp 和 Excel通讯的例子很多了，这几天和一个朋友探讨Vlisp和Word通讯，一点心得与大家分享。

Word VBA 和Excel VBA都是MS自家东西，很多是相通的，对我这没有VBA基础的结合CAD VBA模型理解 Word VBA模型会更容易些。

首先建立 word 连接

(setq wrdapp (vlax-get-or-create-object "Word.Application"))

获取Documents集合

(setq docs (vlax-get wrdapp 'documents))

在集合中用Open 打开文档

(setq doc (vlax-invoke docs 'open filename))

简单的方法，获取刚刚打开的文档

(setq doc (vla-item docs filename));;此处用刚才的文件名，包括扩展名

获取文档中的所有表格集合

(setq tbs (vlax-get doc 'tables))

获取指定的表格

(setq tb (vlax-get tbs index));;_由 1 排起

获取指定的单元格

(setq cell (vlax-invoke tb 'cell 1 1));_第一行第一列

获取指定单元格的Range

(setq range (vlax-get cell 'Range))

获取该单元格的Text

(setq txt (vlax-get range 'Text))

待续

炫翔 · 发表于 2013-4-12 09:10:05

{:soso_e183:}支持，很简洁！

SmartStar · 发表于 2013-4-12 09:27:06

现在用手机看不到代码，回头电脑好好学习。

Lispboy · 发表于 2013-4-12 09:31:38

eachy老大，能给贴个和EXCEL交互的代码吗？我平时工作和EXCEL接触的比较多，谢谢了。

eachy · 发表于 2013-4-12 16:59:00

CAD Excel 通讯Lisp资料太多了,用Google搜索一箩筐,其中一个
http://web2.airmail.net/terrycad/LISP/GetExcel.lsp

kwok · 发表于 2013-4-12 23:03:47

这个要学习了，支持.:)

yoyoho · 发表于 2013-4-13 07:56:54

感謝分享資料:)

cuyongping · 发表于 2013-4-27 14:54:07

有用~谢谢了

liuyun242 · 发表于 2013-4-30 19:17:21

好东西，谢谢楼主分享！！！！！！！！！:lol

hvacmagicman · 发表于 2013-5-2 10:07:16

支持，很简洁！

sicky111 · 发表于 2013-5-3 01:38:50

这个经典。

eachy · 发表于 2013-7-3 10:24:48

测试: 在已知Word文档表格内写字

;;建立连接
(defun vlx-wrdapp ()
(vlax-get-or-create-object "Word.Application")
)
;;获取文档集合
(defun vlx-wrddocs (wrdapp)
(vlax-get wrdapp 'documents)
)
;;打开文档
(defun vlx-wrdopen (docs fn)
(vlax-invoke docs 'open fn)
)
;;获取指定文件名文档
(defun vlx-wrddoc (docs fn)
(vla-item docs fn)
)
;;获取指定文档内所有表格
(defun vlx-wrdtbs (doc)
(vlax-get doc 'tables)
)
;;获取指定表格，顺序由 1 开始
(defun vlx-wrdtb (tbs index)
(vla-item tbs index)
)
;;获取指定表格的单元格, 行、列由 1 起始
(defun vlx-wrdcell (tb NumRows NumColumns)
(vlax-invoke tb 'cell numrows numcolumns)
)
;;获取指定单元格的 Range
(defun vlx-wrdcellrange (cell)
(vlax-get cell 'Range)
)
;;获取 Range 的 Text
(defun vlx-wrdcell-gettext (range)
(vlax-get range 'Text)
)
;;设置 Range 的 Text
(defun vlx-wrdcell-settext (range string)
(vlax-put range 'Text string)
)
;;保存文档
(defun vlx-wrdsave (wrdapp)
(vlax-invoke wrdapp 'save)
)
(defun c:tt (/ wrdapp fn docs doc tb)
(setq wrdapp (vlx-wrdapp))
(vla-put-visible wrdapp :vlax-true)
(if (setq fn (getfiled "选择DOC文档" "" "DOC;DOCX" 8))
(progn
(setq docs (vlx-wrddocs wrdapp))
(vlx-wrdopen docs fn)
(setq doc (vlx-wrddoc docs fn)
tb (vlx-wrdtb (vlx-wrdtbs doc) 1)
)
(mapcar
'(lambda (cell string)
(vlx-wrdcell-settext
(vlx-wrdcellrange (vlx-wrdcell tb (car cell) (cadr cell)))
string
)
)
'((1 1) (1 2) (2 1) (2 2) (3 1) (3 2))
'("1-1" "1-2" "2-1" "2-2" "3-1" "3-2")
)
)
)
(vlax-release-object wrdapp)
(princ)
)

;;建立连接 
(defun vlx-wrdapp () 
  (vlax-get-or-create-object "Word.Application") 
) 
;;获取文档集合 
(defun vlx-wrddocs (wrdapp) 
  (vlax-get wrdapp 'documents) 
) 
;;打开文档 
(defun vlx-wrdopen (docs fn) 
  (vlax-invoke docs 'open fn) 
) 
;;获取指定文件名文档 
(defun vlx-wrddoc (docs fn) 
  (vla-item docs fn) 
) 
;;获取指定文档内所有表格 
(defun vlx-wrdtbs (doc) 
  (vlax-get doc 'tables) 
) 
;;获取指定表格，顺序由 1 开始 
(defun vlx-wrdtb (tbs index) 
  (vla-item tbs index) 
) 
;;获取指定表格的单元格, 行、列由 1 起始 
(defun vlx-wrdcell (tb NumRows NumColumns) 
  (vlax-invoke tb 'cell numrows numcolumns) 
) 
;;获取指定单元格的 Range 
(defun vlx-wrdcellrange (cell) 
  (vlax-get cell 'Range) 
) 
;;获取 Range 的 Text 
(defun vlx-wrdcell-gettext (range) 
  (vlax-get range 'Text) 
) 
;;设置 Range 的 Text 
(defun vlx-wrdcell-settext (range string) 
  (vlax-put range 'Text string) 
) 
;;保存文档 
(defun vlx-wrdsave (wrdapp) 
  (vlax-invoke wrdapp 'save) 
) 
(defun c:tt (/ wrdapp fn docs doc tb) 
  (setq wrdapp (vlx-wrdapp)) 
  (vla-put-visible wrdapp :vlax-true) 
  (if (setq fn (getfiled "选择DOC文档" "" "DOC;DOCX" 8)) 
    (progn 
      (setq docs (vlx-wrddocs wrdapp)) 
      (vlx-wrdopen docs fn) 
      (setq doc (vlx-wrddoc docs fn) 
     tb (vlx-wrdtb (vlx-wrdtbs doc) 1) 
      ) 
      (mapcar 
 '(lambda (cell string) 
    (vlx-wrdcell-settext 
      (vlx-wrdcellrange (vlx-wrdcell tb (car cell) (cadr cell))) 
      string 
    ) 
  ) 
 '((1 1) (1 2) (2 1) (2 2) (3 1) (3 2)) 
 '("1-1" "1-2" "2-1" "2-2" "3-1" "3-2") 
      ) 
    ) 
  ) 
  (vlax-release-object wrdapp) 
  (princ) 
)

aimisiyou · 发表于 2014-4-20 12:04:56

用lisp怎么在WORD中创建表格呢？

st788796 · 发表于 2014-4-20 12:14:57

aimisiyou 发表于 2014-4-20 12:04
用lisp怎么在WORD中创建表格呢？

这样用lisp累不累！

aimisiyou · 发表于 2014-4-21 10:47:56

回楼上的！我这样问是有原因的，我要把CAD中的图元信息输入到WORD表格中。当然我可以先在WORD中很轻松的做个表格格式，然后命名保存，再用lisp程序将图元信息输入到WORD表格中，这就要做两部工作，但我想一步到位，直接在lisp中创建表格同时将图元信息输入到表格中。编程序不就是为了人偷懒，电脑忙吗？

账号		自动登录	找回密码
密码			立即注册

[他山之石] Vlisp连接Word初步

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

比较两点是否相等，返回值不一样

点评