【Gu_xl】Lisp操控Word编程技术

xujinhua

强大啊，谢谢！！！！

283528149

请问可以另存为PDF吗？

845245015

服了，这也可以

juliana207

MARK!!!!!!!!!!!!!!!!!!

好饿

感谢分享！！！

shutiao

谢谢楼主分享

shutiao

感谢版主  

cad_fans

厉害，正在研究怎么导出word

shutiao

厉害厉害  马克

ht1480

snddd2000 发表于 2018-3-9 16:05
gu版，请教个问题，lisp操作word替换文字的函数的参数怎么写？
(vlax-invoke-method
  Find              ...

(setq word (vlax-create-object "Word.Application"))
(vlax-put-property word 'Visible 1)
(setq docs (vlax-get-property word 'Documents))
(setq doc (vlax-invoke-method docs 'Open "C:/Users/Administrator/Desktop/测试.doc"))
(setq range (vlax-get-property doc 'Content))
(setq find (vlax-get-property range 'Find))
(vlax-invoke-method find 'ClearFormatting)
(setq thq "b792")
(setq thh "BBBB")
;(vlax-invoke-method find 'Execute "BBBB" :vlax-true :vlax-true :vlax-false :vlax-false :vlax-false :vlax-true :vlax-false :vlax-false "b792" 2 :vlax-false :vlax-false :vlax-false)
;(vlax-invoke-method find 'Execute "b792" :vlax-true :vlax-true :vlax-false :vlax-false :vlax-false :vlax-true :vlax-false :vlax-false "BBBB" 2 :vlax-false :vlax-false :vlax-false)
(vlax-invoke-method find 'Execute thq :vlax-true :vlax-true :vlax-false :vlax-false :vlax-false :vlax-true :vlax-false :vlax-false thh 2 :vlax-false :vlax-false :vlax-false)
;(vlax-invoke-method find 'Execute (cons 'Replace 'wdReplaceAll) (cons 'Forward 1))
(vlax-invoke-method doc 'SaveAs "D:/New.docx" )
  (vlax-invoke-method doc 'Close)
  (vlax-invoke-method word 'Quit)