使用下面的代码，你就可以判断Word内容是否使用了粗体的字形。

　　Dim doc As Document

　　Dim objWD As Word.Application

　　Set objWD = CreateObject("Word.Application")

　　Set doc = objWD.Documents.Open("C:\MyWord.doc")

　　If doc.Paragraphs(1).Range.Font.Bold = -1 Then

　　MsgBox"没有使用粗体''

　　else

　　MsgBox"已使用了粗体''

　　End If