Sub InsertField()
'   Graham Mayor vba samples
'   Intercepts InsertField command and removes MERGEFORMAT default
'   Allows CHARFORMAT switch option
'
    Dim oRng As Range, i As Variant, sSwitch As String, strChoice As String
    '
    ' Uncheck box to insert MERGEFORMAT
    '
    SendKeys "{Tab 2} +{Tab 2}"
    '
    Dialogs(wdDialogInsertField).Show
    On Error GoTo Finish 'User has cancelled
    '
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Set oRng = Selection.Range
    '
    For i = 1 To oRng.Fields.Count
        With oRng.Fields(i)
            If InStr(1, .Code, "MERGEFORMAT") <> 0 Then
                sSwitch = MsgBox("Use charformat in place of the mergeformat switch?", _
                vbYesNo, _
                "Insert Field")
                If sSwitch = vbYes Then
                    .Code.Text = Replace(.Code.Text, _
                    "MERGEFORMAT", _
                    "CHARFORMAT")
                End If
            End If
            .Update
        End With
    Next i
    Selection.MoveRight Unit:=wdCharacter, Count:=1
Finish:
End Sub