This example moves to the previous field in the active document.
Selection.GoToPrevious What:=wdGoToField
This example creates a range that references the last footnote reference marker in the active document.
Set myRange = ActiveDocument.Words.Last _
.GoToPrevious(What:=wdGoToFootnote)
myRange.Expand Unit:=wdCharacter