除药方以外，含有药材名的黑色段落变色

likaiyihou

写了一个替代方案：楼主需要设置蓝色的段落均系医药家的评述，为古语表达，带有“之、乎、也”的语气助词，故将包含“之、乎、也”的段落设置蓝色。
该方案不完美，可能存在部分段落遗漏（评述段中没有“之、乎、也”）、或不属于医药家评述段也设置为蓝色（其他段落包含了“之、乎、也”），需要手工更正。

XL3750727

这个要怎么弄呢，座等高手。

相见是缘8

likaiyihou 发表于 2022-11-22 11:19
写了一个替代方案：楼主需要设置蓝色的段落均系医药家的评述，为古语表达，带有“之、乎、也”的语气助词， ...

likaiyihou 老师好！
感谢你援手相助！谢谢！
我最终的目的，就是把文档中，除  “药方”  段落中的药材名外，其它的段落中的药材名，全部加上中文双引号，可中药材名有几万种之多，以前为这个发过求助帖，z9bhd 和 tcdatongye 老师写的代码以解决。
https://club.excelhome.net/thread-1579775-1-1.html   67楼。
我用这2位老师写的代码，可以给文档中的中药材名加上中文双引号，但问题是：它把文档中所有的中药材名，都加上了中文双引号，因  “药方”  中的药材名，不允许加上中文双引号，所以才想利用变色来把它们区分开来，以便精准的查找到要加中文双引号的中药材名。
不知老师你是否有更好的办法避开它？因我的几个实际文档，都有2～3千页不等，如用手工修改，需要很长很长的时间！

相见是缘8

XL3750727 发表于 2022-11-22 16:28
这个要怎么弄呢，座等高手。

感谢老师参议！

likaiyihou

相见是缘8 发表于 2022-11-23 06:33
likaiyihou 老师好！
感谢你援手相助！谢谢！
我最终的目的，就是把文档中，除  “药方”  段落中的药 ...

可能我电脑有点问题，看不到67楼附件中的代码，不清楚到底是如何具体实现的。针对你所述的目的，简单说一下我的思路：
1、根据z9bhd 和 tcdatongye 老师的代码，对中药材名加上中文双引号；
2、识别同时包含有中文双引号、包含有斤两钱克等计量单位、不包含“之乎者也”语气助词的段落（可利用正则表达式或者instr函数实现）。
3、对识别出来的段落去掉中文双引号（可利用正则表达式或者replace函数实现）。

相见是缘8

likaiyihou 发表于 2022-11-23 08:49
可能我电脑有点问题，看不到67楼附件中的代码，不清楚到底是如何具体实现的。针对你所述的目的，简单说一 ...

likaiyihou老师好！

请看两位老师的代码！

Sub 中药材名后加双引号()

'只对黑色的中药材名后加双引号。

'把“测试的文档”和“替换的关键字符”的文档，放在同一个新建的文件夹内，因它要调用“替换的关键字符的文档” 。

'这个代码，它要打开“测试的文档”，打开“代码窗口”，在左边的“代码窗口”，在下面找到那个“测试的文档”点一下鼠标右键，→插入→模块，把代码粘贴进去，才可。

    Dim rng As Range

    Set wd = GetObject(ThisDocument.Path &"\替换的关键字符.doc")

        arr = Split(wd.Range, Chr(13))

        wd.Close savechanges:=False

        Set rng = Selection.Range

        For i = 0 To UBound(arr) - 1

        rng.StartOf unit:=wdStory

        Application.StatusBar = "正在替换" & i & "-->" & arr(i)

        With rng.Find  '查找设置。

            .MatchWildcards = True  '勾选“使用通配符”。

            .Text = arr(i)

            .Font.ColorIndex = wdBlack  '字体颜色、黑色。

            .Format = True  '查找格式。

            .Replacement.Text = "“^&”"  '替换的字不变，加双引号。

            .Execute Replace:=wdReplaceAll  '全部替换。

        End With

    Next i

End Sub

相见是缘8

likaiyihou 发表于 2022-11-23 08:49
可能我电脑有点问题，看不到67楼附件中的代码，不清楚到底是如何具体实现的。针对你所述的目的，简单说一 ...

发重了，删除。
      

相见是缘8

likaiyihou 发表于 2022-11-23 08:49
可能我电脑有点问题，看不到67楼附件中的代码，不清楚到底是如何具体实现的。针对你所述的目的，简单说一 ...

likaiyihou 老师，你有空写个代码，帮我解决这个问题吗？

相见是缘8

继续向老师们求助！