用VBA取消word文中全部阴影

w2001pf6604

用VBA取消word文中全部阴影.谢谢!

thunor

Private Sub Del_Shade()
For Each rng In ActiveDocument.Sentences
         If rng.ParagraphFormat.Shading.BackgroundPatternColor <> wdColorAutomatic Then
                rng.Select
                 With Selection.ParagraphFormat
                    With .Shading
                        .BackgroundPatternColor = wdColorAutomatic
                    End With
                End With
            
            End If
Next
ActiveWindow.Selection.StartOf (6)
End Sub

thunor

Sub Quick_Del_Shade()
Selection.WholeStory
    With Selection.ParagraphFormat
        With .Shading
            .BackgroundPatternColor = wdColorAutomatic
        End With
    End With
    ActiveWindow.Selection.StartOf (6)
End Sub

thunor

以上两种方法皆可达到目的，后一种速度更快。

w2001pf6604

thunor 发表于 2024-8-18 10:24
以上两种方法皆可达到目的，后一种速度更快。

方法在哪里啊?谢谢!

thunor

审核中ing，你等等吧。