4D Doc Center : WR Create stylesheet

4D Write v14

WR Create stylesheet


WR Create stylesheet ( area ; nombre ; aplicarA ; atajo ) -> Resultado

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
nombre	Cadena	Nombre de la hoja de estilo
aplicarA	Entero largo	0=caracteres 1=párrafos
atajo	Cadena	Un carácter
Resultado	Entero largo	Número de la hoja de estilo

Descripción

El comando WR Create stylesheet crea una nueva hoja de estilos y devuelve el número que le fue asignado. Las características de la nueva hoja de estilos son fijadas por los parámetros nombre, aplicarA y atajo. Puede modificar la hoja de estilo utilizando los comandos WR SET STYLESHEET TEXT PROP, WR SET STYLESHEET FONT, WR SET STYLESHEET TAB y el número de referencia de hoja de estilos.

nombre: el nombre de una hoja de estilo no debe exceder los 31 caracteres.

En el parámetro aplicarA, puede pasar una de las siguientes constantes, que se encuentran en el tema WR Parámetros:

Constante	Tipo	Valor
wr apply to characters	Entero largo	0
wr apply to paragraphs	Entero largo	1

Cuando se aplica a los párrafos, comienza con el primer párrafo en su selección y se aplica hasta el final del último párrafo de esta selección. Si se omite aplicarA, la hoja de estilo se aplicará a los caracteres.

El parámetro opcional atajo permite asignar un atajo de teclado a la hoja de estilos. Sólo acepta un carácter. Para utilizar el atajo tendrá que presionar la tecla pasada en este parámetro con la tecla Ctrl (en Windows) o la tecla Comando (Mac OS). Se recomienda utilizar un número con el fin de evitar todo conflicto con los atajos de teclado estándar de 4D Write.

Si se omite atajo o si se trata de una cadena vacía, ningún atajo se asignará a la hoja de estilos.

Ejemplo

Usted quiere añadir a cada documento su propia hoja de estilo de caracteres personalizados y aplicarla a la selección. La hoja de estilo se asigna al atajo Comando+1 en Mac OS y Ctrl+1 en Windows. La fuente utilizada es Comic Sans MS 12 puntos.

 $NumSheet:=WR Create stylesheet(Area;"MyOwnStyle";wr apply to characters;"1")

 WR SET STYLESHEET FONT(Area;$NumSheet;"Comic Sans MS")

 WR SET STYLESHEET TEXT PROP(Area;$NumSheet;wr font size;12;1)

 WR EXECUTE COMMAND(Area;wr cmd select all)

 WR APPLY STYLESHEET(Area;$NumSheet)