[VBA] Sostituzione di caratteri "pedici" in Word

[they]

Saluti a tutti.
Premessa:
1) Sono mooolto niubbio di VBA
2) Ovviamente non sono soddisfatto di come word salva in html
3) Ho la necessità di portare molti documenti word in html
4) Questi documenti contengono molte formule chimiche e quindi dei pedici

ad esempio... H2O col 2 in pedice deve diventarmi H₂O

L'unica cosa che ho trovata pubblicata in giro è la seguente:

Sub pedix()
Dim rdcm As Range
Set rdcm = ActiveDocument.Range
With rdcm.Find
.Font.Subscript = True
While .Execute
' rdcm.Select ' for testing
rdcm.Font.Subscript = False
rdcm.InsertBefore "_{"
rdcm.InsertAfter "}"
Wend
End With
End Sub

Funziona! ma esegue la sostituzione una ricorrenza alla volta, nel senso che se nel documento ci sono 18 pedici io devo lanciare la macro 18 volte.

Non è che qualcuno mi possa indicare che comandi ci vogliono per farla funzionare globalmente su tutto il documento facendogli fare tutte le sostituzioni in un colpo solo?

Grazie.

[they]

ha! ecco forse ho trovato mancavano queste due istruzioni

Sub x()
Dim rdcm As Range
Set rdcm = ActiveDocument.Range

With rdcm.Find
.Font.Subscript = True
While .Execute
' rdcm.Select ' for testing
rdcm.Font.Subscript = False
rdcm.InsertBefore "_{"
rdcm.InsertAfter "}"
.Forward = True
.Wrap = wdFindContinue
Wend

End With
End Sub

.. ma sono andato ad intuito..