delete all wordArt

delete_all_wordArt.vba

Sub DeleteArtisticText()
    Dim oShape As Shape
    Dim toDelete As New Collection
    Dim targetTexts() As Variant

    ' Specify the texts you want to delete
    targetTexts = Array("Text1", "Text2", "Text3") ' Add your specific texts here

    ' First, find all shapes to delete and add them to the collection
    For Each oShape In ActiveDocument.Shapes
        If oShape.Type = msoTextEffect Then
            ' Check if the text matches any of the target texts
            For Each targetText In targetTexts
                If oShape.TextEffect.Text = targetText Then
                    toDelete.Add oShape
                    Exit For ' No need to check the remaining texts if a match is found
                End If
            Next targetText
        End If
    Next oShape

    ' Now, delete the shapes
    For Each oShape In toDelete
        oShape.Delete
    Next oShape
End Sub

请注意，您需要将 Array("Text1", "Text2", "Text3") 中的 "Text1", "Text2" 和 "Text3" 替换为您想要删除的具体文本。