LibreOffice 6.0 Writer宏需求：将非标准蓝色文本统一改为Blue 3

嘿，这个需求超实用！我帮你调整宏代码，让它自动遍历整个文档，把所有非标准Blue3的蓝色文本（比如那些转换后偏色的超链接）统一改成标准的Blue3，省得手动一个个改。

思路说明 #

我们要完成这几个核心步骤：

1. 选中整个文档的所有内容，确保不遗漏任何文本
2. 获取官方标准的“Blue 3”颜色值，避免硬编码RGB导致版本差异
3. 逐个字符检查颜色，判断是否属于蓝色系但不是Blue3
4. 把符合条件的文本直接替换成目标颜色

修改后的完整宏代码 #

Sub ChangeAllBlueToBlue3
    ' 获取当前文档对象
    Dim document As Object
    document = ThisComponent
    
    ' 第一步：选中整个文档内容
    Dim viewCursor As Object
    viewCursor = document.CurrentController.ViewCursor
    viewCursor.gotoStart(False)
    viewCursor.gotoEnd(True)
    
    ' 获取LibreOffice标准颜色表中的"Blue 3"颜色值
    Dim oColorTable As Object
    oColorTable = CreateUnoService("com.sun.star.drawing.ColorTable")
    Dim nTargetColor As Long
    nTargetColor = oColorTable.getColorByName("Blue 3")
    
    ' 创建文本游标用于遍历选中的所有内容
    Dim textCursor As Object
    textCursor = document.Text.createTextCursorByRange(viewCursor)
    
    ' 遍历文档中的每一个字符
    Do
        ' 获取当前字符的字体颜色
        Dim currentColor As Long
        currentColor = textCursor.CharColor
        
        ' 分解当前颜色的RGB分量
        Dim r As Long, g As Long, b As Long
        r = (currentColor \ 65536) Mod 256  ' 红色分量
        g = (currentColor \ 256) Mod 256    ' 绿色分量
        b = currentColor Mod 256            ' 蓝色分量
        
        ' 判断条件：属于蓝色系（蓝色分量明显高于红/绿）且不是目标颜色Blue3
        If (b > r And b > g) And (currentColor <> nTargetColor) Then
            ' 将颜色设置为Blue3
            textCursor.CharColor = nTargetColor
        End If
        
        ' 移动到下一个字符，直到遍历完所有内容
    Loop While textCursor.goRight(1, False)
End Sub

关键细节解释 #

• 标准颜色获取：通过ColorTable服务获取官方定义的Blue3颜色值，比硬编码RGB（比如0x0000BF）更可靠，避免不同LibreOffice版本的颜色定义差异。
• 蓝色判断逻辑：这里用“蓝色分量大于红色和绿色分量”作为蓝色系的判断标准，如果你需要更严格的范围（比如只识别特定深浅的蓝色），可以调整条件，比如加上b > 100来排除浅蓝/接近白色的情况。
• 遍历方式：逐个字符检查确保不会遗漏任何文本，包括超链接的文本颜色（超链接的字符颜色是可以通过CharColor属性修改的）。

使用方法 #

1. 打开LibreOffice Writer，按Alt+F11打开宏编辑器
2. 替换你原来的ChangeToBlue3宏代码为上面的内容
3. 保存宏后，回到文档执行即可

内容的提问来源于stack exchange，提问作者xnguyeng