как найти Начните с «一 、» «二 、» «三 、» (китайский 1、2、3) ... ... словом, чем измените шрифт абзаца на полужирный с регулярным выражением
For Each pa In .Paragraphs
If pa.Range.Find.execute("一、") Then
pa.Range.Font.Name = "黑体"
End If
Next pa
отобразить «Объект не поддерживает свойство или метод» на
If pa.Range.Find.excute("一、") Then