[ vojvoda1010 @ 03.10.2020. 15:32 ] @
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? |