Все что получилось с помощью рекордера-
удаление фиксированного количества рисунков
...если бы была функция вроде "picture.count"
или 'graphics.count'

For i1 = 1 To 50
Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToFirst, Count:=i1
Selection.FIND.ClearFormatting
With Selection.FIND
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Delete Unit:=wdCharacter, Count:=1
Next
End Sub

Кроме общей дебильности примера он еще не переходит к картинкам внутри
ячеек таблиц
и если допустим количество картинок меньше 50 то начинает колбасить
начало документа
Помогите...
Сппасибо!