开动脑筋想想看:如何只保留文档里的蓝色文字?

马成功老师
马成功老师

创作者俱乐部成员

下面这个文档有很多蓝色文字,要求:蓝色文字留下,其他全删掉,该如何实现?


招商银行分行


地址:呼伦贝尔市海拉尔区阿里河路XX号


电话:XXXXX、XXXXXXXXXXX、XXXXXXXX



招商银行新华东街支行


地址:呼和浩特市新华东街亿峰岛商业小区一层底


电话:XXXXX、XXXX-XXXXXXX、XXXXXXX



招商银行巨海城支行


地址:呼和浩特市赛罕区丰州路嘉友城市花园


电话:XXXXX、XXXXXXX



招商银行成吉思汗大街支行


地址:呼市新城区成吉思汗大街维多利金色华府


电话:XXXXX



招商银行金桥支行


地址:呼和浩特市金桥开发区金桥路


电话:XXXXX、XXXXXXX



招商银行新华广场支行


地址:呼和浩特市新华大街XX号


电话:XXXXX、XXXXXXX、XXXXXXX



招商银行如意支行


地址:呼和浩特市如意开发区四纬路上东领海底商


电话:XXXXX、XXXXXXX、XXXXXXX



招商银行分行营业部


地址:呼和浩特市敕勒川大街X号招商银行大厦一


电话:XXXXX,XXXXXXX、XXXXXXX



招商银行大学东街支行


地址:呼和浩特市大学东街金厦综合楼一、二楼


电话:XXXXX,XXXXXXX



招商银行长安金座支行


地址:呼和浩特市新华东街XX号和海广场


电话:XXXXX、XXXX-XXXXXXX、XXXXXX



招商银行支行


地址:鄂尔多斯市东胜区天骄北路鑫通中央大厦A座


电话:XXXX-XXXXXXX;XXXXXXX;XXXXX



招商银行支行


地址:包头市钢铁大街甲X号(电视台对面西北角)


电话:XXXXX、XXXX-XXXXXXX、XXXXXXX


内蒙古
浏览 647
收藏
3
分享
3 +1
3
+1
全部评论 3
 
郑亿Oscar
郑亿Oscar

创作者俱乐部成员

ctrl+H查找 选择格式→字体颜色→对应颜色 在以下范围内查找→主文档 ctrl+C ctrl+V
· 浙江省
回复
 
王俊博
王俊博

创作者俱乐部成员

找规律,把文字转换成表格,保留需要的内容
· 河北省
回复
 
会飞的鱼
会飞的鱼

KVP函数专家、创作者俱乐部成员

Sub kkkk() m = ActiveDocument.Paragraphs.Count For x = m To 1 Step -1 Set aa = ActiveDocument.Paragraphs(x) tx = aa.Range.Text tx = Replace(tx, Chr(10), "") tx = Replace(tx, Chr(13), "") If Right(tx, 1) <> "行" Then aa.Range.Delete End If Next End Sub 用vba算不
· 辽宁省
回复