Eliminar una imagen de 3000 archivos Word

[jhonny]

Ey, que bien, segun veo podría tratar de traducir eso a Delphi también, voy a intentarlo y les contaré que sucede.

Muchas gracias.

[[BlueSteel]]

Empezado por jhonny

Ey, que bien, segun veo podría tratar de traducir eso a Delphi también, voy a intentarlo y les contaré que sucede.

Muchas gracias.

Hola Jhonny.. y como te fue con este tema.. pudistes cambiar la imagen de todos tus archivos... la pudistes pasar a Delphi...

salu2

[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