如何用Word VBA自动高亮SOAP请求响应中的非标准输入与错误字符串？

我来帮你搞定这个安全报告里的XML内容自动化高亮需求！针对你提到的两个核心场景——请求中的非标准输入、响应中的<faultstring>错误信息，我们可以用VBA结合正则表达式来实现灵活的自动化处理，比手动查找高效太多。

先上完整代码 #

首先要确保在VBA编辑器里启用正则库：打开VBA编辑器（Alt+F11），点击「工具」→「引用」，勾选Microsoft VBScript Regular Expressions 5.5，然后粘贴下面的代码：

Sub HighlightSOAPContent()
    ' 先处理响应中的faultstring错误信息
    HighlightFaultStrings
    
    ' 再处理请求中的非标准输入（需根据你的规则调整正则）
    HighlightNonStandardInputs
End Sub

Sub HighlightFaultStrings()
    Dim regEx As New RegExp
    Dim matches As MatchCollection
    Dim match As Match
    Dim rng As Range
    
    ' 配置正则：匹配<faultstring>和</faultstring>之间的所有内容
    regEx.Pattern = "<faultstring>(.*?)</faultstring>"
    regEx.Global = True
    regEx.IgnoreCase = False
    
    Set rng = ActiveDocument.Content
    
    ' 查找所有匹配项
    Set matches = regEx.Execute(rng.Text)
    
    ' 遍历匹配项并设置高亮格式
    For Each match In matches
        rng.SetRange match.FirstIndex + Len("<faultstring>"), match.FirstIndex + match.Length - Len("</faultstring>")
        With rng.Font
            .Bold = True
            .Color = wdColorRed ' 红色高亮，可根据需求调整
        End With
    Next match
End Sub

Sub HighlightNonStandardInputs()
    Dim regEx As New RegExp
    Dim matches As MatchCollection
    Dim match As Match
    Dim rng As Range
    
    ' ======================
    ' 这里需要你根据实际需求修改正则表达式！
    ' 示例1：匹配<InputField>标签中不是数字的内容（错误数据类型场景）
    ' regEx.Pattern = "<InputField>([^0-9]+)</InputField>"
    ' 示例2：匹配包含特殊字符（!@#$%^&*）的输入内容
    ' regEx.Pattern = "<.*?>(.*?[!@#$%^&*].*?)</.*?>"
    ' 示例3：匹配空值或空白内容的输入
    ' regEx.Pattern = "<.*?>(\s*)</.*?>"
    ' ======================
    regEx.Pattern = "<InputField>([^0-9]+)</InputField>" ' 替换成你的规则
    regEx.Global = True
    regEx.IgnoreCase = False
    
    Set rng = ActiveDocument.Content
    
    Set matches = regEx.Execute(rng.Text)
    
    For Each match In matches
        ' 定位到捕获的非标准内容部分（即括号里的分组）
        rng.SetRange match.FirstIndex + Len("<InputField>"), match.FirstIndex + match.Length - Len("</InputField>")
        With rng.Font
            .Bold = True
            .Color = wdColorDarkBlue ' 深蓝色高亮，和错误信息区分开
        End With
    Next match
End Sub

代码说明 #

1. HighlightFaultStrings 子过程：

   • 用正则精准匹配所有<faultstring>...</faultstring>格式的内容，提取中间的错误字符串
   • 把匹配到的错误内容设置为加粗红色，你可以根据需求调整颜色（比如改成wdColorYellow黄色高亮）

2. HighlightNonStandardInputs 子过程：

   • 这部分需要你根据自己的“非标准输入”定义来修改正则表达式：
     • 如果是特定字段的错误数据类型（比如<Age>标签应该是数字，输入了字母），就用针对该字段的正则（示例1）
     • 如果是所有包含非法特殊字符的输入，就用通用标签匹配+特殊字符检测（示例2）
     • 如果是空输入/空白内容，用示例3的规则
   • 匹配到的非标准内容会被设置为加粗深蓝色，和错误信息做视觉区分

3. 主过程 HighlightSOAPContent：

   • 一键运行两个高亮任务，你也可以单独运行某一个子过程

适配你原有代码的建议 #

如果你之前写的Sub BoldBetweenQuotes()是尝试高亮引号内容，现在只需要把正则表达式替换成上面对应场景的规则，再调整格式设置即可，核心逻辑是一致的——用正则定位目标内容，再修改字体格式。

内容的提问来源于stack exchange，提问作者Michal Janošec