Eliminar una imagen de 3000 archivos Word

[roman]

Mmm. No sé el macro, pero en delphi podría funcionar esto:

Código Delphi [-]
uses ComObj;

const
  wdInlineShapePicture = 3;
  wdInlineShapeLinkedPicture = 4;

procedure QuitaImagenes(Archivo: String);
var
  WordApp: OleVariant;
  Documento: OleVariant;
  Shape: OleVariant;
  I: Integer;

begin
  WordApp := ComObj.CreateOleObject('Word.Application');
  Documento := WordApp.Documents.Open(Archivo);

  for I := Documento.InlineShapes.Count downto 1 do
  begin
    Shape := Documento.InlineShapes.Item(i);
    if Integer(Shape.Type) in [wdInlineShapePicture, wdInlineShapeLinkedPicture] then
      Shape.Delete;
  end;

  Documento.Close;
  WordApp.Quit;
end;

Aunque imagino que aplicado a 3000 archivos puede ser un poco lento.

// Saludos