Correggi lo stile sottolineato di Word nell'intero documento

Ho un documento di Word che è lungo circa 100 pagine. In esso, ci sono molte parole che sono sottolineate.

Tuttavia, quando seleziono la parola, l'icona di formattazione Sottolineato non è evidenziata / illuminata, mostrando che è sottolineata. Dispari.

Quindi, ho controllato nella finestra immediata, ?Selection.Font.Underlineed è tornato 9999999. Le parole che fare avere l'icona Sottolineato illuminati ritorno 1.

Come posso cambiare rapidamente tutti gli stili di sottolineatura che sono 9999999a 1?

Ho provato a trovare / sostituire con "Sottolineato" e sostituire con "Sottolineato", ma mentre è stato trovato con successo 999999e 1la sostituzione non ha fatto nulla.

L'ho anche fatto macro e non Selection.Find.Replacement.Font.Underline = 1ci sono riuscito .

Attualmente, eseguo il ciclo attraverso ogni paragrafo, se para.Range.Font.Underline = 999999è True, quindi esegui il ciclo attraverso ogni personaggio e dove si trova un personaggio 999999, crealo 1.

Quindi la mia domanda è: come posso farlo correttamente / più velocemente? Inoltre, cosa causa 9999999in primo luogo?

modifica: ecco il codice attuale che ho

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

modifica: ho anche trovato questa discussione , ma l'esecuzione della macro elencata genera un errore di mancata corrispondenza del tipo di compilazione sulla rigaFor Each oChr In ActiveDocument.Paragraphs(para)

Modifica: ecco due schermate. La prima è una parola sottolineata, ma nota come Word non sembra pensarla così:

e anche il secondo è sottolineato, ma Word mostra la sottolineatura selezionata:

microsoft-word vba

— Bruce Wayne
fonte

Se capisco correttamente la domanda, stai cercando di non sottolineare tutto nel documento. Il modo migliore che posso pensare di fare sarebbe quello di "selezionare tutto" (dovrebbe essere ctrl + A) e fare clic sul pulsante sottolinea (per sottolineare l'intero documento), quindi fare di nuovo clic per annullare la sottolineatura.

— Calpals
fonte

Non sto cercando di rimuovere la sottolineatura. È strano - per qualche motivo, anche se posso vedere delle sottolineature, quando si selezionano alcune parole, Word non mostra che sono sottolineate (il che significa che la "U" non è evidenziata nella barra degli strumenti). Quando lo faccio ?Selection.Font.Underlineottengo un 9999999risultato. Quando lo faccio ?Selection.Font.Underlinesu una parola sottolineata e la "U" è evidenziata / selezionata nella barra degli strumenti, ritorna 1. Voglio che tutte le mie sottolineature siano di 1tipo.

— BruceWayne,