Word Underline stilini tüm belgede düzelt

Yaklaşık 100 sayfa uzunluğunda bir Word belgesine sahibim. İçinde altı çizili birçok kelime var.

Ancak, kelimeyi seçtiğimde, Altı çizili biçimlendirme simgesi vurgulanmıyor / aydınlatılıyor ve altı çizili olduğunu gösteriyor. Garip.

Ben de hemen pencereyi kontrol ettim. ?Selection.Font.Underline ve geri döndü 9999999. Sözler yap Altı çizili simgesinin yanması 1.

Tüm alt çizgi stillerini hızla nasıl değiştirebilirim? 9999999 için 1?

Bul / Değiştir'i "Alt Çizgi" ile değiştirmeyi ve "Alt Çizgi" ile değiştirmeyi denedim, ancak başarılı bir şekilde bulundu 999999 ve 1, yedek bir şey yapmadı.

Bunu bile makro yaptım ve yaptım Selection.Find.Replacement.Font.Underline = 1 boşuna.

Şu anda, her paragrafı geçiyorum, para.Range.Font.Underline = 999999 doğrudur, sonra her karakterin arasında ve bir karakterin olduğu yerde dolaş 999999, şunu yap 1.

Öyleyse sorum şu, bunu doğru / daha hızlı nasıl yapabilirim? Ayrıca, neden 9999999 ilk etapta

düzenleme: İşte sahip olduğum mevcut kod

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

düzenleme: Ben de buldum bu tartışma , ancak listelenen makroyu çalıştıran satırda derleme bir Type Mismatch hatası veriyor For Each oChr In ActiveDocument.Paragraphs(para)

Düzenleme: İşte iki ekran görüntüsü. İlk olduğu altı çizili bir kelimeyi kullanın, ancak Word'ün nasıl düşündüğünü görünmediğine dikkat edin:

ikincisi de altı çizilidir, ancak Word seçilen alt çizgiyi gösterir:

Soruyu doğru anlarsam, belgedeki her şeyin altını çizmeye çalışıyorsun. Bunu yapmayı düşündüğüm en iyi yol "hepsini seçmek" (ctrl + A olmalıdır) ve altı çizili düğmeyi (tüm belgenin altını çizmek için) sonra da her şeyin altını çizmek için tekrar tıklatmak.