How to Remove Shape in Ms Word

How to remove shape in Ms Word using VBA Macro

In Microsoft word, it provides the approach to write VBA Function known as Macro to perform automatically tasks in Ms Word. We can also implement VBA class objects with VBA’s function for the automatically tasks. First, write your own function to remove all shapes which contain in Word File. VBA contains a Class Object called Shape and Shapes to deal with all shapes. We can use Shape Object to delete, select or duplicate the shape.

Code Sample to delete all shapes

Here is complete code example to remove all shapes. This example uses Shapeobject in VBA:

SubRemoveShapes()

    Dim oShape AsShape

    Do

        For EachoShape In ActiveDocument.Shapes

           ' Delete the shape

            oShape.Delete

        NextoShape

    Loop UntilActiveDocument.Shapes.Count = 0

   

    Set oShape = Nothing

End Sub

How to test this Code

1. Open Ms Word

2. Open VB Editor or Alt+F11

3. Create new module

4. Copy and paste the Code

5. Go back to you word and go to Macro Dialog then select the Macro Name RemoveShape and Click on Run

That’s all on how to remove all shapes in Ms Word.