Range.Bold (Word)

True if the range is formatted as bold.

Returns True, False or wdUndefined (a mixture of True and False). Can be set to True, False, or wdToggle.

If Selection.Type = wdSelectionNormal Then 
 Selection.Range.Bold = wdToggle 
End If