以下 VBA 程式碼示範如何檢查 Word 文件第一段落的字型是否為粗體：

Dim doc As Document
Dim objWD As Word.Application

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

' Bold 屬性值：-1 表示全部粗體，0 表示無粗體，其他值表示部分粗體
If doc.Paragraphs(1).Range.Font.Bold = -1 Then
    MsgBox "未使用粗體"
Else
    MsgBox "已使用粗體"
End If

說明：

• Font.Bold 回傳 Long 值：-1 (True/全粗體)、0 (False/無粗體)、9999999 (混合/部分粗體)。
• 範例中僅判斷第一段（Paragraphs(1)），實際應用可迴圈檢查所有段落。
• 執行前請確認路徑 C:\MyWord.doc 存在，且已啟用「Microsoft Word Object Library」參考。