Botones para macros

Saludos Mónica.
En primer lugar perdona por no haberte contestado antes, pero es que estamos
de carnavales y no trabajamos desde el viernes ;-)

Con respecto al tema que me trae loco te comento que efectivamente si abro
la plantilla y la guardo como un documento word '.doc' las macros parecen
que se activan. Sin embargo si pico dos veces en la plantilla y se me abre
un documento '.doc' en base a ella, si guardo este documento las macros
parecen que son ignoradas. Lo malo es que yo creo el documento en base a una
plantilla desde código Visial Basic y parece que el comportamiento es el
mismo que cuanto pico dos veces la plantilla desde el explorador. Voy a ver
qué método uso para crear el documento desde VB y si tengo posibilidad de
cambiar algo en el procedimiento.
Ya te contaré.
Domi.

Hola Domi :-)

Bien supongamos que la plantilla es :

MiPlantilla.dot, nosotros abrimos esa plantilla creamos un nuevo
documento y lo guardamos como Documento1.doc al guardar el documento es
cuando las macros que tu hayas generado en la plantilla pasen a formar
parte del nuevo documento en este caso Documento1.doc

Bien dime los pasos que llevas hechos hasta ahora :-) y tranquilo que al
final lo sacaremos :-)

comentanos :-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com

Domi escribió:

Saludos Mónica.
En primer lugar perdona por no haberte contestado antes, pero es que estamos
de carnavales y no trabajamos desde el viernes ;-)

Con respecto al tema que me trae loco te comento que efectivamente si abro
la plantilla y la guardo como un documento word '.doc' las macros parecen
que se activan. Sin embargo si pico dos veces en la plantilla y se me abre
un documento '.doc' en base a ella, si guardo este documento las macros
parecen que son ignoradas. Lo malo es que yo creo el documento en base a una
plantilla desde código Visial Basic y parece que el comportamiento es el
mismo que cuanto pico dos veces la plantilla desde el explorador. Voy a ver
qué método uso para crear el documento desde VB y si tengo posibilidad de
cambiar algo en el procedimiento.
Ya te contaré.
Domi.

Hola Domi :-)

¿Te has disfrazado? ya nos diras eh? ;-)

Bien tendria que ver el codigo que empleas para llamar a la plantilla
para ver si es correcto no obstante voy yo a realizar las pruebas
creando un documento mediante codigo que me abra la plantilla ok? :-)

Entonces Ya nos comentas y te comento :-)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com

Saludos Mónica.

Hemos tenido que desinstalar el Office XP del servidor y volver a instalar
el Office 2000 por compatibilidad con otras aplicaciones anteriores.
Cuando ejecuto las macros que estamos tratando me devuelve el siguiente
error:

"Se ha producido el error 4641 en tiempo de ejecucución:
La instrucción ToolsProtectDocument está desactivada en este momento."

No he encontrado mucha información sobre este error, y además lo que he
leido parece que se refiere a versiones anteriores de Word (Word 6, Word
95).
El código que utilizo para proteger las secciones del documento es el
siguiente:

Private Sub cmdImprimir_Click()
ThisDocument.Shapes(1).Visible = msoFalse
Dialogs(wdDialogFilePrint).Show
ThisDocument.Shapes(1).Visible = msoTrue
End Sub

Private Sub cmdProteger_Click()
ActiveDocument.Unprotect Password:="icaro"
ActiveDocument.Sections(1).ProtectedForForms = True
ActiveDocument.Sections(2).ProtectedForForms = True
ActiveDocument.Sections(3).ProtectedForForms = True
ActiveDocument.Sections(4).ProtectedForForms = True
ActiveDocument.Protect Password:="icaro", NoReset:=True,
Type:=wdAllowOnlyFormFields
End Sub

Private Sub cmdDesproteger_Click()
ActiveDocument.Unprotect Password:="icaro"
ActiveDocument.Sections(1).ProtectedForForms = True
ActiveDocument.Sections(2).ProtectedForForms = False
ActiveDocument.Sections(3).ProtectedForForms = True
ActiveDocument.Sections(4).ProtectedForForms = False
ActiveDocument.Protect Password:="icaro", NoReset:=True,
Type:=wdAllowOnlyFormFields
End Sub

Este último error parece que lo da cuando ejecuta la última línea donde
protejo de nuevo el documento.
Hasta pronto.
Domi.

Hola Domi :-)

¿Te has disfrazado? ya nos diras eh? ;-)

Bien tendria que ver el codigo que empleas para llamar a la plantilla
para ver si es correcto no obstante voy yo a realizar las pruebas
creando un documento mediante codigo que me abra la plantilla ok? :-)

Entonces Ya nos comentas y te comento :-)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com

Domi escribió:

Saludos Mónica.

Hemos tenido que desinstalar el Office XP del servidor y volver a instalar
el Office 2000 por compatibilidad con otras aplicaciones anteriores.
Cuando ejecuto las macros que estamos tratando me devuelve el siguiente
error:

"Se ha producido el error 4641 en tiempo de ejecucución:
La instrucción ToolsProtectDocument está desactivada en este momento."

No he encontrado mucha información sobre este error, y además lo que he
leido parece que se refiere a versiones anteriores de Word (Word 6, Word
95).
El código que utilizo para proteger las secciones del documento es el
siguiente:

Private Sub cmdImprimir_Click()
ThisDocument.Shapes(1).Visible = msoFalse
Dialogs(wdDialogFilePrint).Show
ThisDocument.Shapes(1).Visible = msoTrue
End Sub

Private Sub cmdProteger_Click()
ActiveDocument.Unprotect Password:="icaro"
ActiveDocument.Sections(1).ProtectedForForms = True
ActiveDocument.Sections(2).ProtectedForForms = True
ActiveDocument.Sections(3).ProtectedForForms = True
ActiveDocument.Sections(4).ProtectedForForms = True
ActiveDocument.Protect Password:="icaro", NoReset:=True,
Type:=wdAllowOnlyFormFields
End Sub

Private Sub cmdDesproteger_Click()
ActiveDocument.Unprotect Password:="icaro"
ActiveDocument.Sections(1).ProtectedForForms = True
ActiveDocument.Sections(2).ProtectedForForms = False
ActiveDocument.Sections(3).ProtectedForForms = True
ActiveDocument.Sections(4).ProtectedForForms = False
ActiveDocument.Protect Password:="icaro", NoReset:=True,
Type:=wdAllowOnlyFormFields
End Sub

Este último error parece que lo da cuando ejecuta la última línea donde
protejo de nuevo el documento.
Hasta pronto.
Domi.

Hola Domi :-)

Pues ese error es la primera vez que lo veo ¿? he intendado
reproducucirlo pero logicamente no he podido ya que esa instruccion:

ToolsProtectDocument se utilizaba antaño, no la he llegado a

utilizar pero se que es la equivalente al << Metodo Protect >>

A ver mirame una cosa ves a Menu herramientas > Referencias de Visual
basic Word > y dime que referencias tienes ahi tildadas ok? :-)

comentanos :-)

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com

Estoy pensando que igual ese Error te lo da al no tener activado el
candado de formularios ¿? pero a mi aunque no lo tenga activado no me da
error ¿? estoy pensando

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com