var objWord = CreateObject("Word.Application")
var objdoc = objWord.Documents.Open("C:\1.docx")
objWord.Visible = True
'Set selection = objWord.Selection

'Selection.InlineShapes.Item(1).Delete
'objDoc.Content.InlineShapes.AddPicture("c:\1.jpg,false,true)

'objDoc.Saved = True
objDoc.Close
objWord.Quit

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\1.docx")
objWord.Visible = True

Dim iShape
For Each iShape In objDoc.Content.InlineShapes 
 iShape.Delete
Next

objDoc.InlineShapes.AddPicture "c:\1.jpg",false,true

objDoc.Saved = True
objDoc.Close
objWord.Quit