lisp如何调用Word的查找替换函数

jun353835273

1. (setq Rtn (vlax-get-object "Word.Application"))
   
2. (setq Activedoc (vla-get-ActiveDocument Rtn))
   
3. (setq myRange(vlax-get-property Activedoc 'Content))
   
4. (setq Find(vlax-get-property myRange 'Find))
   
5. (setq DoFind(vlax-invoke-method Find 'Execute  "工程名称"  "1234"  ))

(setq Rtn (vlax-get-object "Word.Application"))<br /> (setq Activedoc (vla-get-ActiveDocument Rtn))<br /> (setq myRange(vlax-get-property Activedoc 'Content))<br /> (setq Find(vlax-get-property myRange 'Find))<br /> (setq DoFind(vlax-invoke-method Find 'Execute  "工程名称"  "1234"  ))

yhly555

我也是找类似的WORD函数

yhly555

高手们能不能解决一下，谢谢！