lisp如何调用Word的查找替换函数
(setq Rtn (vlax-get-object "Word.Application"))(setq Activedoc (vla-get-ActiveDocument Rtn))
(setq myRange(vlax-get-property Activedoc 'Content))
(setq Find(vlax-get-property myRange 'Find))
(setq DoFind(vlax-invoke-method Find 'Execute"工程名称""1234"))
我也是找类似的WORD函数 高手们能不能解决一下,谢谢!
页:
[1]