wordvba实现区域加粗以及段落编号

实现区域加粗：

Sub BoldSelectedText()
    Selection.Font.Bold = True
End Sub

上述代码中，我们使用了Selection对象来选定文档中的一段文本。然后，我们通过设置Font.Bold属性为True来将选定的文本加粗。

实现段落编号：

Sub AddParagraphNumbering()
    Selection.Range.ListFormat.ApplyNumberDefault wdNumberStyleArabic
End Sub

上述代码中，我们使用了Selection.Range.ListFormat属性来设置段落编号格式。在这个例子中，我们使用了wdNumberStyleArabic常量来指定阿拉伯数字作为段落编号的格式。

如果需要使用其他的编号格式，可以使用wdNumberStyle枚举中的其他常量来指定。