4D Write v16WR DELETE TAB |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR DELETE TAB
|
WR DELETE TAB ( area ; tabNum ) | ||||||||
Parámetro | Tipo | Descripción | ||||||
area | Entero largo |
![]() |
Área 4D Write | |||||
tabNum | Entero largo |
![]() |
Número de tabulación | |||||
El comando WR DELETE TAB borra la tabulación cuyo número se pasa en numTab. Si otras tabulaciones se encuentran en la misma posición, también se borran.
Nota: si la selección consiste de varios párrafos, la numeración es relativa al último párrafo seleccionado.
Usted quiere borrar todas las tabulaciones presentes en su documento:
C_LONGINT(Area;$i;$TabNum;$uniform)
`Insertar el cursor al inicio del área
WR SET SELECTION(Area;0;0)
`Conteo del número de párrafos en el documento
NbParag:=WR Count(Area;wr nb paragraphs)
`Procesamiento de cada párrafo
For($i;1;NbParag)
`Recuperar la posición del párrafo
WR GET PARAGRAPHS(Area;START;Pos)
`Ir al interior del párrafo
WR SET SELECTION(Area;START+1;START+1)
`Obtener el número de tabulaciones
$TabNum:=WR Get text property(Area;wr tab;$uniform)
While($TabNum#0)
WR DELETE TAB(Area;1)
$TabNum:=$TabNum-1
End while
`Reposicionamiento justo después del último párrafo procesado
WR GET SELECTION(Area;Pos;Pos)
End for
Producto: 4D Write
Tema: WR Tabulaciones
Número
89448
Creado por: 4D Write 6.5
4D Write - Lenguaje ( 4D Write v16)