论坛 › A/VLISP › VLISP处理WORD的代码

Lisphk 发表于 2016-12-26 11:20:05

VLISP处理WORD的代码

(defun READFILE        (fnm)
(if (null wdc-wd24HourClock)
    (vlax-import-type-library
      :tlb-filename
      "C:\\Program Files\\Microsoft
Office\\Office\\msword9.olb"
      :methods-prefix
      "wdm-"
      :properties-prefix
      "wdp-"
      :constants-prefix
      "wdc-"
   ) ;_ end of vlax-import-type-library
) ;_ end of if

(setq wdob (vlax-Create-Object "Word.Application"))
(setq        wdoc (wdm-open (vla-get-documents wdob)
                     pmf
                     T
                     T
                     nil
                     ""
                     nil
                     nil
                     nil
                     nil
                     nil
                     nil
                     :vlax-true
             ) ;_ end of wdm-open
) ;_ end of setq

(alert (strcat "Connected to MS Word\n" "\n" pmf))

(if (and wdoc (not (vlax-object-released-p wdoc)))
    (progn
      (vlax-invoke-method wdoc 'Close)
      (vlax-release-object wdoc)
    ) ;_ end of progn
) ;_ end of if
(if (and wdob (not (vlax-object-released-p wdob)))
    (progn
      (vlax-invoke-method wdob 'Quit)
      (vlax-release-object wdob)
    ) ;_ end of progn
) ;_ end of if

(setq        wdoc nil
        wdob nil
) ;_ end of setq
(gc)
(gc)
(princ)
) ;_ end of defun



"C:\\Program Files\\Microsoft
Office\\Office\\msword9.olb" 根据需要改成自己机器的WORD版本。


导入WORD 的ACTIVEX 库后，可以用 (vlax-dump-object wdob t)查看支持的方法和属性

zhangq_cai1 发表于 2016-12-26 17:52:16

正需要，支持楼主大人了！

kqqt6236 发表于 2016-12-27 22:06:06

这个先进啊。

xvjiex 发表于 2021-11-24 00:12:19

感谢分享VLISP处理WORD的代码

hh_lj007 发表于 2021-11-24 09:43:07

感谢分享处理Word的代码

yhly555 发表于 2023-8-31 21:40:31

错误: 参数类型错误: VLA-OBJECT nil

happyending 发表于 2025-12-4 07:56:03

我也来学习一下。感谢分享。

查看完整版本: VLISP处理WORD的代码