vba判斷WORD字體是否是粗體

 　　使用下面的代碼，你就可以判斷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