快速定位Word文档中特殊符号之间的文本(1/2)

最新推荐文章于 2025-07-06 18:44:57 发布

原创

最新推荐文章于 2025-07-06 18:44:57 发布 · 793 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#Word VBA #软回车 #硬回车 #段落标识 #特殊字符

实例需求：Word文档如下图中左侧所示，现需要修改手工换行符和段落符之间文字的字体为蓝色，如右图所示。

在Word中使用【Shift+Enter】输入手工换行符，也称为软回车，其ASCII值为11，在文档中显示为向下的灰色箭头，如文档截图中第一行行尾所示
在Word中使用【Enter】输入段落符，也称为硬回车，其ASCII值为13，在文档中显示为转角向左的灰色箭头，如文档截图中第二行行尾所示
修改字体颜色时，应避免影响项目编号、项目符号的字体样式

在这里插入图片描述

示例代码如下。

Sub RestoreColor()
    ActiveDocument.Range.Font.Fill.ForeColor.RGB = VBA.RGB(0, 0, 0)
End Sub

【代码解析】
此代码过程用于恢复文档中字体样式（字体颜色为黑色），调试代码过程中，首先运行此过程，可以确保文档初始状态是一致的。

Word中提供了强大的查找替换功能，使用通配符可以查找特殊字符。

```vb
Sub ChangeColor1()
    Dim r As Range
    Call RestoreColor
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^11?{1,}^13"
        .Forward = True
        .MatchWildcards = True
        .Wrap = wdFindStop
        Do While .Execute
            Set r = .Parent
            r.MoveStart Word.wdCharacter,