Word VBA - 粗体段落如果第一个字符是数字

Question

试图让这个宏遍历所有段落，并检查它们是否以数字开头，如果是的话，我希望它使所有该段落为粗体。 但是，没有任何反应，甚至没有发生错误信息。

Sub titles() 

    For Each Paragraph In ActiveDocument.Paragraphs 
     If IsNumeric(Paragraph.Range.Words(1).Characters(1)) = True Then 
      wcount = Paragraph.Range.Words.Count 
      Paragraph.Range.Words(wcount).Font.Bold = True 
      'MsgBox (wcount) 
     End If 
    Next Paragraph 

End Sub 

Answer 1

此：

Paragraph.Range.Words(wcount).Font.Bold = True 

只会大胆的最后一个 “字”。尝试：

Paragraph.Range.Font.Bold = True