Eliminar una Imagen de archivo con VBA

hola,

Estimados tengo como 500 documentos que tiene incrustada una imagen de
un logo(el nombre de la imagen no aparece).
Mi idea es eliminar esta imagen con alguna rutina vba, pero aun no he
podido.

No nos dices la version de word que utilizas ni otros detalles que son
necesarios a la hora de realizar codigo ??

prueba con algo mas o menos como lo siguiente >>

'[]

Sub eliminar_imagenes_archivos()

Dim prueba As Boolean, archivo As String, _
ruta As String, documento As Document

ruta = "C:\Usuario\xxx\escritorio\carpetaArchivos\"


On Error Resume Next

archivo = Dir(ruta & "*.doc")

While archivo <> ""

Set documento = Documents.Open(ruta & archivo)

With documento

.InlineShapes(1).Delete
.Close SaveChanges:=wdSaveChanges

End With


archivo = Dir

Wend

End Sub

'[]

Cambia la ruta >>

ruta = "C:\Usuario\xxx\escritorio\carpetaArchivos\"

Por la ruta de tu carpeta donde se encuentre tu archivo

Al tratarse de Imagenes puede en word pueden estar o bien flotantes o bien
en linea con el texo por lo tanto es posible que no se realice la
eliminacion en cuestion es mas no realice nada :-(

al igual que si la imagen esta insertada en Encabezados-pies de pagina yyyyy
al igual no realizara nada la macro si la imagen o Logo no es la imagen
primera del documento

Ojo >> si antes del logo hay otra imagen en linean con el texto fuera de los
Encabezados sera esa la que se elimine :(

por lo tanto antes de ejecutar la macro realiza las pruebas oportunas en una
carperta a parte [copia de la carpeta Original ]

Al tratarse de 500 Documento la macro puede tardar en terminar de ejecutarse
algun que otro minuto yyyyy

comentanos cualquier duda :) !!

SAludos
Monica




www.fermu.com
www.teladearana.es
www.elguille.info

muchas gracias, funciono de maravillas, ultima consulta, por medio de
vba se puede saber el nombre de la imagen adjunta? por ejemplo
mifoto.jpg.

la imagen por si acaso es inline.

Mariolos.

Monica May ha escrito:

hola,

> Estimados tengo como 500 documentos que tiene incrustada una imagen de
> un logo(el nombre de la imagen no aparece).
> Mi idea es eliminar esta imagen con alguna rutina vba, pero aun no he
> podido.

No nos dices la version de word que utilizas ni otros detalles que son
necesarios a la hora de realizar codigo ??

prueba con algo mas o menos como lo siguiente >>

'[]

Sub eliminar_imagenes_archivos()

Dim prueba As Boolean, archivo As String, _
ruta As String, documento As Document

ruta = "C:\Usuario\xxx\escritorio\carpetaArchivos\"


On Error Resume Next

archivo = Dir(ruta & "*.doc")

While archivo <> ""

Set documento = Documents.Open(ruta & archivo)

With documento

.InlineShapes(1).Delete
.Close SaveChanges:=wdSaveChanges

End With


archivo = Dir

Wend

End Sub

'[]

Cambia la ruta >>

ruta = "C:\Usuario\xxx\escritorio\carpetaArchivos\"

Por la ruta de tu carpeta donde se encuentre tu archivo

Al tratarse de Imagenes puede en word pueden estar o bien flotantes o bien
en linea con el texo por lo tanto es posible que no se realice la
eliminacion en cuestion es mas no realice nada :-(

al igual que si la imagen esta insertada en Encabezados-pies de pagina yyyyy
al igual no realizara nada la macro si la imagen o Logo no es la imagen
primera del documento

Ojo >> si antes del logo hay otra imagen en linean con el texto fuera de los
Encabezados sera esa la que se elimine :(

por lo tanto antes de ejecutar la macro realiza las pruebas oportunas en una
carperta a parte [copia de la carpeta Original ]

Al tratarse de 500 Documento la macro puede tardar en terminar de ejecutarse
algun que otro minuto yyyyy

comentanos cualquier duda :) !!

SAludos
Monica




www.fermu.com
www.teladearana.es
www.elguille.info

Hola,

muchas gracias, funciono de maravillas, ultima consulta, por medio de
vba se puede saber el nombre de la imagen adjunta? por ejemplo
mifoto.jpg... la imagen por si acaso es inline.

Pues dependiendo :-) de si >>

esas imagenes estan vinculadas al archivo ???

si estan vinculadas al archivo si es posible saberlo pero si no estan
vinculadas por defecto Visual Basic de word las inserta como >>

Picture1, Picture2, Picture3 etc

Comentanos...!!

Saludos
Monica