VBA : Remove All Pictures Include Caption Text, Table Formatting

[Susanto3311]

hi all
how to fix this macro code to remove all pictures from document
this code work but not perfect

Code: Select all

Sub DitchPictures()
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
End Sub

after run macro, only picture/images gone/deleted but text & table format not gone
i want the code can gone everything (images, caption text & table/border format)

here picture screen shoot (before ,after run macro, my expected result) to make more clear
thank for anyone help me

susant

[HansV]

Please attach a sample document.

[Susanto3311]

hi hans, this my sample file

[HansV]

Wouldn't the easiest solution be to delete the entire table?

Code: Select all

Sub DeletePhotos()
    ActiveDocument.Tables(1).Delete
End Sub

[Susanto3311]

hi hans, you're right..
thanks for your solution