Libre Office Writer宏有条件地改变字体颜色

Question

我在Libre Office 6.0上。我生成了一个宏来将所选文本的字体颜色更改为＆＃39; Blue 3＆＃39;。它工作正常。

我希望宏做的是选择整个文档并将字体颜色更改为＆＃39; Blue 3＆＃39;任何其他蓝色文字的蓝色文字。

问题是我转换了一些文档，超链接是蓝色的，但是是蓝色的。突出显示和更正由黑色文本包围的多个超链接是一个费力的过程。

sub ChangeToBlue3
    dim document   as object
    dim dispatcher as object
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    dim args1(0) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "Color"
    args1(0).Value = 255
dispatcher.executeDispatch(document, ".uno:Color", "", 0, args1())
end sub