辅（下）

这篇文章我哦们介绍一下查找替换功能与一些常见的例子：

一、查找替换栏代码

注：【双引号“”内的内容才是需要查找的，不包括双引号部分。】

注： [一-龥(yù)] or [一-﨩(dǎo)] [!一-龥^1-^127]

要查找已被定义为通配符的字符，那么需要在该字符前输入反斜杠\

图片必须为嵌入式图片

例子：

（1）删除空白行：查找“^p^p” 替换为“ ^p”

（2）删除修改所有中文或英文字体

（3）隐藏实现填空题：将有下划线的字隐藏

（4）实现单词查找（利用）：

二、 “( ) ”“ \n ” 通配符下的使用：

“（）”圆括号内的内容表示表达式；“\n”代表第几个表达式，如果没有字母 n 则“ ”代表查询的所有内容。

可使用 \n 通配符搜索表达式，然后将其替换为经过重新排列的表达式，例如，在“查找内容”框键入“(Newton)(Christie)”，在“替换为” 框键入“\2\1”，Word 将找到“NewtonChristie”并将其替换为 “ChristieNewton”，希望可以利用好这一点

三、选择多个部分

例如可用于对代码的格式化（建议在空文档中操作后复制到主文档中）

注意下面有底纹的文字

Sub 关键字()

'

' 关键字 宏

'

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Size = 12'字号

.Bold = True'粗体

.Color = wdColorAutomatic'自动颜色

End With

Dim arr()

arr = Array("","", "","", "", "","", "", "","", "

", "","", "","", "","", "","", "","", "","", "","", "","", "", "","", "","")'在Array（“”）中按格式输入想要查找的词语或表达式

For i = 0 To 31'31为上面的个数-1

With Selection.Find

Text = arr(i)

Replacement.Text = "^&"'替换内容

Forward = True

Wrap = wdFindContinue'不询问是否继续

Format = True'匹配格式

MatchCase = True'匹配大小写

.MatchWholeWord = False'全字匹配

MatchByte = False

MatchWildcards = True'使用通配符

MatchSoundsLike = False'同音（英文）

MatchAllWordForms = False'查找单词的所有形式（英文）

End With

Selection.Find.ExecuteReplace:=wdReplaceAll'全部替换

Next i

End Sub

其他参数参见官网：

https://support.office.com/zh-cn/article/%e6%9f%a5%e6%89%be%e5%92%8c%e6%9b%bf%e6%8d%a2-Word-%e6%96%87%e6%a1%a3%e4%b8%ad%e7%9a%84%e6%96%87%e6%9c%ac%e5%92%8c%e5%85%b6%e4%bb%96%e6%95%b0%e6%8d%ae-c6728c16-469e-43cd-afe4-7708c6c779b7?NS=WINWORD&Version=16&SysLcid=2052&UiLcid=2052&AppVer=ZWD160&HelpId=33&ui=zh-CN&rs=zh-CN&ad=CN

附：获取PDF版详见本期推送首篇。

———END———