4D Write v16WR DELETE TAB |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR DELETE TAB
|
WR DELETE TAB ( area ; numTab ) | ||||||||
Parâmetro | Tipo | Descrição | ||||||
area | Inteiro longo |
![]() |
Área 4D Write | |||||
numTab | Inteiro longo |
![]() |
Número de tabulação | |||||
O comando WR DELETE TAB apaga a tabulação cujo número é passado em numTab. Se outras tabulações se encontram na mesma posição, também são apagados.
Nota: Se a seleção consiste de vários parágrafos, a numeração é relativa ao último parágrafo selecionado.
Você quer apagar todas as tabulações presentes em seu documento:
C_LONGINT(Area;$i;$TabNum;$uniform)
`Inserir o cursor ao início da área
WR SET SELECTION(Area;0;0)
`Contagem do número de parágrafos no documento
NbParag:=WR Count(Area;wr nb paragraphs)
`Processamento de cada parágrafo
For($i;1;NbParag)
`Recuperar a posição do parágrafo
WR GET PARAGRAPHS(Area;START;Pos)
`Ir ao interior do parágrafo
WR SET SELECTION(Area;START+1;START+1)
`Obter o número de tabulações
$TabNum:=WR Get text property(Area;wr tab;$uniform)
While($TabNum#0)
WR DELETE TAB(Area;1)
$TabNum:=$TabNum-1
End while
`Reposição justo depois do último parágrafo processado
WR GET SELECTION(Area;Pos;Pos)
End for
Produto: 4D Write
Tema: WR Tabulações
Número
89448
Criado por: 4D Write 6.5
4D Write - Linguagem ( 4D Write v16)