4D Doc Center : WR DELETE TAB

4D Write v14

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

Descripció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.

Ejemplo

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