神马品牌网怎么做免费网站:求具有强大替换功能的软件
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 14:27:11
对一段汉字、拉丁字母夹杂的文本，能给所有长短不一的单词加上引号、所用长短不一的汉字串加上括号。比如“内蒙古”、“辽宁”等替换成“（内蒙古）”、“（辽宁）”等。
能替换“任意汉字”（就像ms word能替换“任意字母”那样）。
没有替换功能但能实现上述效果的也行。
能替换“任意汉字”（就像ms word能替换“任意字母”那样）。
没有替换功能但能实现上述效果的也行。
编一个VBA程序，如下：
Sub Try()
Dim L%, S As String, Q As String
Dim H As String, SS As String
Dim Sele As Object, i%
Set Sele = Selection
L = Len(Selection)
H = Left(Sele, 1)
For i = 2 To L
S = Mid(Sele, i, 1)
Q = Mid(Sele, i - 1, 1)
If (Asc(S) > 0 And Asc(Q) < 0) Or (Asc(S) < 0 And Asc(Q) > 0) Then
If Asc(S) < 0 Then
H = H & "'(" & S
Else
H = H & ")'" & S
End If
Else
H = H & S
End If
Next i
Selection = H
End Sub
用法：
（1）选中文本
（2）运行程序
（3）文本开头和结尾的标点符号，手工加上吧。
运行结果示例：
选中文本：
China新华社Windows北京WPS
运行结果：
China'(新华社)'Windows'(北京)'WPS
以上程序，还不完善，只是提供一个思路罢了，希望对你有帮助。