书法字体转换器 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