Forums Últimos mensajes - Powered by IBM
 

Bloquear Margenes y Zoom

12/06/2007 - 21:21 por Carlos | Informe spam
Saludos cordiales

Por favor ayuda
Como puedo hacer para crear un template en donde los
usuarios que creen documentos a partir de ese template no puedan modificar los
margenes y el zoom (Word 2002 o 2003), pero puedan trabajar el resto
normalmente

Muchas gracias si alguien me da una pista
 

Leer las respuestas

#1 Tux
13/06/2007 - 19:43 | Informe spam
Carlos escribió:
Saludos cordiales

Por favor ayuda
Como puedo hacer para crear un template en donde los
usuarios que creen documentos a partir de ese template no puedan modificar los
margenes y el zoom (Word 2002 o 2003), pero puedan trabajar el resto
normalmente

Muchas gracias si alguien me da una pista



Hola Carlos :)

Bien pse pueden hacer varias cosas, pero de todas casi mejor el
desabilitarlas por cada documento nuevo para ello hay que hacer bastante
codigo :( , y aun asi pongas las macros que pongas si el que maneja el
archivo sabe de programacion o similar pues como que lo vuelve todo al
poner al sitio tal cual :( pero no obstante puedes empezar a probrar :


En una plantilla en ThisDocument pon lo siguiente:

'[]

Private Sub Document_New()

VerZoom
VerZoom100


End Sub


Sub VerZoom()
MsgBox "ok"

End Sub

Sub VerZoom100()
MsgBox "ok"

End Sub

'[]

Cuando vayas al menu Ver > Zoom , te aparecera un msgbox diciendo OK ,
son macros de eventos osease ya hechas y que son las encargadas de
manejar botones y demas elementos de word , para que me entiendas, no se
pueden cambiar su nombre o no funcionarian, [si no me explico bien nos
comentas ]

Bien tienes que buscar todos esos eventos que se encuentran en :

Menu > Herramientas > macro > macros > y en esa ventana de dialogo busca
abajo en el desplegable, busca ahi comandos de word, pues bien te
aparecera todos los comandos de word o casi todos , pues bien busca ahi
por e.g:

ArchivoPrepararPágina

Pues bien cierra y vete a Visual Basic, y debajo de lo que te he puesto
yo ahi arriba pon lo siguiente :

Sub Sub ArchivoPrepararPágina()

Msgbox "ok"

End Sub


Y añade lo siguiente quedando asi:

Private Sub Document_New()

VerZoom
VerZoom100
ArchivoPrepararPágina

End Sub


Cuando abras la plantilla te apareceran tres Msgbox , que puedes
eliminar de cada uno de las macros dejandolo vacion sin nada , y al dar
a estos comandos, pues como que no haran mencion alguna :)

Prueba y nos comentas ok? :)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

Preguntas similares