领测软件测试网
%uu
Nmh,m&oj.BDkawU MatchAllWordForms := False;
软件测试技术门户^5\o"UdR?od Forward := True;
+_
qb'gS.{ Z Wrap := wdFindContinue; //是否查询下一个
软件测试技术门户9\J*v y0B!Q Format := False;
lFqPDx 软件测试技术门户"t6x#QJO-oY3Y"yz Replace := True;
软件测试技术门户 \y6^5}W-Dp2[i MatchKashida:= false ;
软件测试技术门户e+y*b6~*N
ZG y MatchDiacritics:= false ;
.H9v aN7STyLx MatchAlefHamza:= false ;
u+m[CH MatchControl:= false ;
软件测试技术门户 CXLk-Sm]0X S
`hReplaceWith := ’特殊字符标记法’ ; //替换字符
软件测试技术门户v:fo)MfMi${$Bwith WordDocument1.Range.Find do
+{6m+j%kK
Ff@begin
软件测试技术门户 f-v
y2bPeZJ!i+Q execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl, ReplaceWith);
软件测试技术门户0X;`t$xt&I^end;
软件测试技术门户"l6h/NJt#k7I3}(GL示例中定义的各变量都是OleVariant类型的变量。以上只是针对一个特殊字符标记进行处理的例子。读者可将本例予查询字符中的“cgmc”换成变量,进行循环查询替换,也可以根据特殊字符<#>进行遍历查询替换,且替换内容不仅可以是字符,也可以是图形,甚至可以是图文混排的内容。这可以通过剪贴板实现。
软件测试技术门户*X["CF-YN4X
软件测试技术门户]2SG