Range.Bold (Word)

True se o intervalo está formatado como negrito. Long de leitura/gravação.

Retorna true, false ou WdUndefined (uma mistura de true e false). Pode ser definido como True, False ou wdToggle.

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