使用下面的代码,你就可以判断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 |