Få info om markeret område i Word

Jeg har nu fundet følgende metode. Variablen WordNumber der indeholder ordets placering i dokumentet:

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = \"Vedr.:\"
        .Replacement.Text = \"Vedr.:\"
        .Forward = True
        .Wrap = wdFindContinue
        .format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
   
    For I = 1 To ActiveDocument.Words.Count
      If Selection.Characters(1).InRange(ActiveDocument.Words(I)) Then
      WordNumber = I
      Exit For
      End If
    Next I