请教如何替换：出现在以指定内容开头的所有段落中的指定格式的字符

finhb2008

比如：
找出以阿拉伯数字和顿号开头的段落中的下加点格式的“北京”，并加以替换

1、2018超实用北京旅游攻略_百度旅游_带你玩转北京（下加点无法显示）
a. 2018年1月北京市环境空气质量状况（下加点无法显示）
99、北京住房公积金管理中心(北京市住房资金管理中心)认真组织收听收看（下加点无法显示）
---北京捷贝通石油技术股份有限公司（下加点无法显示）

找出上面的第一行和第四行的下加了点的“北京”，改成不加点的“上海”
求教各位office大侠，非常感谢！！

duquancai

提供附件并模拟结果！！！

finhb2008

请教如何替换：出现在以指定内容开头的所有段落中的指定格式的字符
比如：
找出以阿拉伯数字和顿号开头的段落中的下加点格式的“北京”，并加以替换

1、2018超实用北京旅游攻略_百度旅游_带你玩转北京（下加点无法显示）
a. 2018年1月北京市环境空气质量状况（下加点无法显示）
99、北京住房公积金管理中心(北京市住房资金管理中心)认真组织收听收看（下加点无法显示）
---北京捷贝通石油技术股份有限公司（下加点无法显示）

找出上面的第一行、第三行和第四行的加了点的“北京”，改成不加点的“上海”
求教各位office大侠，非常感谢！！

附件。谢谢大侠相助！

duquancai

finhb2008 发表于 2018-3-16 19:26
请教如何替换：出现在以指定内容开头的所有段落中的指定格式的字符
比如：
找出以阿拉伯数字和顿号开头的 ...

今天周末，现在外边，有空给你写个代码！

duquancai

finhb2008 发表于 2018-3-16 19:26
请教如何替换：出现在以指定内容开头的所有段落中的指定格式的字符
比如：
找出以阿拉伯数字和顿号开头的 ...

你说：“以阿拉伯数字和顿号开头的段落”，后面的  “---北京。。。。。。”这一个段落又啥意思？这不前后矛盾吗？

duquancai

finhb2008 发表于 2018-3-16 19:26
请教如何替换：出现在以指定内容开头的所有段落中的指定格式的字符
比如：
找出以阿拉伯数字和顿号开头的 ...

Sub test()
    msgbox "没看懂，不写了！"
End Sub

finhb2008

各位大侠非常抱歉，我上传错附件了！重新上传一次，拜托求解！感谢相助！
（以“---”开头的不变。）

duquancai

finhb2008 发表于 2018-3-18 09:41
各位大侠非常抱歉，我上传错附件了！重新上传一次，拜托求解！感谢相助！
（以“---”开头的不变。）

这次我看懂你的需求了！周末有点时间给你写一个代码。

1. Sub test()
   
2.     ActiveDocument.Range(0, 0).InsertBefore vbCr
   
3.     With ActiveDocument.Content.Find
   
4.         Do While .Execute("^13[0-9]@、", , , -1)
   
5.             With .Parent.Paragraphs(2).Range.Find
   
6.                 .Font.EmphasisMark = 1
   
7.                 .Replacement.Font.EmphasisMark = 0
   
8.                 .Execute "北京", , , 0, , , , , , "上海", 2
   
9.             End With
   
10.         Loop
    
11.     End With
    
12.     ActiveDocument.Paragraphs(1).Range.Text = Empty
    
13. End Sub

复制代码

finhb2008

赞 duquancai大侠威武！感谢相助！