Macro til at ændre formateringen for et ord

Hvordan vil du markere ordet? Du nævner noget med Subscript - hvad er det ?

Jeg vil i kolonne 2 (erstat) formaterer ordet som jeg gerne vil have det til at fremstå når det indsættes som erstatning.
Subscipt er sænket skrift (jeg har den engelske version af word2000)

Her er en ændret kode som skulle gøre det *S* Du skal bare formatere ordene i kolonne 2 som du øsnker:

Sub Søg()
Dim Antalrækker As Integer
'Gemmer det aktive dokuments navn i en variabel, så det kan aktiveres løbende
FindDok = ActiveDocument.Name

'Åbner en dialogboks, så du kan pege på ordlistefilen
dlgAnswer = Dialogs(wdDialogFileOpen).Show

Application.ScreenUpdating = False

'Hvis dlgAnswer = -1 er der et åbent dokument
If (dlgAnswer = -1) Then
    'Gemmer det aktive dokuments navn i en variabel, så det kan aktiveres løbende
    ErstatDok = ActiveDocument.Name
   
    'Vælger hele dokumentets, så jeg kan få fat i tabellen
    Selection.WholeStory
    Selection.Tables(1).Select
   
    'Tæller rækker til loopet
    Antalrækker = Selection.Information(wdEndOfRangeRowNumber)
   
    'Sætter markøren i 1. celle med indholdet markeret
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.SelectCell
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
   
    For n = 1 To Antalrækker
        Find = Selection.Text
       
        Selection.MoveRight Unit:=wdCell
        Selection.Copy
        Erstat = Selection.Text

        Documents(FindDok).Activate
       
        Set myRange = ActiveDocument.Content
       
        For i = 1 To ActiveDocument.Words.Count
            myRange.Find.Execute FindText:=Find, Forward:=True
            If myRange.Find.Found Then
                myRange.Select
                Selection.Paste
            End If
        Next i

        Documents(ErstatDok).Activate
        Selection.MoveRight Unit:=wdCell
    Next
End If

Documents(ErstatDok).Close False

Application.ScreenUpdating = True

End Sub

tak for hjælpen