前后顺序重新排列

相见是缘8

各位老师好！想将类似下面每个段落中，关键字的前后顺序，重新排列，求老师们帮忙，谢谢！

替换前：

破水救火：干姜＋附子＝干姜附子汤。
泻火护水：大黄＋黄连＝大黄黄连泻心汤。
宣透郁热：栀子＋豆豉＝栀子豉汤。
燥湿降逆：半夏＋干姜＝半夏干姜散。
辛散水饮：半夏＋生姜汁＝生姜半夏汤。
缓急止痛：乌头＋蜜＝大乌头煎。
燥肝搜络：蜘蛛＋桂枝＝蜘蛛散。
破气养血：枳实＋芍药＝枳实芍药散。
健脾宽中：枳实＋白术＝枳术汤。
清上利下：百合＋滑石＝百合滑石散。
泻肺利水：葶苈子＋大枣＝葶苈大枣泻肺汤。
降热生津：栝楼根＋牡蛎＝栝楼牡蛎散。
润燥化瘀：猪膏＋乱发＝猪膏发煎。
化瘀利窍：蒲灰＋滑石＝蒲灰散。
活血解毒：赤小豆＋当归＝赤小豆当归散。
涩肠固脱：赤石脂＋禹余粮＝赤石脂禹余粮汤。
清肠止痢：紫参＋甘草＝紫参汤。
去尘除积：杏仁＋巴豆＝《外台》走马汤。


替换后：

干姜附子汤————干姜＋附子——破水救火。
大黄黄连泻心汤——大黄＋黄连——泻火护水。
栀子豉汤—————栀子＋豆豉——宣透郁热。
…………
…………
《外台》走马汤——杏仁＋巴豆——去尘除积。

ev20

ctrl+E   快捷键  了解下

sznie

看这样行不行
Sub test1()
    For i = 1 To ActiveDocument.Paragraphs.Count
        p = Replace(ActiveDocument.Paragraphs(i).Range.Text, "。" & vbCr, "")
        If p Like "*：*＝*" Then
            n = Len(Split(p, "＝")(1))
            g = ""
            If n > 8 Then
                g = "——"
            Else
                For m = 1 To (10 - n)
                    g = g & "—"
                Next m
            End If
            t = Split(p, "＝")(1) & g & Split(Split(p, "＝")(0), "：")(1) & "——" & Split(Split(p, "＝")(0), "：")(0)
            ActiveDocument.Paragraphs(i).Range.Text = t & "。" & vbCr
        End If
    Next
End Sub

batmanbbs

第一步：调整顺序（——可以根据最长的药名设置长一些）

第二步：根据最长药名，删除多余——

gwjkkkkk

请参考附件。。。

相见是缘8

ev20 发表于 2023-10-10 09:34
ctrl+E   快捷键  了解下

ev20老师好！
Ctrl＋E  快捷键，也可以实现吗？请详教！谢谢！

相见是缘8

sznie 发表于 2023-10-10 13:33
看这样行不行
Sub test1()
    For i = 1 To ActiveDocument.Paragraphs.Count

sznie老师好！
感谢援手！代码完美达愿，感谢老师！

相见是缘8

batmanbbs 发表于 2023-10-10 14:01
第一步：调整顺序（——可以根据最长的药名设置长一些）

第二步：根据最长药名，删除多余——

batmanbbs 老师好！
手动两次替换就解决，简单实用！感谢老师！

第一步：（勾选通配符）。
([!^13]@)：(*)＝(*)(。^13)
\3——————\2——\1\4

第二步：（勾选通配符）。
([!^13]{8})——{1,}(*^13)
\1\2

相见是缘8

gwjkkkkk 发表于 2023-10-10 19:52
请参考附件。。。

gwjkkkkk 老师好！
感谢援手！代码几乎完美，就是最后的 “去尘除积：杏仁＋巴豆＝《外台》走马汤” 这一段，在我这不知啥原因会没有了。

蜀中草莽

([一-龥]{1,})：([一-龥]{1,}＋[一-龥]{1,})＝(*)。


\3————\2——\1

一次就搞定了