Microsoft Word - I want to create a VBA macro that will change the language of each footnote to EnglishUK

This doesn't work:

Sub footnote()

Dim aFN As footnote

  For Each aFN In ActiveDocument.Footnotes

    aFN.Range.Text = aFN.Range.Text

    Selection.WholeStory

  Selection.LanguageID = wdEnglishUK

  Selection.Collapse

  Next aFN

End sub