Исправить стиль подчеркивания Word во всем документе

У меня есть документ Word длиной около 100 страниц. В нем много слов, которые подчеркнуты.

Однако, когда я выбираю слово, значок форматирования подчеркивания не подсвечивается и не подсвечивается, показывая, что он подчеркнут. Странный.

Итак, я проверил в ближайшем окне, ?Selection.Font.Underlineи оно вернулось 9999999. Слова , которые делают имеют значок Подчеркивания освещали возврат 1.

Как я могу быстро изменить все подчеркнутые стили, которые 9999999в 1?

Я попытался Найти / Заменить «подчеркивание» и заменить «подчеркивание», но в то время как он успешно нашел 999999и 1замена ничего не делать.

Я даже сделал Selection.Find.Replacement.Font.Underline = 1это, но безрезультатно.

В настоящее время я перебираю каждый абзац, если значение para.Range.Font.Underline = 999999True, затем перебираю каждый символ и, где находится символ 999999, сделайте это 1.

Итак, мой вопрос, как я могу сделать это правильно / быстрее? Кроме того, что вызывает 9999999в первую очередь?

редактировать: вот текущий код у меня есть

Sub fixUline()
Dim doc     As Document
Set doc = ActiveDocument

Application.ScreenUpdating = False

Dim para    As Paragraph
For Each para In ActiveDocument.Paragraphs
    If para.Range.Font.Underline = 9999999 Then
     '   para.Range.Select
        For i = 1 To para.Range.Characters.Count
            If para.Range.Characters(i).Font.Underline = 9999999 Then
               ' para.Range.Characters(i).Select
                para.Range.Characters(i).Font.Underline = 1
            End If
        Next
    End If                   ' ...Underline = 99999
    Application.ScreenUpdating = True
Next para
MsgBox ("Done!")
End Sub

редактирование: я также нашел это обсуждение , но запуск указанного макроса приводит к ошибке компиляции типа в строкеFor Each oChr In ActiveDocument.Paragraphs(para)

Редактировать: вот два скриншота. Первое - подчеркнутое слово, но обратите внимание, что Word, похоже, так не считает:

и второй также подчеркнут, но Word показывает выделенное подчеркивание:

Если я правильно понимаю вопрос, вы пытаетесь подчеркнуть все в документе. Лучший способ сделать это - выбрать все (должно быть Ctrl + A) и нажать кнопку подчеркивания (чтобы подчеркнуть весь документ), а затем снова щелкнуть мышью, чтобы отменить подчеркивание.