如何查找底纹替换

菜菜行者

给的稿子很乱，其中有2种格式，我无法在查找替换里进行查找的，就是
1、底纹
2、字符边框

麻烦大神出手相助。

duquancai

你就这样截图！！！，神仙也不知道字体是用的边框样式及边框线条的粗细？神仙也不可能知道字体底纹是具体什么颜色？

菜菜行者

duquancai 发表于 2017-9-28 12:18
你就这样截图！！！，神仙也不知道字体是用的边框样式及边框线条的粗细？神仙也不可能知道字体底纹是具体什 ...

杜老师，我又忘记传附件了， 不好意思

菜菜行者

刚才忘记上传了，
现上传，请大神帮看一下 查找3种格式.rar (3.56 KB, 下载次数: 9)

2017-9-28 14:57 上传

点击文件名下载附件

duquancai

菜菜行者 发表于 2017-9-28 14:58
刚才忘记上传了，
现上传，请大神帮看一下

我只写了一种（查找底纹并替换），其余两种就没问题了》》》》》》》》》》》》》》》》》
Sub 查找底纹并替换()
    Dim d As Document, sr$, x&
    Set d = ActiveDocument
    With d.Range(0, 0)
        .MoveEnd , 1
        Do While .End < d.Content.End - 1
            If .Font.Shading.Texture = 150 Then
                If .Text <> vbCr Or .Text <> vbCr & Chr(7) Then
                    x = .Start
                    Do
                        .Collapse 0
                        .MoveEnd , 1
                    Loop Until .Font.Shading.Texture = 0
                    sr = d.Range(x, .Start).Text
                    d.Range(x, .Start).Text = "★" & sr & "★"
                    .Collapse 0
                End If
            Else
                .Move , 1
            End If
        Loop
    End With
End Sub

菜菜行者

duquancai 发表于 2017-9-29 05:25
我只写了一种（查找底纹并替换），其余两种就没问题了》》》》》》》》》》》》》》》》》
Sub 查找底纹 ...

首先谢谢杜老师热心帮忙。
我尝试修改里面的参数，方法不对，老是出错，还请老师帮解答疑惑。

试着修改看效果时，下面这句
Loop Until .Font.Shading.Texture = 0
把＝0选中，输入＝，出来很多选项，我任选一种，运行，程序一直在打转转，只能强行退出word

能不能改成另外一种查找方式，是不管底纹是什么颜色都进行同一个替换


麻烦杜老师抽空看看，谢谢了

duquancai

菜菜行者 发表于 2017-9-29 11:11
首先谢谢杜老师热心帮忙。
我尝试修改里面的参数，方法不对，老是出错，还请老师帮解答疑惑。

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

菜菜行者

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

谢谢杜老师，确实好用，但好像只能查找一种底纹，如何是任何一种底纹都能换就好了

duquancai

菜菜行者 发表于 2017-10-2 19:10
谢谢杜老师，确实好用，但好像只能查找一种底纹，如何是任何一种底纹都能换就好了

请提供附件，多列出几种“你说的不同颜色的底纹”

菜菜行者

duquancai 发表于 2017-10-2 19:14
请提供附件，多列出几种“你说的不同颜色的底纹”

几种底纹.rar (2.32 KB, 下载次数: 3)

2017-10-2 19:36 上传

点击文件名下载附件

附件已上传，麻烦杜老师。

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