特定文字替换字体格式等

故乡的雨

立足新起点抢抓新机遇

二、现代农业加快发展。

（二）现代农业加快发展。

率先在全区出台《目已开工建设。完成现代渔业示范园区和美丽渔场验收工作。养殖尾水治理52亩。设施建设项目（一期）到目前为止一标段、二标段已完成所有工程量，二期建设项也已完工；计划投资物联网＋生态渔业三期建设项目目前已经验收完毕。

二、现代农业加快发展。

一是乡村建设持续推进。总投入约通过市级验收；标准农田建设项目10月底开工建设，预计2020年2月底完工。完成集济财政补助项目验收工作。计划11月底前完经济强村公司的工作。

三是垃圾分类全面覆盖。进一传和发动工作，提高村民对户垃圾分类并启动收运工作。投入腐垃圾接驳站，两个改建已完成投入使用，两个主体已完成，进入扫尾阶段，预计年内投入使用。启动小区垃圾分类工作，参与率、投放率、准确率均达到区级标准。

二、全力以赴抓好2020年工作。

二是推动现经济高品质发展。积极争料项目的投产，民宿项开工；云业园区一期目投入使用，传感器推广累计20套，全镇实现覆盖；级农业龙头企业1家。

求助：由于工程量大，而且平时工作经常用到，特求助各位老师帮忙。要求全部是vba代码。

      1.二、现代农业加快发展。       替换成黑体不加粗。

      2.（二）现代农业加快发展。     替换成楷体加粗。

      3.二是推动现代农业经济高品质发展。      替换成仿宋加粗。

kingtau

没啥保密的就把文档发上来，有保密的把文档脱敏后发上来。
光分析这几行字写的代码你在实际文档中也不一定能用。

ming0018

给二楼点赞！

yhs185

      

凌空一羽

Sub lkyy()
Dim doc As Document
Set doc = ActiveDocument
With doc.Content.Find
    .Text = "二、现代农业加快发展。"
    With .Replacement
        .Font.Name = "黑体"
    End With
    .Execute Replace:=wdReplaceAll
End With
With doc.Content.Find
    .Text = "（二）现代农业加快发展。"
    With .Replacement
        .Font.Name = "楷体"
        .Font.Bold = True
    End With
    .Execute Replace:=wdReplaceAll
End With
With doc.Content.Find
    .Text = "二是推动现代农业经济高品质发展。"
    With .Replacement
        .Font.Name = "仿宋"
        .Font.Bold = True
    End With
    .Execute Replace:=wdReplaceAll
End With
End Sub

故乡的雨

凌空一羽 发表于 2020-2-2 17:33
Sub lkyy()
Dim doc As Document
Set doc = ActiveDocument

谢谢大哥，