Range.Bold (Word)

True si el intervalo tiene formato de negrita.

Devuelve true, false o WdUndefined (una combinación de true y false).

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