This example moves the selection before the previous field and then selects the field.
With Selection
Set MyRange = .GoTo(wdGoToField, wdGoToPrevious)
.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
If Selection.Fields.Count = 1 Then Selection.Fields(1).Update
End With
This example moves the selection one character to the right. If the move is successful, MoveRight returns 1.
If Selection.MoveRight = 1 Then MsgBox "Move was successful"
This example moves the selection to the next table cell.
If Selection.Information(wdWithInTable) = True Then
Selection.MoveRight Unit:=wdCell, Count:=1, Extend:=wdMove
End If