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

【问题标题】：Word VBA - Bold Paragraph If first character Is NumericWord VBA - 如果第一个字符是数字，则粗体段落
【发布时间】：2017-07-08 03:09:15
【问题描述】：

试图让这个宏遍历所有段落并检查它们是否以数字开头，如果是，我希望它使所有段落加粗。但是，什么都没有发生，甚至没有错误消息。

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

【问题讨论】：

标签： vba ms-word

【解决方案1】：

这个：

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

只会将最后一个“单词”加粗。试试：

Paragraph.Range.Font.Bold = True

【讨论】：

像魅力一样工作！