Sub RelocateCitations()
  Dim aFld As Field, aRng As Range
  For Each aFld In ActiveDocument.Fields
    If InStr(1, LCase(aFld.Code), "citation") Then
      Set aRng = aFld.Result
      aRng.Collapse wdCollapseStart
      aRng.MoveEnd Unit:=wdCharacter, Count:=-1   'to get in front of CC
      aRng.MoveStart Unit:=wdCharacter, Count:=-2
      If aRng.Text = ". " Then
        aRng.Text = " "
        Set aRng = aFld.Result
        aRng.Collapse wdCollapseEnd
        aRng.MoveStart Unit:=wdCharacter, Count:=2   'to get after CC
        aRng.InsertAfter "."
      End If
    End If
  Next aFld
End Sub