Range.BoldBi (Word)

True si la fuente o el intervalo tiene formato de negrita.

ActiveDocument.Paragraphs(1).Range.BoldBi = True