select folder and remove picutre batch word file

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



ovo mi je kod kojem trebam da dodam jos jedan kod (ali ne znam) da izaberem folder u kojem ima vise word file i kada ga obelezim da izbrise objekte.

kako?