Thread: help creating VBA to change existing picture in multiple word docs

hi,
i have many word 2007 docs that have inside 1 picture,i'm trying to find a way to batch change them to other image that i have on my pc.so far with no luck..
came up only with this:

Dim cc As ContentControl
   Set cc = ActiveDocument.ContentControls(1)
   If cc.Type = wdContentControlPicture Then
       If cc.Range.InlineShapes.Count > 0 Then
           cc.Range.InlineShapes(1).Delete
       End If
       ActiveDocument.InlineShapes.AddPicture _
           FileName:="c:\logo.jpg", _
           linktofile:=False, Range:=cc.Range
   End If

and without any luck..
any suggestions?