Macro automatica

Hola Ludico :)

Estimados Amigos: necesito una macro que se ejecute autimaticamente al
momento de abrir un archivo asi:

abre el archivo - imprime dos copias del documento - sale de word

Gracias por su valiosa ayuda

Bien puedes probar a grabar una macro con esos pasos [ desde la
grabadora de macros ] :

1- Abrir un archivo desde cualquier documento de word » mas o menos
quedaria asi »

ChangeFileOpenDirectory "G:\Documents and Settings\Monica\Escritorio\"
Documents.Open FileName:="documento1.doc "

2- Imprimir dos copias del documento » mas o menos asi »

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2

3- cerrar el documento » posiblemente asi »

ActiveWindow.Close


OJO » tendras que probarlo o mejor dicho Grabar en tu documento estos
pasos ya que tampoco se como tienes extructurado el documento ???


comentanos ok? :)



saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Gracias Tux por tu colaboracion, ahora al abrir el documento sale una alerta
de aplicacion de un SQL por que estoy combinando correspondencia, tu sabes
como puedo omitir este aviso?

Saludos

LUDICO



"Tux" escribió:

Hola Ludico :)

> Estimados Amigos: necesito una macro que se ejecute autimaticamente al
> momento de abrir un archivo asi:
>
> abre el archivo - imprime dos copias del documento - sale de word
>
> Gracias por su valiosa ayuda

Bien puedes probar a grabar una macro con esos pasos [ desde la
grabadora de macros ] :

1- Abrir un archivo desde cualquier documento de word » mas o menos
quedaria asi »

ChangeFileOpenDirectory "G:\Documents and Settings\Monica\Escritorio\"
Documents.Open FileName:="documento1.doc "

2- Imprimir dos copias del documento » mas o menos asi »

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2

3- cerrar el documento » posiblemente asi »

ActiveWindow.Close


OJO » tendras que probarlo o mejor dicho Grabar en tu documento estos
pasos ya que tampoco se como tienes extructurado el documento ???


comentanos ok? :)



saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Una cosilla mas, en la ultima instruccion esta cerrando el Archivo pero no
esta saliendo de word y necesito que cierre word tambien...gracias por tu
ayuda

"Tux" escribió:

Hola Ludico :)

> Estimados Amigos: necesito una macro que se ejecute autimaticamente al
> momento de abrir un archivo asi:
>
> abre el archivo - imprime dos copias del documento - sale de word
>
> Gracias por su valiosa ayuda

Bien puedes probar a grabar una macro con esos pasos [ desde la
grabadora de macros ] :

1- Abrir un archivo desde cualquier documento de word » mas o menos
quedaria asi »

ChangeFileOpenDirectory "G:\Documents and Settings\Monica\Escritorio\"
Documents.Open FileName:="documento1.doc "

2- Imprimir dos copias del documento » mas o menos asi »

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2

3- cerrar el documento » posiblemente asi »

ActiveWindow.Close


OJO » tendras que probarlo o mejor dicho Grabar en tu documento estos
pasos ya que tampoco se como tienes extructurado el documento ???


comentanos ok? :)



saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Hola Ludico :)

Una cosilla mas, en la ultima instruccion esta cerrando el Archivo pero no
esta saliendo de word y necesito que cierre word tambien...gracias por tu
ayuda

1- Bien para el tema de la nota informativa SQL puedes mirarte el
siguiente articulo »

http://support.microsoft.com/kb/825765/es

tendras que manipular el registro con cuidado para quitar ese cartel

Mira la version de tu office correspondiente para añadir un valor Dword
en el registro

Luego de manipular el registro reinicia PC o bien Cierra Sesion para que
no vuelva a salir mas el cartel.

2- Y para el tema del archivo los codigo que te dí , deje que tu lo
probaras y luego me dijeras mas detalladamente que necesitabas:

Cuando cierras el documento puedes utilizar »

activedocument.close SaveChanges:=wdSaveChanges

» o tambien puedes utilizar

Windows("Documento1.doc").Close SaveChanges

bien pero mirate la siguiente conversacion es similar »

http://tinyurl.com/27qug8

Y nos comentas si hay que variar algo del codigo o cualquier duda ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Hola Monica; nuevamente gracias por tu apoyo; te cuento que copie el codigo
que me enviaste pero al abrir el archivo se debe ejecutar automaticametne la
combinacion (es un solo registro), imprimir dos copias, y salir de Word y no
he logrado esto, te continuare agradeciendo por tu ayuda

Saludos

LUDICO

"Tux" escribió:

Hola Ludico :)

> Una cosilla mas, en la ultima instruccion esta cerrando el Archivo pero no
> esta saliendo de word y necesito que cierre word tambien...gracias por tu
> ayuda
>

1- Bien para el tema de la nota informativa SQL puedes mirarte el
siguiente articulo »

http://support.microsoft.com/kb/825765/es

tendras que manipular el registro con cuidado para quitar ese cartel

Mira la version de tu office correspondiente para añadir un valor Dword
en el registro

Luego de manipular el registro reinicia PC o bien Cierra Sesion para que
no vuelva a salir mas el cartel.

2- Y para el tema del archivo los codigo que te dí , deje que tu lo
probaras y luego me dijeras mas detalladamente que necesitabas:

Cuando cierras el documento puedes utilizar »

activedocument.close SaveChanges:=wdSaveChanges

» o tambien puedes utilizar

Windows("Documento1.doc").Close SaveChanges

bien pero mirate la siguiente conversacion es similar »

http://tinyurl.com/27qug8

Y nos comentas si hay que variar algo del codigo o cualquier duda ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com