Sub FindeAs() 
 
'Springe an Dokumentanfang 
Selection.HomeKey unit:=wdStory 
 
'Suchparameter: Tab+Kleinbuchstabe, Hochstellung zunächst unwichtig 
With Selection.Find 
    .ClearFormatting 
    .Replacement.ClearFormatting 
    .Text = "\^t[a-z]" 
    .Format = False 
    .MatchWildcards = True 
    .Execute 
End With 
 
Do While Selection.Find.Found 
    'Nur wenn zweites Zeichen (Kleinbuchstabe) hochgestellt, weise diesem neues Format zu 
    If Selection.Range.Characters(2).Font.Superscript Then 
       Selection.Start = Selection.Start + 1 
       Selection.Style = ActiveDocument.Styles("hilfdirselbst") 
    End If 
     
    Selection.Collapse wdCollapseEnd 
    Selection.Find.Execute 
Loop 
 
End Sub