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?
 |  |
 |
