【Gu_xl】Lisp操控Word编程技术

fanpaulm

感谢G版分享!

huwei731516131

学无止境6666666666

gason

高难度动作。

806331126

谢谢分享这么好的东西

tong123

标记一下，日后学习

freejike

都是些大神

qtshz

感谢分享！

snddd2000

gu版，请教个问题，lisp操作word替换文字的函数的参数怎么写？
(vlax-invoke-method
  Find                 'Execute ...）我写的出现下面的错误
error: Automation 错误。 数值超出范围
是不是数据类型必须转化成Variantmark一下
测试通过，之前的出错是因为两个冲突的参数设置成一样的值（向下和向上搜索）。

1. (vlax-invoke-method  Find  'Execute
   
2.   "要被替换的文字" ;_FindText
   
3.   :vlax-true ;_MatchCase
   
4.   :vlax-true ;_MatchWholeWord
   
5.   :vlax-false ;_MatchWildcards
   
6.   :vlax-false ;_MatchSoundsLike
   
7.   :vlax-false ;_MatchAllWordForms
   
8.   :vlax-true ;_Forward
   
9.   :vlax-false ;_Wrap
   
10.   :vlax-false ;_Format
    
11.   "需要出现在被替换处的文字" ;_ReplaceWith
    
12.   2 ;_Replace
    
13.   :vlax-false ;_MatchKashida
    
14.   :vlax-false ;_MatchDiacritics
    
15.   :vlax-false ;_MatchAlefHamza
    
16.   :vlax-false ;_MatchControl
    
17. )

(vlax-invoke-method  Find  'Execute<br />   "要被替换的文字" ;_FindText<br />   :vlax-true ;_MatchCase<br />   :vlax-true ;_MatchWholeWord<br />   :vlax-false ;_MatchWildcards<br />   :vlax-false ;_MatchSoundsLike<br />   :vlax-false ;_MatchAllWordForms<br />   :vlax-true ;_Forward<br />   :vlax-false ;_Wrap<br />   :vlax-false ;_Format<br />   "需要出现在被替换处的文字" ;_ReplaceWith<br />   2 ;_Replace<br />   :vlax-false ;_MatchKashida<br />   :vlax-false ;_MatchDiacritics<br />   :vlax-false ;_MatchAlefHamza<br />   :vlax-false ;_MatchControl<br /> )

renhaitao_nice

想知道这是怎么总结出来的

bluefcc1

下載學習，謝謝版主!