vba להחלפת תמונה בתוך מסמכי וורד

אז ככה..יש לי המון קבצים בוורד שבפינה הימנית העליונה שלהם יש תמונה,אני מנסה לכתוב סקריפט VBA שיחליף את התמונה בתמונה אחרת באופן אוטומטי אבל בלי הצלחה גדולה מידי

ניסתי את זה במספר קומבינציות אבל בלי הצלחה גם כן:

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

יש הצעות?

נ.ב. MS WORD 2007