ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2224|回复: 19

[求助] 这样的批量替换,不知可否实现!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-4-28 10:23 | 显示全部楼层 |阅读模式
各位前辈好!
想把“原文件”中的中药材,作如下批量替换:
1、让每个中药材名的上一段,为空段。
2、每个中药材名的后面加上一个中文冒号。
3、“味性”及它们的属性,分开,并前后的位置调换。
4、每个“归经”及后面本段的文字,下移一段:
具体详见2个附件!因还有几百页需要整理,求各位前辈帮忙!拜谢!
原文件
百药煎
味性:酸甘,平。归经:心;肺;胃经。润肺化痰,生津止渴。治久咳痰多,咽痛,便血,久痢脱肛,口疮,牙疳,痈肿疮疡。
豺肉
味性:甘酸,温。归经:肝;肾;脾;胃经。补虚消积;散瘀消肿。主虚劳体弱;食积;跌打瘀肿;痔瘘
橙子(橙、黄橙、金橙、金球、鹄壳)
味性:酸;凉。归经:肺;肝;胃经。止呕恶,宽胸膈,消瘿,解酒,杀鱼、蟹毒。
赤小豆叶(赤小豆藿、小豆藿、小豆叶)
味性:味甘;酸;涩;性平。归经:肝;肾;胃经。固肾缩尿;明目;止渴。主小便频数;肝热目糊;心烦口渴
赤阳子(救军粮、赤果、纯阳子、火把果、红子、救兵粮)、水沙子、救兵粮、豆金娘、小红子、火棘)
味性:甘;酸;涩;平。归经:肝;脾;胃经。健脾消积,活血止血。治痞块,食积,泄泻,痢疾,崩漏,产后血瘀。
刺梨(茨梨、文先果、团糖二、莰梨、文光果、油刺果)
味性:甘;酸涩。归经:脾;肾;胃经。健胃;消食;止泻。主食积饱胀;肠炎腹泻
……
想要达到的效果
百药煎
性:平。味:酸、甘。
归经:心、肺、胃经。润肺化痰,生津止渴。治:久咳痰多,咽痛,便血,久痢脱肛,口疮,牙疳,痈肿疮疡。
豺肉
性:温。味:甘、酸。
归经:肝、肾、脾、胃经。补虚消积;散瘀消肿。主虚劳体弱;食积;跌打瘀肿;痔瘘。
橙子(别名:橙、黄橙、金橙、金球、鹄壳):
性:凉。味:酸、甘。
归经:心、肺、胃经。润肺化痰,生津止渴。治:久咳痰多,咽痛,便血,久痢脱肛,口疮,牙疳,痈肿疮疡。
赤小豆叶(别名:赤小豆藿、小豆藿、小豆叶):
性:平。味:甘、酸、涩。
归经:肝、肾、胃经。固肾缩尿;明目;止渴。主小便频数;肝热目糊;心烦口渴。
赤阳子(别名:救军粮、赤果、纯阳子、火把果、红子、救兵粮)、水沙子、救兵粮、豆金娘、小红子、火棘):
性:平。味:甘、酸、涩。
归经:肝、脾、胃经。健脾消积,活血止血。治:痞块,食积,泄泻,痢疾,崩漏,产后血瘀。
刺梨(别名:茨梨、文先果、团糖二、莰梨、文光果、油刺果):
性:凉。味:甘、酸、涩。
归经:脾、肾、胃经。健胃、消食;止泻。主食积饱胀;肠炎腹泻。
……

原文件.rar

10.76 KB, 下载次数: 13

想要达到的效果.rar

11.75 KB, 下载次数: 7

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-28 13:36 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-28 17:40 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-4-28 20:52 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-4-28 23:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
  1. Sub main()
  2.     Dim txt As String, p, i%, j%, iLen%, Wei As String, Xing As String
  3.    
  4.     myReplace "^p味性:", ":^p味性:"
  5.     myReplace "归经:", "^p归经:"

  6.     For i = ThisDocument.Paragraphs.Count To 4 Step -1
  7.         txt = ThisDocument.Paragraphs(i).Range.Text
  8.         If InStr(txt, "味性:") Then
  9.             txt = Mid(txt, 4)
  10.             iLen = Len(txt)
  11.             For j = iLen To 1 Step -1
  12.                 If Mid(txt, j, 1) Like "[,;、]" Then
  13.                     Xing = Mid(txt, j + 1, iLen - j - 1)
  14.                     Wei = Left(txt, j - 1)
  15.                     Exit For
  16.                 End If
  17.             Next
  18.             ThisDocument.Paragraphs(i).Range.Text = "性:" & Xing & "味:" & Wei & "。" & vbLf
  19.             ThisDocument.Paragraphs(i).Range.Bold = False
  20.         End If
  21.     Next
  22.    
  23.     myReplace "性:性", "性:"
  24.     myReplace "味:味", "味:"
  25. End Sub

  26. Sub myReplace(FoundText As String, ReplaceText As String)
  27.     With ThisDocument.Range
  28.         .Find.ClearFormatting
  29.         .Find.Replacement.ClearFormatting
  30.         With .Find
  31.             .Text = FoundText
  32.             .Replacement.Text = ReplaceText
  33.         End With
  34.         .Find.Execute Replace:=wdReplaceAll
  35.     End With
  36. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2020-4-28 23:27 | 显示全部楼层
给你个附件。你把原文件的内容复制到附件的“原文件.docm”里,然后按里面的“format adjust”按钮。

原文件.rar

37.5 KB, 下载次数: 8

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-29 07:45 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-29 07:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 13907933959 于 2020-4-29 07:50 编辑
回多了一个,删除。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-29 07:46 | 显示全部楼层

我把代码放到代码窗口内,在我的 “原文件” 上运行代码,没有反应,不知是我那里操作不对,还请您指教!谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-29 07:48 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
mzbao 发表于 2020-4-28 23:27
给你个附件。你把原文件的内容复制到附件的“原文件.docm”里,然后按里面的“format adjust”按钮。

前辈好!
感谢帮忙!我按您所教的步骤操作,点文档内的“format adjust”按钮,也没反应,弹出“设置图片格式”框,如下图所示:不知是我那里操作不对,还请您指教!谢谢!
图片.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-28 06:53 , Processed in 0.053215 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表