易语言WPS替换文本

QQ秦时明月

使用WPS宏录制，改成易语言格式 。不多说有需要的拿去，附件有例子

  

子程序名	返回值类型	公开	备 注
替换内容_WPS	整数型
参数名	类 型	参考	可空	数组	备 注
寻找文本	文本型
替换文本	文本型 WPS替换.zip (13.16 KB, 下载次数: 202) 2018-7-24 00:41 上传 点击文件名下载附件
次数	整数型				默认全部替换

变量名	类 型	静态	数组	备 注
Find	对象
Replacement	对象
Execute	对象
ExecuteReplace	对象
Selection	对象
FindText	变体型			寻找文本
MatchCase	变体型			区分大小写
Wrap	变体型			0为wdFindStop 1为wdFindContinue,2为wdFindAsk
Replace	变体型			是否替换 为2时全部替换
Format	变体型
Direction	变体型
N	整数型

' 由WPS宏录制替换
' Sub Macro1()
' With Selection.Find
' End With
' With Selection.Find
' With .Replacement
' End With
' End With
' Selection.Collapse Direction:=wdCollapseStart '1
' Selection.Find.Execute Replace:=wdReplaceOne '1
' Selection.Collapse Direction:=wdCollapseEnd '0
' Selection.Find.Execute Replace:=wdReplaceNone '0
' Selection.Find.Wrap = wdFindContinue‘1’
' Selection.Find.Replacement.Text = "123"
' End Sub
计次循环首 (次数, )
Selection ＝ WPS对象.读对象型属性 (“Selection”, )
' Selection.查看 ()
Find ＝ Selection.读对象型属性 (“Find”, )
Find.写属性 (“Text”, 寻找文本)
Find.写属性 (“Forward”, 真)
Find.写属性 (“Wrap”, 1)  ' wdFindContinue
Find.写属性 (“MatchCase”, 假)
Find.写属性 (“MatchByte”, 真)
Find.写属性 (“MatchWildcards”, 假)
Find.写属性 (“MatchWholeWord ”, 假)
Find.写属性 (“MatchFuzzy”, 假)
Find.读对象型属性 (“Replacement”, ).写属性 (“Text”, 替换文本)
' Find.查看 ()
' =========================================================================
Direction.赋值 (1, )
Selection.方法 (“Collapse”, Direction)
' =========================================================================
Replace.赋值 (1, )
Find.方法 (“Execute”, , , , , , , , , , , Replace)
' =========================================================================
Direction.赋值 (0, )
Selection.方法 (“Collapse”, Direction)
' =========================================================================
Replace.赋值 (0, )
Find.方法 (“Execute”, , , , , , , , , , , Replace)
' =========================================================================
Find.写属性 (“Wrap”, 1)  ' wdFindContinue
Find.读对象型属性 (“Replacement”, ).写属性 (“Text”, 替换文本)
N ＝ N ＋ 1
计次循环尾 ()
返回 (N)
' 方法调用格式： 〈逻辑型〉 对象．逻辑方法 （"Execute"，FindText，MatchCase，MatchWholeWord，MatchWildcards，MatchSoundsLike，MatchAllWordForms，Forward，Wrap，Format，ReplaceWith，Replace，MatchKashida，MatchDiacritics，MatchAlefHamza，MatchControl）
' 参数<1>的名称为“FindText”，类型为“变体型”，可以被省略。
' 参数<2>的名称为“MatchCase”，类型为“变体型”，可以被省略。
' 参数<3>的名称为“MatchWholeWord”，类型为“变体型”，可以被省略。
' 参数<4>的名称为“MatchWildcards”，类型为“变体型”，可以被省略。
' 参数<5>的名称为“MatchSoundsLike”，类型为“变体型”，可以被省略。
' 参数<6>的名称为“MatchAllWordForms”，类型为“变体型”，可以被省略。
' 参数<7>的名称为“Forward”，类型为“变体型”，可以被省略。
' 参数<8>的名称为“Wrap”，类型为“变体型”，可以被省略。
' 参数<9>的名称为“Format”，类型为“变体型”，可以被省略。
' 参数<10>的名称为“ReplaceWith”，类型为“变体型”，可以被省略。
' 参数<11>的名称为“Replace”，类型为“变体型”，可以被省略。
' 参数<12>的名称为“MatchKashida”，类型为“变体型”，可以被省略。
' 参数<13>的名称为“MatchDiacritics”，类型为“变体型”，可以被省略。
' 参数<14>的名称为“MatchAlefHamza”，类型为“变体型”，可以被省略。
' 参数<15>的名称为“MatchControl”，类型为“变体型”，可以被省略。

.版本 2<br /> <br /> .子程序 替换内容_WPS, 整数型, 公开<br /> .参数 寻找文本, 文本型<br /> .参数 替换文本, 文本型<br /> <br /> .参数 次数, 整数型, 可空, 默认全部替换<br /> .局部变量 Find, 对象<br /> .局部变量 Replacement, 对象<br /> .局部变量 Execute, 对象<br /> .局部变量 ExecuteReplace, 对象<br /> .局部变量 Selection, 对象<br /> .局部变量 FindText, 变体型, , , 寻找文本<br /> .局部变量 MatchCase, 变体型, , , 区分大小写<br /> .局部变量 Wrap, 变体型, , , 0为wdFindStop 1为wdFindContinue,2为wdFindAsk<br /> .局部变量 Replace, 变体型, , , 是否替换 为2时全部替换<br /> .局部变量 Format, 变体型<br /> .局部变量 Direction, 变体型<br /> .局部变量 N, 整数型<br /> <br /> ' 由WPS宏录制替换<br /> ' Sub Macro1()<br /> ' With Selection.Find<br /> ' End With<br /> ' With Selection.Find<br /> ' With .Replacement<br /> ' End With<br /> ' End With<br /> ' Selection.Collapse Direction:=wdCollapseStart '1<br /> ' Selection.Find.Execute Replace:=wdReplaceOne '1<br /> ' Selection.Collapse Direction:=wdCollapseEnd '0<br /> ' Selection.Find.Execute Replace:=wdReplaceNone '0<br /> ' Selection.Find.Wrap = wdFindContinue‘1’<br /> ' Selection.Find.Replacement.Text = "123"<br /> ' End Sub<br /> <br /> <br /> .计次循环首 (次数, )<br />     Selection ＝ WPS对象.读对象型属性 (“Selection”, )<br />     ' Selection.查看 ()<br /> <br />     Find ＝ Selection.读对象型属性 (“Find”, )<br />     Find.写属性 (“Text”, 寻找文本)<br />     Find.写属性 (“Forward”, 真)<br />     Find.写属性 (“Wrap”, 1)  ' wdFindContinue<br />     Find.写属性 (“MatchCase”, 假)<br />     Find.写属性 (“MatchByte”, 真)<br />     Find.写属性 (“MatchWildcards”, 假)<br />     Find.写属性 (“MatchWholeWord ”, 假)<br />     Find.写属性 (“MatchFuzzy”, 假)<br />     Find.读对象型属性 (“Replacement”, ).写属性 (“Text”, 替换文本)<br /> <br />     ' Find.查看 ()<br /> <br />     ' =========================================================================<br />     Direction.赋值 (1, )<br />     Selection.方法 (“Collapse”, Direction)<br />     ' =========================================================================<br />     Replace.赋值 (1, )<br />     Find.方法 (“Execute”, , , , , , , , , , , Replace)<br />     ' =========================================================================<br />     Direction.赋值 (0, )<br />     Selection.方法 (“Collapse”, Direction)<br />     ' =========================================================================<br />     Replace.赋值 (0, )<br />     Find.方法 (“Execute”, , , , , , , , , , , Replace)<br />     ' =========================================================================<br />     Find.写属性 (“Wrap”, 1)  ' wdFindContinue<br />     Find.读对象型属性 (“Replacement”, ).写属性 (“Text”, 替换文本)<br />     N ＝ N ＋ 1<br /> .计次循环尾 ()<br /> 返回 (N)<br /> <br /> <br /> ' 方法调用格式： 〈逻辑型〉 对象．逻辑方法 （"Execute"，FindText，MatchCase，MatchWholeWord，MatchWildcards，MatchSoundsLike，MatchAllWordForms，Forward，Wrap，Format，ReplaceWith，Replace，MatchKashida，MatchDiacritics，MatchAlefHamza，MatchControl）<br /> ' 参数<1>的名称为“FindText”，类型为“变体型”，可以被省略。<br /> ' 参数<2>的名称为“MatchCase”，类型为“变体型”，可以被省略。<br /> ' 参数<3>的名称为“MatchWholeWord”，类型为“变体型”，可以被省略。<br /> ' 参数<4>的名称为“MatchWildcards”，类型为“变体型”，可以被省略。<br /> ' 参数<5>的名称为“MatchSoundsLike”，类型为“变体型”，可以被省略。<br /> ' 参数<6>的名称为“MatchAllWordForms”，类型为“变体型”，可以被省略。<br /> ' 参数<7>的名称为“Forward”，类型为“变体型”，可以被省略。<br /> ' 参数<8>的名称为“Wrap”，类型为“变体型”，可以被省略。<br /> ' 参数<9>的名称为“Format”，类型为“变体型”，可以被省略。<br /> ' 参数<10>的名称为“ReplaceWith”，类型为“变体型”，可以被省略。<br /> ' 参数<11>的名称为“Replace”，类型为“变体型”，可以被省略。<br /> ' 参数<12>的名称为“MatchKashida”，类型为“变体型”，可以被省略。<br /> ' 参数<13>的名称为“MatchDiacritics”，类型为“变体型”，可以被省略。<br /> ' 参数<14>的名称为“MatchAlefHamza”，类型为“变体型”，可以被省略。<br /> ' 参数<15>的名称为“MatchControl”，类型为“变体型”，可以被省略。

全哥

测试了一下，很好用，思路独特

lassgo

哈哈，这操作挺厉害的，用易语言改WPS宏，思路很独特，有需要的拿走不谢，点赞！

tonc

这思路挺厉害的，用易语言改WPS宏，感觉很实用啊！有空我也试试，谢谢分享呢！

阿丁

谢谢分享啊啊

彭于晏ta二舅

11111111111111111111111111111111111

hlswuwu

谢谢分享啊啊

xianming

求实99999999999

xysz4184

赞，正是我想要的

沧州小武

共和党和他人然后

wuzhenyiyuyan

的方式的方式