Cacher is the code snippet organizer for pro developers

Dim iFld As Field
Dim oRng As Range
For Each iFld In ActiveDocument.Range.Fields
    If iFld.Type = 81 Then
        iFld.Select
        Set oRng = Selection.Range
        oRng.Start = oRng.Start - 1
        oRng.End = oRng.End + 1
        oRng.Select
        Selection.Range.Text = Selection.Range.Text
    End If
Next iFld