Поиск и удаление конкретного графического объекта и внеш. связей

По второму вопросу читайте заметку Связывание и разрыв связей с графическими объектами в редакторе Word.

По первому вопросу попробуйте такой макрос (быстро переделал из другого макроса с похожей целью):

Sub CopyNamePicture_and_Delete_It()
'Копируем для каждой картинки в буфер имя файла картинки из диалогового окна "Связи"
'и удаляем, если имя картинки file.jpg
Dim oSec As Section
Dim sName As String
Dim sStart As String
Dim oShape As InlineShape
Dim i As Integer
For Each oSec In ActiveDocument.Sections
   For Each oShape In ActiveDocument.InlineShapes
      If oShape.Type = wdInlineShapeLinkedPicture Then  'если рисунок связан
         sName = oShape.Field.Code
         sName = Replace(sName, Chr(34) & " \* MERGEFORMAT ", "")
         sStart = InStrRev(sName, "/")
         sName = Right(sName, Len(sName) - sStart)
         'проверяем имя картинки и если совпадает - удаляем картинку
         If sName = "file.jpg" Then oShape.Delete
      ElseIf oShape.Type = wdInlineShapePicture Then
         i = i + 1
      End If
   Next oShape
Next oSec
End Sub

Отредактировано admin (08.04.2010 14:40:17)

А выделить все и нажать комбинацию клавиш CTRL+SHIFT+F9 не помогает?
Знаю точно, что работает с полями и преобразовывает их в обычный текст.. Может быть и с внешними связями это прокатит???

Так предложенный макрос удаляет такие рисунки. Они же были вставлены методом "вставить и связать". Те рисунки, что остались в документе, не имеют связи. Они внедрены в документ.

file.jpg - это имя файла картинки, которое макрос вытаскивает из связи. То есть, существующее у вас на компе имя файла, а не какое-то абстрактное имя.
Чтобы понять, что именно у вас в документе, надо видеть ваш документ вживую.
Как вы вставляли картинки? Если внедряли без связи, то и связи нет и ничего не удаляется. Если же вставляли со связью, то макрос удаляет такие картинки.
Приложите ваш документ, если можете.

Нет, так не пойдет. Я вижу одни рамки в документе. В связях указаны лишь названия для картинок, но ни связей, ни хранения картинок в самом документе не обнаружено.
Сделаем по-другому: Кликните на вашей ненужной картинке, перейдите в диалог "Связи" (меню "Правка") и посмотрите, что написано в сведениях об источнике связи (см. скрин ниже):

Блин, вот простейший код для вашего случая:

Sub del_shape()
Dim oShape As InlineShape
Dim sec As Section
For Each sec In ActiveDocument.Sections
  For Each oShape In ActiveDocument.InlineShapes
    If oShape.LinkFormat.SourceName = "table.jpg" Then oShape.Delete
  Next oShape
Next sec
End Sub