xujinhua 发表于 2020-5-25 19:19:37

强大啊，谢谢！！！！

283528149 发表于 2020-7-25 15:48:51

请问可以另存为PDF吗？

845245015 发表于 2020-7-26 20:02:51

服了，这也可以

juliana207 发表于 2020-9-10 21:51:18


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

好饿 发表于 2020-11-28 10:59:47

感谢分享！！！

shutiao 发表于 2021-7-10 23:17:22

谢谢楼主分享

shutiao 发表于 2022-7-8 11:15:50

感谢版主

cad_fans 发表于 2022-8-9 13:45:29

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

shutiao 发表于 2023-2-18 23:39:37

厉害厉害马克

ht1480 发表于 2023-5-12 16:37:54

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)
页: 10 11 12 13 14 15 16 17 18 19 [20] 21
查看完整版本: 【Gu_xl】Lisp操控Word编程技术