怎样用vba实现字体格式替换

根据公文要求，一级标题（一、　二、　三、）用黑体，二级（（一）（二）（三））用宋体，三级（1.　2.　3.）用楷休。在不用vba的情况下，运用查找替换功能，设计了一下：
在查找中输入“(^13[一二三四五六七八九十]{1,}、)(*^13)”，在替换框内不输入内容而是将格式字体调为黑体，勾选使用通配符。即可实现一级标题格式的替换。但用录制宏的方法却发现不能实现。请高手指点。如何实现？可否一、二、三级标题格式一并调整？不胜感激。
详见附件。

不好意思，发现样本中第一段“一、”前应有一个段落标记的。若没有只能替换“二、”所在标题行。
因为在实际文本中由于有大标题的存在，第一段前肯定会有段落标志。重新上传样本。

[ 本帖最后由 润彩绘真 于 2010-12-9 16:50 编辑 ]