Word VBA - Bold Paragraph如果第一个字符是数字

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