如何查找底纹替换

duquancai

菜菜行者 发表于 2017-10-2 19:37
附件已上传，麻烦杜老师。

如果是根据颜色数值来判断的话，这样就比较被动

Sub 查找底纹并替换()
    Dim sXml As String, reg As Object
    Set reg = CreateObject("VBScript.Regexp")
    reg.Global = True
    reg.Pattern = "(w:fill=""[^""]+""/></w:rPr><w:t>)([^<]+)(</w:t>)"
    With ActiveDocument.Content
        sXml = .WordOpenXML
        sXml = reg.Replace(sXml, "$1★$2★$3")
        .InsertXML sXml
    End With
End Sub

duquancai

菜菜行者 发表于 2017-10-2 19:37
附件已上传，麻烦杜老师。

如果是根据颜色数值来判断的话，这样就比较被动

代码在审核中。。。。。。。。。。。。。。。。

duquancai

菜菜行者 发表于 2017-10-2 19:37
附件已上传，麻烦杜老师。

如果是根据颜色数值来判断的话，这样就比较被动

不会根据颜色数值来判断的。。。。。。

菜菜行者

duquancai 发表于 2017-10-2 20:08
不会根据颜色数值来判断的。。。。。。

你在11楼的代码，运行是可以把不同颜色处理了，这个是OK了。

只是我忽略了另外一种可能，就是词之间有空格时，空格却被重新处理了一次。

菜菜行者

几种底纹　有空格.rar (2.76 KB, 下载次数: 2)

2017-10-2 20:22 上传

点击文件名下载附件

duquancai

菜菜行者 发表于 2017-10-2 20:21
你在11楼的代码，运行是可以把不同颜色处理了，这个是OK了。

只是我忽略了另外一种可能，就是词之间有 ...

本来你这题目就没有意思，也没有啥实际用途，说实话我不是很想做这个题目！
空格（还有回车符等不可见字符）也是字符，空也（以及不可见的字符）同样是加了底纹的，所以同样会被处理！

菜菜行者

duquancai 发表于 2017-10-2 20:26
本来你这题目就没有意思，也没有啥实际用途，说实话我不是很想做这个题目！
空格（还有回车符等不可见字 ...

效果已经很可以了，谢谢抽空解决

13907933959

duquancai 发表于 2017-10-2 19:57
Sub 查找底纹并替换()
    Dim sXml As String, reg As Object
    Set reg = CreateObject("VBScript. ...

杜前辈好！
不知什么原因，我运行11楼的代码，显示 “编辑错误：方法和数据成员未找到”。

duquancai

13907933959 发表于 2017-10-3 06:45
杜前辈好！
不知什么原因，我运行11楼的代码，显示 “编辑错误：方法和数据成员未找到”。

03版本的  不适用！！！

13907933959

duquancai 发表于 2017-10-3 09:09
03版本的  不适用！！！

杜前辈好！
啊、原来是版本的原因，感谢前辈回复！