Últimos mensajes - Powered by IBM

Palabras claves

Bloquear estilos, documento maestro

02/07/2009 - 10:37 por chiri13 | Informe spam

Cada año, tengo que trabajar un documento en mi empresa, que se tiene
que hacer entre muchas personas. Hasta ahora, se pedía a las personas
que no pusieran formatos y que lo hicieran con una letra determinada.

Pero... el texto cuando hay que maquetarlo se convierte en algo
bastante farragoso (cerca de 400 páginas), por ello, me he aventurado
a intentar localizar una forma de hacernos el trabajo más fácil.

He estado leyendo y una opción es utilizar documentos maestros, buena
opción así es, pero me genera un problema, que es que se mantenga los
estilos, que el usuario no los pueda cambiar. Incluso aún es más sería
bueno que cada vez que se pusieran viñetas fueran siempre iguales...
tampoco las pudiera cambiar y estuvieran prefijadas tanto en forma
como en sangría.

En esto me encuentro, alguna sugerencia??? es posible que no haya que
usar word y haya otros programas de microsoft para ello????

si se puede hacer todo lo que he dicho con word, agradecería me
dierais las mayores orientaciones posibles.

muchas gracias por todo

Fernando

Siga el debate

15 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#11 Monica May

08/07/2009 - 21:12 | Informe spam

hola Fernando,

Seria posible que te dijera cuando vas a cambiar un estilo una pregunta,
algo ai como..estas convencido de cambiar el estilo? y si respondes si, te
lo permita y si es no, no lo permita

Hoy he hecho las pruebas que ayer no me fue posible :P !

Pues aqui podriamos hacer algo asi >>

Modifica el procedimiento objeto_WindowSelectionChange a esto >>

'[]

Private Sub objeto_WindowSelectionChange _
(ByVal posicion As Selection)
If Not posicion.Style = _
ActiveDocument.Styles(wdStyleHeading1) Then Exit Sub
If MsgBox("¿Estás convencido de cambiar el estilo?", vbYesNo) = vbNo _
Then posicion.MoveDown wdLine, 1
End Sub

'[]

De esta manera si le dices que si, entonces podras modificar el estilo y si
le dices que no entonces le aplicamos un pequeno truco :) !

Prueba a ver y comentanos!

Saludos
Monica

www.fermu.com
www.teladearana.es

Responder a este mensaje

#12 Monica May

08/07/2009 - 21:20 | Informe spam

hola Fernando,

...se puede avisar si en una tabla se pone el cursor en una fila???

Aqui a que te refieres, a que te avise si estas en la Fila X ?

se puede en una tabla poner el estilo que tu quieras en una de las
filas???

-En el mismo documento donde iran losprocedimiento anteriores o en
documentos aparte ??

... se puede avisar que cuando este en una de las filas, al salir vuelves
al estilo prefijado, aunque lo hayas cambiado

aqui te refieres a que si cambias uno de los estilos te vuelva al estilo que
tenia al abrir el documento o mientras estas haciendo el documento o ??

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es

Responder a este mensaje

#13 Chiri

08/07/2009 - 23:22 | Informe spam

1º se me había ocurrido si era posible hacer lo que decíamos
aprovechando las tablas, y poner en la fila 1, el Título1, en la fila2
Título2...

así sucesivamente,

de esta forma, cuando salieras de la fila 1, y fueras a otra fila,
podrías hacer que la fila 1 volviera al mismo estilo

No se si me explico, nos olvidaríamos de un documento normal, y lo
convertiríamos en un documento escribiendo en tablas.

existe el evento al salir de la celda o de la fila (al perder el foco)

vengo de vba para access y hay muchas cosas que me cuestan comprenderlas
en word.

MUCHAS GRACIAS

El asunto sería algo así

With posicion.Cells(1).Range
MsgBox .Information(wdStartOfRangeColumnNumber), , "Column"
MsgBox .Information(wdStartOfRangeRowNumber), , "Row"
End With

yo esto lo guardo en una variable junto con el estilo.

Al salir de la tabla

devuelvo a esa fila el mismo formato.

Monica May escribió:

hola Fernando,

...se puede avisar si en una tabla se pone el cursor en una fila???

Aqui a que te refieres, a que te avise si estas en la Fila X ?

se puede en una tabla poner el estilo que tu quieras en una de las
filas???

-En el mismo documento donde iran losprocedimiento anteriores o en
documentos aparte ??

... se puede avisar que cuando este en una de las filas, al salir
vuelves al estilo prefijado, aunque lo hayas cambiado

aqui te refieres a que si cambias uno de los estilos te vuelva al estilo
que tenia al abrir el documento o mientras estas haciendo el documento
o ??

Comentanos...!

Saludos
Monica

Responder a este mensaje

#14 Chiri

08/07/2009 - 23:43 | Informe spam

Fantástico también,

del correo de antes, sólo me quedaba la opción de, al hacer las cosas en
una tabla, al cerrar el documento, se puede decir que devuelva los
estilos como estaban

Private Sub Document_Close()

ThisDocument.Tables(1).Rows(1).Select
Selection.Style = "Título 1"
End Sub

utilizando tus subrutinas, podría decir algo así, si aplicas cualquier
cambio a los estilos, al salir del documento volverán a como estaban.

Gracias a ti el camino se va abriendo

un saludo

Monica May escribió:

hola Fernando,

Seria posible que te dijera cuando vas a cambiar un estilo una pregunta,
algo ai como..estas convencido de cambiar el estilo? y si respondes
si, te
lo permita y si es no, no lo permita

Hoy he hecho las pruebas que ayer no me fue posible :P !

Pues aqui podriamos hacer algo asi >>

Modifica el procedimiento objeto_WindowSelectionChange a esto >>

'[]

Private Sub objeto_WindowSelectionChange _
(ByVal posicion As Selection)
If Not posicion.Style = _
ActiveDocument.Styles(wdStyleHeading1) Then Exit Sub
If MsgBox("¿Estás convencido de cambiar el estilo?", vbYesNo) = vbNo _
Then posicion.MoveDown wdLine, 1
End Sub

'[]

De esta manera si le dices que si, entonces podras modificar el estilo y si
le dices que no entonces le aplicamos un pequeno truco :) !

Prueba a ver y comentanos!

Saludos
Monica

Responder a este mensaje

#15 Monica May

09/07/2009 - 23:23 | Informe spam

okeis Fernando pues entonces ya lo tienes encaminado jejeje :) , por aqui
estaremos para cuando se necesite y muchas gracias a ti :)

Saludos
Monica

del correo de antes, sólo me quedaba la opción de, al hacer las cosas en
una tabla, al cerrar el documento, se puede decir que devuelva los estilos
como estaban
Private Sub Document_Close()
ThisDocument.Tables(1).Rows(1).Select
Selection.Style = "Título 1"
End Sub
utilizando tus subrutinas, podría decir algo así, si aplicas cualquier
cambio a los estilos, al salir del documento volverán a como estaban.
Gracias a ti el camino se va abriendo

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida