1

我正在使用以下宏来遍历 Word 文档并从其中的所有表中删除颜色，但第一个表除外。

由于使用合并字段自动填充这些文档的应用程序存在表单保护问题，我们的文档绝对不能与表单字段一起使用。所以，下一个最好的事情是只标记仍然需要用阴影填充的内容，然后在打印文档之前移除阴影。但是，当此代码遍历文档时，它会删除某些表格的一些边框。

我绝对不想要这个，我只想去除阴影。我不知道它为什么这样做，所以如果有人对此有任何见解，那将是最有帮助的。如果没有，如果我可以调整此宏以仅更改具有非白色背景颜色的单元格，那也可以。

我尝试了嵌套循环的几种变体，但无法让它以这种方式运行。

Sub decolordocument()
    Dim tbl As Table
    Dim first As Boolean

    first = True

    For Each tbl In ActiveDocument.Tables
        If first Then
            first = False
        Else
            tbl.Shading.BackgroundPatternColor = wdColorWhite
        End If
    Next

    MsgBox "Shaded cells in tables have been updated."
End Sub

我也尝试了这段代码，并得到了相同的边框被删除效果：

Sub decolordocument()

    Dim tbl As Table
    Dim tblCount As Long
    Dim i As Long
    Dim first As Boolean

    tblCount = ActiveDocument.Tables.Count

    For i = 2 To tblCount
        With ActiveDocument.Tables(i).Shading
            .BackgroundPatternColor = wdColorWhite
        End With
    Next
    MsgBox "Shaded cells in tables have been updated."

End Sub

编辑：虽然我仍然看不出是什么使这些表格失去了边界，但我发现以某种方式拆分表格会导致它们不会失去边界。我已经尽力将其隔离，但没有运气，因为似乎只有某种事物的组合会导致边界的丧失。但是，至少我有一些有用的东西。如果任何人都可以提供一个宏来按照最初的要求遍历各个单元格，那么放在后袋中可能不是一个坏选择。

4

2 回答 2

1

您必须使用.Shading删除背景。

我将在一份文件中进行演示。请根据您的代码进行调整。

假设您的文档如下所示

在此处输入图像描述

试试这个代码

Option Explicit

Sub Sample()
    Dim tblCount As Long
    Dim i As Long

    '~~> Get the Tables Count
    tblCount = ActiveDocument.Tables.Count

    '~~> If number of tables is less than 2 then exit sub
    If tblCount < 2 Then Exit Sub

    '~~> Start with 2nd table and loop
    For i = 2 To tblCount
        '~~> Remove background
        With ActiveDocument.Tables(i).Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = wdColorAutomatic
        End With
    Next
End Sub

这是代码运行后文档的外观

在此处输入图像描述

于 2013-02-19T16:37:33.997 回答
0

终于想出了一个宏来遍历单元格。出于某种原因，在我尝试这个之前，我无法让每个循环的嵌套工作。所有带阴影的单元格都是相同的灰色阴影，所以我只是比较了每个单元格，只有当它是灰色时才更改它。这不是最有效的方法，但由于这些文档很小，所以效果很好。

Sub decolordocument()

Dim tbl As Table
Dim tblCount As Long
Dim cll As Word.Cell
Dim i As Long

tblCount = ActiveDocument.Tables.Count

For i = 2 To tblCount
    For Each cll In ActiveDocument.Tables(i).Range.Cells
        If cll.Shading.BackgroundPatternColor = RGB(217, 217, 217) Then
            cll.Shading.BackgroundPatternColor = wdColorWhite
        End If
    Next
Next
MsgBox "Color in shaded cells has been removed."

End Sub
于 2013-03-05T16:31:01.447 回答