在Word里记录多人对话，并为不同发言人的内容自动上色，有几种非常实用的方法。我会按推荐顺序介绍，你可以根据自己的习惯和文档情况来选择最顺手的那一种。

🎯 方法一：使用查找替换（通配符）—— 推荐

这是最快、最省力的方法，尤其适合格式统一的对话文本（如“小明：你好！”）。如果文档里发言人的名字已经存在，用这个方法就能一次性批量处理，效率很高-。

操作步骤以一位发言人为例：假设文档中有“小明：”和“小红：”两位发言。

  1. 打开替换窗口：按下 Ctrl + H 快捷键-。

  2. 输入查找内容：在弹出的“查找和替换”窗口中，点击「更多」按钮展开选项，然后勾选“使用通配符”。

  3. 输入查找条件：在「查找内容」输入框内，填入：

    text
    小明：[!^13]@^13

    语法解释：

    • 小明：：定位要查找的发言人名字。

    • [!^13]：匹配除了换行符（段落标记^13）之外的任何字符，确保只查找“小明：”后面的内容。

    • @：匹配一个或多个前面的字符（即[!^13]所代表的内容）。

    • ^13：匹配一个段落标记（换行），表示找到本段末尾。

  4. 设置替换格式：将光标置于「替换为」输入框，然后点击左下角的「格式」按钮，选择「字体」，在其中选好你为“小明”指定的颜色（如蓝色），点击「确定」。

  5. 执行替换：确保“替换为”输入框内为空（即不做文本替换），然后点击「全部替换」，即可完成对“小明”发言内容的批量染色。

💡 其他两个建议

  1. 为另一位发言人操作：按相同步骤，将「查找内容」里的名字换成“小红”，并在替换格式中为其选择另一种颜色（如橙色）即可。

  2. 快速调色技巧：如果你希望设置多种颜色，可以在第一次替换为“小明”上色后，再次打开查找替换窗口。这次，直接在查找内容里输入“小红：...”的通配符，然后在替换为的格式里选另一个颜色，再点“全部替换”。这样就能很快地依次为不同发言人上色了。

🎨 方法二：创建并使用专属“字符样式”

这个方法稍微需要一点前期准备，但长远来看最专业、最灵活-。以后修改颜色或格式，只需改一次样式，文档里所有该样式的地方都会自动更新，格式能始终保持统一。

  1. 创建第一个样式：

    • 随便输入一句“小明”说的话，选中它。

    • 在「开始」选项卡的「样式」区域，点击右下角的箭头打开样式窗格，然后点击「新建样式」。

  2. 设置样式属性：

    • 给它起个好记的名字，比如 “发言-小明”。

    • 关键一步：将「样式类型」设置为 “字符”。这确保格式只作用在选中的文字上，而不影响整个段落。

  3. 选择颜色：点击左下角的「格式」按钮 >「字体」，在弹出的窗口中为“小明”的发言选择一个颜色，点击确定。

  4. 应用样式：之后，只需选中“小明”的发言内容，然后在样式窗格里点击“发言-小明”，就能快速上色。

  5. 快速应用技巧：你也可以为这个样式设置一个快捷键，让上色更快速-。并且，还可以利用 Word 的“样式互联”功能，在“发言-小明”样式中设置“后续段落样式”为“发言-小红”，实现快速切换。

🔄 方法三：使用“选择格式相似的文本”

如果文档里已有人物对话，但格式不统一，或者你只是想手动挑着上色，这个方法会很方便。

  • 操作步骤：先选中一个已上色的“小明”发言内容。然后，在「开始」选项卡的「编辑」区域，点击「选择」 > 「选择格式相似的文本」。Word会自动选中所有格式相同的“小明”发言。接着，通过「字体颜色」按钮选择你想要的颜色即可。

⚙️ 方法四：使用VBA宏（自动化终极方案）

如果文档里句子格式五花八门，无法通过统一格式或关键词检索，或者你希望一键完成对所有发言人的上色，那么 VBA 宏是最佳选择。

  1. 打开VBA编辑器：按下 Alt + F11 快捷键-12。

  2. 插入模块：在左侧的“工程”窗口中，右键点击“Normal”，选择「插入」 > 「模块」。

  3. 粘贴宏代码：双击新建的模块，在右侧的代码窗口中粘贴以下代码-12：

vb
Sub ColorSpeakersDialogue()
    Dim myRange As Range
    Dim speakerName As Variant
    Dim colorValue As Variant

    ' 定义发言人及其对应的颜色
    ' 提示：可自行增删修改，颜色名称参考下方说明
    speakerName = Array("小明：", "小红：")
    colorValue = Array(wdBlue, wdRed)

    ' 遍历整个文档，为每个发言人染上对应的颜色
    For i = LBound(speakerName) To UBound(speakerName)
        Set myRange = ActiveDocument.Content
        With myRange.Find
            .ClearFormatting
            .Text = speakerName(i) & "*^13" ' 查找发言人内容直到段落结束
            .Replacement.ClearFormatting
            .Replacement.Text = "^&" ' 替换为查找到的文本（即不做更改）
            .Replacement.Font.Color = colorValue(i) ' 设置字体颜色
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchWildcards = True ' 启用通配符，匹配发言人内容
            .Execute Replace:=wdReplaceAll
        End With
    Next i
End Sub

💡 颜色列表与代码中使用的说明

为了方便你使用，以下是常用颜色与VBA代码的对照表：

颜色代码
黑色 (Black)wdBlack
蓝色 (Blue)wdBlue
青色 (Cyan)wdCyan
绿色 (Green)wdGreen
紫色 (Purple)wdPurple
红色 (Red)wdRed
黄色 (Yellow)wdYellow
白色 (White)wdWhite

注意：这并非完整列表，但涵盖了最常用的几种颜色-。

使用说明：你可以修改 speakerName 和 colorValue 数组，例如改成 speakerName = Array("领导：", "下属：", "同事：") 并对应 colorValue = Array(wdRed, wdGreen, wdBlue) 来实现多位发言人的染色。

  1. 运行宏：回到 Word，按下 Alt + F8 快捷键-12，在弹出的对话框中选择 ColorSpeakersDialogue，然后点击「运行」。

🖍️ 其他方法速览

  • 手动格式：用 格式刷 (Format Painter) 或快捷键（Ctrl + Shift + C 复制格式，Ctrl + Shift + V 粘贴格式），适合偶尔修改或文档不长时使用-。

  • 更改批注作者：如果需要通过批注（而非正文）给内容上色，可以临时更改 Word 的“用户名”来模拟不同作者，从而实现不同颜色的批注气泡--9。

注意：上面介绍的方法一（查找替换） 和方法四（VBA宏） 都需要发言内容的格式比较统一，例如都是“发言人+冒号”的结构。如果格式不统一，手动调整或配合使用通配符会更稳妥。