[MarcoGG]

Capita, quando si copia/incolla una macro che non è farina del nostro sacco !
L' ho provata anch'io ed effettivamente aggiunge 4 solo se nell'Header del documento esiste almeno un carattere...
Perciò la cosa può essere risolta semplicemente con una piccola aggiunta in questa sezione del codice :

...
...
    If caratteri <> CaratteriWord Then
    
        MessaggioDiverso = "Conteggio di Word:" & vbCr _
             & "  parole:                             " & ParoleWord & vbCr _
             & "  caratteri spazi inclusi:      " & CaratteriWord & vbCr _
             & "_____________________________________________________" & vbCr & vbCr
    
    End If
    
    With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
        If .Range <> "" Then
            Parole = Parole - 4
            caratteri = caratteri - 4
        End If
    End With
         
    Messaggio = "Conteggio comprensivo di cornici di testo, pié di pagina, note, ecc." & vbCr _
             & "_____________________________________________________" & vbCr & vbCr _
             & MessaggioSelezione _
             & MessaggioDiverso _
             & "Conteggio completo:" & vbCr _
             & "  parole:                             " & Parole & vbCr _
             & "  caratteri spazi inclusi:      " & caratteri & vbCr _
             & "  cartelle:                           " & Cartelle & vbCr _
             & "  righe:                               " & RigheArr & " (" & Righe & ")" & vbCr _
             & "_____________________________________________________" & vbCr & vbCr _
             & "                                 Buon lavoro!!!"
    
     
    MsgBox Messaggio, 64

Prova, .