try TextEdit [COLOR="DarkGreen"]'ставим курсор на начало текста[/COLOR]
SelectAll [COLOR="DarkGreen"]'выделили весь текст[/COLOR]
Gettextlocation >> niz[COLOR="DarkGreen"] 'взяли координаты текста в виде массива из 17 параметров текста,
' нам нужен параметр номер 15 - указывает нижнюю границу текста[/COLOR]
loop n = 1, 100 [COLOR="DarkGreen"]'сделали немерянный запас[/COLOR]
i=n/10
ParaSpace i, i [COLOR="DarkGreen"]' выставляем до- и послеабзацный отступ в мм.[/COLOR]
Gettextlocation >> niz [COLOR="DarkGreen"]'опять измерили координаты низа текста[/COLOR]
if niz(15) > 281 [COLOR="DarkGreen"]'281 - текстблок должен коснуться нижней частью именно этой y-координаты (тогда будет точно по размеру полосы набора)[/COLOR]
goto sk
endif
endloop
label sk
Как правильнее организовать цикл?
Вопрос обучающегося.
Задача увеличивать абзацные отступы, что бы за счет их, текстовый блок принял бы нужные размеры.
Я написал так (в другом языке):
Как надо было бы сделать более правильно?
Можно написать в VB. Главное поймать нужную логику.
Задача увеличивать абзацные отступы, что бы за счет их, текстовый блок принял бы нужные размеры.
Я написал так (в другом языке):
Код:
Как надо было бы сделать более правильно?
Можно написать в VB. Главное поймать нужную логику.
Хорошая мысля приходит опосля:
[COLOR="Navy"] Gettextlocation >> niz
i=0
while niz(15) < 281
ParaSpace i, i
Gettextlocation >> niz
i=i+0.1
endwhile[/COLOR]
Таким образом избавляемся от лишнего loop'a .:)
[COLOR="Navy"] Gettextlocation >> niz
i=0
while niz(15) < 281
ParaSpace i, i
Gettextlocation >> niz
i=i+0.1
endwhile[/COLOR]
Таким образом избавляемся от лишнего loop'a .:)
Это монолог или есть вопрос? O_o
Цитата: SkyM@n
Это монолог или есть вопрос?
Может быть и монолог. Т.е. бывает полезно начать задавать вопрос. И пока он задается, то решение созревает само. Как в данном случае. Наверное теперь цикл написан правильно.