How to measure spaces between justified words in Word by VBA?

Please, I am looking for a method to better arrange justified paragraphs in Word. Because when justifying a paragraph, often there is too much space between the words on a line. For short texts, I visually look for the "ugly" lines, I select them and use small Macros (one or more times) like this:

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

But for long documents, it's too laborious! I would like:
1/ a script which scans the text by measuring the apparent spaces between the justified words and which highlights these words. But I can't find the function to measure these apparent spaces...
2/ with this function, it won't be difficult to write a cycle that goes through these ugly lines by gradually shrinking them, like in my Marco.

I tried the following functions, native in Word:

• automatic hyphenation : very good but insufficient

• "WordPerfect justification" option in compatibility mode: insufficient and absent in recent files without compatibility mode

But the result is insufficient. I also looked for an Office add-in or Marcos – even paid – without finding any.

Do you have a solution? I would be very grateful to you.

Thank you in advance for your answer and have a nice day!

Unfortunately, the only workable way to fix this problem is to change each document to Word 2010 compatibility mode, then apply the WordPerfect Justification settings and save. Here's a macro to do that:

Sub BetterJustification()
    With ActiveDocument
        .SetCompatibilityMode wdWord2010
        .Compatibility(wdWPJustification) = True
        .SaveAs2 CompatibilityMode:=14
    End With
End Sub

Please note that by default, Word's Save As command will try to upsave to the current Word format, which will reset the justification to Microsoft's crappy settings. To prevent this, Word's Save As dialog needs to have the option checked for Maintain compatibility with previous versions of Word. This is a sticky setting that remains the same for all files until a user unchecks it. I haven't found a way to check that box using VBA.