Eliminar una imagen de 3000 archivos Word

[jhonny]

Hola amigos, hoy traigo una duda que me asalta en gran manera...

Tengo 3.000 archivos creados en Word, los 3.000 archivos tienen una imagen cada uno.

¿Conocen alguna manera de automatizar un proceso, para que elimine de los 3.000 documentos esa imagen?, no importa si se puede hacer con codigo Delphi (Aunque sería mucho mejor, pues aprenderiamos más) o de alguna otra manera.

Por el tiempo y atención, muchas gracias.

[[BlueSteel]]

Hola

Revisa este link... puede que te sirva la macro que sale allí

Salu2

[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