这样的批量替换，不知可否实现！

13907933959

相见是缘8 发表于 2020-5-4 09:01
老师好！
测试发现：
.Execute "(味)(性)(：[味微辛甘酸咸苦涩，、；。]{1,})([性微热温平寒凉。]{1,}) ...

这个我真未发现，还真是个问题！
这个帖子我在 “VBA开发” 版块，也发了一个同样的求助，得到 ggmmlol 前辈的帮助，圆满的解决了这个问题，但问题是由于水平不够看不懂他的代码，导致以后碰到类似的问题，不能 “触类旁通” 的自己解决。wdpfox 前辈的代码相对简单一些、更容易懂一些，如能有办法避开 “性微温、微热、微寒、微凉”…等，就完美了！
http://club.excelhome.net/thread-1534392-1-1.html
在 14 和 18 楼。

相见是缘8

相见是缘8 发表于 2020-5-4 09:01
老师好！
测试发现：
.Execute "(味)(性)(：[味微辛甘酸咸苦涩，、；。]{1,})([性微热温平寒凉。]{1,}) ...

看来要避开这个“性微温、微热、微寒、微凉”难度很大，有那位老师能解决吗？

wdpfox

.Execute "(味)(性)(：[味微辛甘酸咸苦涩，、；。]{1,})([性微热温平寒凉，、；。]{1,})(归经)(*)(^13)", , , 1, , , , , , "\1\3\2：\4^p\5\6\7^p", 2

相见是缘8

wdpfox 发表于 2020-5-9 23:10
.Execute "(味)(性)(：[味微辛甘酸咸苦涩，、；。]{1,})([性微热温平寒凉，、；。]{1,})(归经)(*)(^13)", , ...

老师好！

好像不成，请看下面部分截图：

wdpfox

在昨天回的代码下，再加一行代码，手机回复，没有测试。
.Execute "(微性)(：)", , , 1, , , , , , "性：\1", 2

相见是缘8

wdpfox 发表于 2020-5-10 14:40
在昨天回的代码下，再加一行代码，手机回复，没有测试。
.Execute "(微性)(：)", , , 1, , , , , , "性：\ ...

老师好！
好像不成！

wdpfox

With ActiveDocument.Content.Find
        
        .Execute "(味)(性)(：[味微辛甘酸咸苦涩，、；。]{1,})([性微平温热寒凉。]{1,})(归经)(*)(^13)", , , 1, , , , , , "\1\3\2：\4^p\5\6\7^p", 2
        
        .Execute "(味)(性)(：[味微辛甘酸咸苦涩，、；。]{1,})(归经)(*)(^13)", , , 1, , , , , , "\1\3^p\4\5\6^p", 2
        
        .Execute "(味)(性)(：[性微平温热寒凉。]{1,})(归经)(*)(^13)", , , 1, , , , , , "\2\3^p\4\5\6^p", 2
        
        .Execute "性：性", , , 1, , , , , , "性：", 2
        
        .Execute "味：味", , , 1, , , , , , "味：", 2
        
        .Execute "(微)(性)(：)", , , 1, , , , , , "性：\1", 2
        
        .Execute "^13^13(*)^13", , , 1, , , , , , "^p^p\1：^p", 2
        
        
End With

我试了，应该没有问题。

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！  

相见是缘8

wdpfox 发表于 2020-5-11 12:23
With ActiveDocument.Content.Find
        
        .Execute "(味)(性)(：[味微辛甘酸咸苦涩，、；。]{ ...

啊！不把 “味性” 及它们的属性，前后的位置调换，是可以了，我再自己调试下，感谢老师！