Convertir archivos de Word a GIF

Si, mira Alberto aquí te envío mi macro para documentos de Excel. A ver si
alguien me la puede modificar para Word, además como un modesto aporte para
quien necesite usarla en Excel.
Lo que quiero es poder enviar tranquila por mail documentos firmados creados
en Word y que nadie pueda extraer la firma con un simple copiar-pegar.

Sub GuardarEnGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Carpeta = "C:\Docs\"
Ruta = Carpeta & "Año " & Year(Date) & "\"
Rango = ActiveSheet.PageSetup.PrintArea
NomArch = ThisWorkbook.Name
NomGif = Left(NomArch, Len(NomArch) - 4) & ".gif"
If Dir(Ruta, vbDirectory) = "" Then MkDir Ruta
With Range(Rango)
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export Ruta & NomGif
.Delete
End With
End Sub

Por cierto, ¿estás en Poole, costa sur de Inglaterra, Canal de la
Mancha?????
¿Y hablando español?

"Alberto" escribió en el mensaje de noticias
news:%

De repente no me expliqué bien

Creo que lo hiciste muy bien.

en formato GIF, o sea que 'guardar como' y poder elegir GIF

Word no tiene esta opción por eso te sugerí PowerPoint que sí la tiene.

Francesca te contesto en el hilo de arriba.
Sí ya te entendí, pero no conozco una forma automática de hacerlo, por eso
te dije que colgaras aquí la macro que tienes para convertir a gif un
libro de Excel. Hay otros compañeros que seguro están siguiendo esta
conversación y si tuvieran algo que aportar lo harán.
También si nos dices un poco más de lo que quieres hacer (para qué lo
necesitas) tal vez podamos ofrecer otras sugerencias más viables.
Recibe un cordial saludo,
Alberto

"Francesca Brasso" wrote in message
news:%

De repente no me expliqué bien: lo que necesito es guardar un archivo
Word en formato GIF, o sea que 'guardar como' y poder elegir GIF.

"Francesca Brasso" escribió en el mensaje de
noticias news:

Necesito convertir archivos de Word a formato GIF. Tengo una macro para
convertir de Excel a GIF pero no he podido adaptarla a Word.
Ojalá alguien me ayude. Uso Office 2007.

No, no he estado por allí, sólo es que soy una apasionada de la geografía y
sabía donde queda Poole.
Voy a probar nuevamente con ese PowerPoint a ver que logro.
Slds
Frn

"Alberto" escribió en el mensaje de noticias
news:

Hola de nuevo Francesca,
Exacto en el mismo canal de la mancha, y hablando... yo más bien que
español diría canarión, pues soy de Tenerife. Por cierto veo que conoces
bien la zona, ¿has estado por aquí?
Volviendo al tema que nos ocupa: me parece acertada la razón por lo que
quieres convertir a gif.
Podrías hacerlo perfectamente con el método que te expliqué, yo lo he
realizado varias veces y me queda perfecto (te he puesto un adjunto para
que veas un ejemplo; o aquí:
http://homepage.ntlworld.com/trujil..._A_Gig.gif)
Sobre el tema de la macro, si quieres esperar para ver si alguien que
sepa, haga la adaptación, o mejor podrías pedir que te la adapten en este
foro: microsoft.public.es.officedev.dbx
Siento no poder ayudarte más, pero si vas a seguir intentándolo con
powerpoint y necesitas ayuda coméntamelo.
Atentos saludos!
Alberto
"Francesca Brasso" wrote in message
news:%

Si, mira Alberto aquí te envío mi macro para documentos de Excel. A ver
si
alguien me la puede modificar para Word, además como un modesto aporte
para
quien necesite usarla en Excel.
Lo que quiero es poder enviar tranquila por mail documentos firmados
creados
en Word y que nadie pueda extraer la firma con un simple copiar-pegar.

Sub GuardarEnGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Carpeta = "C:\Docs\"
Ruta = Carpeta & "Año " & Year(Date) & "\"
Rango = ActiveSheet.PageSetup.PrintArea
NomArch = ThisWorkbook.Name
NomGif = Left(NomArch, Len(NomArch) - 4) & ".gif"
If Dir(Ruta, vbDirectory) = "" Then MkDir Ruta
With Range(Rango)
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export Ruta & NomGif
.Delete
End With
End Sub

Por cierto, ¿estás en Poole, costa sur de Inglaterra, Canal de la
Mancha?????
¿Y hablando español?

"Alberto" escribió en el mensaje de noticias
news:%

De repente no me expliqué bien

Creo que lo hiciste muy bien.

en formato GIF, o sea que 'guardar como' y poder elegir GIF

Word no tiene esta opción por eso te sugerí PowerPoint que sí la tiene.

Francesca te contesto en el hilo de arriba.
Sí ya te entendí, pero no conozco una forma automática de hacerlo, por
eso
te dije que colgaras aquí la macro que tienes para convertir a gif un
libro de Excel. Hay otros compañeros que seguro están siguiendo esta
conversación y si tuvieran algo que aportar lo harán.
También si nos dices un poco más de lo que quieres hacer (para qué lo
necesitas) tal vez podamos ofrecer otras sugerencias más viables.
Recibe un cordial saludo,
Alberto

"Francesca Brasso" wrote in message
news:%

De repente no me expliqué bien: lo que necesito es guardar un archivo
Word en formato GIF, o sea que 'guardar como' y poder elegir GIF.

"Francesca Brasso" escribió en el mensaje de
noticias news:

Necesito convertir archivos de Word a formato GIF. Tengo una macro
para
convertir de Excel a GIF pero no he podido adaptarla a Word.
Ojalá alguien me ayude. Uso Office 2007.

Ok, que te vaya bien :-)
"Francesca Brasso" wrote in message
news:uJ%

No, no he estado por allí, sólo es que soy una apasionada de la geografía
y sabía donde queda Poole.
Voy a probar nuevamente con ese PowerPoint a ver que logro.
Slds
Frn

"Alberto" escribió en el mensaje de noticias
news:

Hola de nuevo Francesca,
Exacto en el mismo canal de la mancha, y hablando... yo más bien que
español diría canarión, pues soy de Tenerife. Por cierto veo que conoces
bien la zona, ¿has estado por aquí?
Volviendo al tema que nos ocupa: me parece acertada la razón por lo que
quieres convertir a gif.
Podrías hacerlo perfectamente con el método que te expliqué, yo lo he
realizado varias veces y me queda perfecto (te he puesto un adjunto para
que veas un ejemplo; o aquí:
http://homepage.ntlworld.com/trujil..._A_Gig.gif)
Sobre el tema de la macro, si quieres esperar para ver si alguien que
sepa, haga la adaptación, o mejor podrías pedir que te la adapten en este
foro: microsoft.public.es.officedev.dbx
Siento no poder ayudarte más, pero si vas a seguir intentándolo con
powerpoint y necesitas ayuda coméntamelo.
Atentos saludos!
Alberto
"Francesca Brasso" wrote in message
news:%

Si, mira Alberto aquí te envío mi macro para documentos de Excel. A ver
si
alguien me la puede modificar para Word, además como un modesto aporte
para
quien necesite usarla en Excel.
Lo que quiero es poder enviar tranquila por mail documentos firmados
creados
en Word y que nadie pueda extraer la firma con un simple copiar-pegar.

Sub GuardarEnGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Carpeta = "C:\Docs\"
Ruta = Carpeta & "Año " & Year(Date) & "\"
Rango = ActiveSheet.PageSetup.PrintArea
NomArch = ThisWorkbook.Name
NomGif = Left(NomArch, Len(NomArch) - 4) & ".gif"
If Dir(Ruta, vbDirectory) = "" Then MkDir Ruta
With Range(Rango)
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export Ruta & NomGif
.Delete
End With
End Sub

Por cierto, ¿estás en Poole, costa sur de Inglaterra, Canal de la
Mancha?????
¿Y hablando español?

"Alberto" escribió en el mensaje de noticias
news:%

De repente no me expliqué bien

Creo que lo hiciste muy bien.

en formato GIF, o sea que 'guardar como' y poder elegir GIF

Word no tiene esta opción por eso te sugerí PowerPoint que sí la tiene.

Francesca te contesto en el hilo de arriba.
Sí ya te entendí, pero no conozco una forma automática de hacerlo, por
eso
te dije que colgaras aquí la macro que tienes para convertir a gif un
libro de Excel. Hay otros compañeros que seguro están siguiendo esta
conversación y si tuvieran algo que aportar lo harán.
También si nos dices un poco más de lo que quieres hacer (para qué lo
necesitas) tal vez podamos ofrecer otras sugerencias más viables.
Recibe un cordial saludo,
Alberto

"Francesca Brasso" wrote in message
news:%

De repente no me expliqué bien: lo que necesito es guardar un archivo
Word en formato GIF, o sea que 'guardar como' y poder elegir GIF.

"Francesca Brasso" escribió en el mensaje de
noticias news:

Necesito convertir archivos de Word a formato GIF. Tengo una macro
para
convertir de Excel a GIF pero no he podido adaptarla a Word.
Ojalá alguien me ayude. Uso Office 2007.

hola alberto si si he hido a teneritfe
es muy bonito me despido adios.
"Alberto" escribió en el mensaje
news:

Hola de nuevo Francesca,
Exacto en el mismo canal de la mancha, y hablando... yo más bien que
español diría canarión, pues soy de Tenerife. Por cierto veo que conoces
bien la zona, ¿has estado por aquí?
Volviendo al tema que nos ocupa: me parece acertada la razón por lo que
quieres convertir a gif.
Podrías hacerlo perfectamente con el método que te expliqué, yo lo he
realizado varias veces y me queda perfecto (te he puesto un adjunto para
que veas un ejemplo; o aquí:
http://homepage.ntlworld.com/trujil..._A_Gig.gif)
Sobre el tema de la macro, si quieres esperar para ver si alguien que
sepa, haga la adaptación, o mejor podrías pedir que te la adapten en este
foro: microsoft.public.es.officedev.dbx
Siento no poder ayudarte más, pero si vas a seguir intentándolo con
powerpoint y necesitas ayuda coméntamelo.
Atentos saludos!
Alberto
"Francesca Brasso" wrote in message
news:%

Si, mira Alberto aquí te envío mi macro para documentos de Excel. A ver
si
alguien me la puede modificar para Word, además como un modesto aporte
para
quien necesite usarla en Excel.
Lo que quiero es poder enviar tranquila por mail documentos firmados
creados
en Word y que nadie pueda extraer la firma con un simple copiar-pegar.

Sub GuardarEnGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Carpeta = "C:\Docs\"
Ruta = Carpeta & "Año " & Year(Date) & "\"
Rango = ActiveSheet.PageSetup.PrintArea
NomArch = ThisWorkbook.Name
NomGif = Left(NomArch, Len(NomArch) - 4) & ".gif"
If Dir(Ruta, vbDirectory) = "" Then MkDir Ruta
With Range(Rango)
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export Ruta & NomGif
.Delete
End With
End Sub

Por cierto, ¿estás en Poole, costa sur de Inglaterra, Canal de la
Mancha?????
¿Y hablando español?

"Alberto" escribió en el mensaje de noticias
news:%

De repente no me expliqué bien

Creo que lo hiciste muy bien.

en formato GIF, o sea que 'guardar como' y poder elegir GIF

Word no tiene esta opción por eso te sugerí PowerPoint que sí la tiene.

Francesca te contesto en el hilo de arriba.
Sí ya te entendí, pero no conozco una forma automática de hacerlo, por
eso
te dije que colgaras aquí la macro que tienes para convertir a gif un
libro de Excel. Hay otros compañeros que seguro están siguiendo esta
conversación y si tuvieran algo que aportar lo harán.
También si nos dices un poco más de lo que quieres hacer (para qué lo
necesitas) tal vez podamos ofrecer otras sugerencias más viables.
Recibe un cordial saludo,
Alberto

"Francesca Brasso" wrote in message
news:%

De repente no me expliqué bien: lo que necesito es guardar un archivo
Word en formato GIF, o sea que 'guardar como' y poder elegir GIF.

"Francesca Brasso" escribió en el mensaje de
noticias news:

Necesito convertir archivos de Word a formato GIF. Tengo una macro
para
convertir de Excel a GIF pero no he podido adaptarla a Word.
Ojalá alguien me ayude. Uso Office 2007.

¿ ???????????????????????????????


"gerardo" escribió en el mensaje de noticias
news:

hola alberto si si he hido a teneritfe
es muy bonito me despido adios.
"Alberto" escribió en el mensaje
news:

Hola de nuevo Francesca,
Exacto en el mismo canal de la mancha, y hablando... yo más bien que
español diría canarión, pues soy de Tenerife. Por cierto veo que conoces
bien la zona, ¿has estado por aquí?
Volviendo al tema que nos ocupa: me parece acertada la razón por lo que
quieres convertir a gif.
Podrías hacerlo perfectamente con el método que te expliqué, yo lo he
realizado varias veces y me queda perfecto (te he puesto un adjunto para
que veas un ejemplo; o aquí:
http://homepage.ntlworld.com/trujil..._A_Gig.gif)
Sobre el tema de la macro, si quieres esperar para ver si alguien que
sepa, haga la adaptación, o mejor podrías pedir que te la adapten en este
foro: microsoft.public.es.officedev.dbx
Siento no poder ayudarte más, pero si vas a seguir intentándolo con
powerpoint y necesitas ayuda coméntamelo.
Atentos saludos!
Alberto
"Francesca Brasso" wrote in message
news:%

Si, mira Alberto aquí te envío mi macro para documentos de Excel. A ver
si
alguien me la puede modificar para Word, además como un modesto aporte
para
quien necesite usarla en Excel.
Lo que quiero es poder enviar tranquila por mail documentos firmados
creados
en Word y que nadie pueda extraer la firma con un simple copiar-pegar.

Sub GuardarEnGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Carpeta = "C:\Docs\"
Ruta = Carpeta & "Año " & Year(Date) & "\"
Rango = ActiveSheet.PageSetup.PrintArea
NomArch = ThisWorkbook.Name
NomGif = Left(NomArch, Len(NomArch) - 4) & ".gif"
If Dir(Ruta, vbDirectory) = "" Then MkDir Ruta
With Range(Rango)
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export Ruta & NomGif
.Delete
End With
End Sub

Por cierto, ¿estás en Poole, costa sur de Inglaterra, Canal de la
Mancha?????
¿Y hablando español?

"Alberto" escribió en el mensaje de noticias
news:%

De repente no me expliqué bien

Creo que lo hiciste muy bien.

en formato GIF, o sea que 'guardar como' y poder elegir GIF

Word no tiene esta opción por eso te sugerí PowerPoint que sí la tiene.

Francesca te contesto en el hilo de arriba.
Sí ya te entendí, pero no conozco una forma automática de hacerlo, por
eso
te dije que colgaras aquí la macro que tienes para convertir a gif un
libro de Excel. Hay otros compañeros que seguro están siguiendo esta
conversación y si tuvieran algo que aportar lo harán.
También si nos dices un poco más de lo que quieres hacer (para qué lo
necesitas) tal vez podamos ofrecer otras sugerencias más viables.
Recibe un cordial saludo,
Alberto

"Francesca Brasso" wrote in message
news:%

De repente no me expliqué bien: lo que necesito es guardar un archivo
Word en formato GIF, o sea que 'guardar como' y poder elegir GIF.

"Francesca Brasso" escribió en el mensaje de
noticias news:

Necesito convertir archivos de Word a formato GIF. Tengo una macro
para
convertir de Excel a GIF pero no he podido adaptarla a Word.
Ojalá alguien me ayude. Uso Office 2007.