如何通过VBA调整Word中两端对齐文本的词间距？

设置段落两端对齐时，Word文档里经常会出现词间距过大的问题，影响排版美观。

针对短文本，我会手动定位这些排版不佳的行，选中后反复运行下面的VBA宏来调整：

Sub spacingMinus005()
    With Selection.Font
        If .Spacing >= 10 Then
            .Spacing = -0.05
        Else
            .Spacing = .Spacing - 0.05
        End If
    End With
End Sub

但处理长文档时，手动操作效率太低。我需要一个脚本，能通过测量两端对齐文本的表观词间距来扫描全文，自动高亮这类间距过大的词；如果能找到这个测量函数，后续就能编写循环逻辑，像手动运行宏那样逐步缩小这些行的间距。

我已经试过Word自带的以下功能，但效果都不理想：

• 自动断字：有一定效果，但不够完善
• 兼容模式下的「WordPerfect对齐」选项：优化效果不足，而且新版非兼容模式的文件里没有这个选项（原选项为英文，已译为中文）

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