VLISP处理WORD的代码

Lisphk

(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

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

kqqt6236

这个先进啊。

xvjiex

感谢分享VLISP处理WORD的代码

hh_lj007

感谢分享处理Word的代码

yhly555

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