Sub MMD_MakeReferencesInParagToJustNumber()

    On Error Resume Next
    Dim oFld As Field
    Selection.GoTo what:=wdGoToBookmark, Name:="\sel"
    For Each oFld In Selection.Fields
        If oFld.Type = wdFieldRef Then
            'add charformat switch:
            If InStr(oFld.Code.Text, "\# 0;0") = 0 Then
                oFld.Code.Text = Replace(oFld.Code.Text, " \h", " \# 0;0 \h")
            End If
            'updates the field results to display the new format
            oFld.Update
        End If
    Next oFld

End Sub