江湖救急，指定关键词后面的文字如何批量换行

yuanfuyong

修改前：

答案：植树种草、节能减排、公共场所禁止吸烟，能够净化空气，保护环境。

解析：A项，植树种草，增大绿化面积可以净化空气，与“创建卫生城市，建设水绿盐城”吻合，故不符合题意；

B项，焚烧垃圾会产生大量有害气体和粉尘，造成二次污染，与“创建卫生城市，建设水绿盐城”不吻合，故符合题意；

C项，节能减排可以节约能源，净化空气，与“创建卫生城市，建设水绿盐城”吻合，故不符合题意；

D项，公共场所禁止吸烟，可以净化空气，与“创建卫生城市，建设水绿盐城”吻合，故不符合题意；

故答案为：B。

修改后：

答案：

植树种草、节能减排、公共场所禁止吸烟，能够净化空气，保护环境。

解析：A项，植树种草，增大绿化面积可以净化空气，与“创建卫生城市，建设水绿盐城”吻合，故不符合题意；

B项，焚烧垃圾会产生大量有害气体和粉尘，造成二次污染，与“创建卫生城市，建设水绿盐城”不吻合，故符合题意；

C项，节能减排可以节约能源，净化空气，与“创建卫生城市，建设水绿盐城”吻合，故不符合题意；

D项，公共场所禁止吸烟，可以净化空气，与“创建卫生城市，建设水绿盐城”吻合，故不符合题意；

故答案为：B。

非常感谢哦，在这里多次得到大家帮助，感谢这个平台和各位。

413191246se

Sub test()
    ActiveDocument.Content.Find.Execute "([^13^11]答案)([：:])", , , 1, , , , , , "\1：^p", 2
End Sub

yuanfuyong

413191246se 发表于 2019-4-26 13:39
Sub test()
    ActiveDocument.Content.Find.Execute "([^13^11]答案)([：:])", , , 1, , , , , , "\1：^ ...

感谢老师，很好用