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)

yhly555 发表于 2023-6-20 11:03:32

是不是有库依赖，提示缺少很多函数？

yhly555 发表于 2023-8-17 21:49:35

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

请问这个是完整的程序，我现在正想做这个。

libo2000 发表于 2023-8-25 01:34:26

(vlax-invoke-method range "Paste")的返回值为nil。请教：如何插入剪贴板图片并返回图片对象？

Hiram.liu 发表于 2024-1-26 10:54:48

:handshake

单恋111 发表于 2024-11-3 20:17:57


谢谢楼主共享代码

阿猪蛋 发表于 2024-11-4 09:02:47

支持！学习！谢谢分享！
页: 11 12 13 14 15 16 17 18 19 20 [21]
查看完整版本: 【Gu_xl】Lisp操控Word编程技术