on 11.01.2002 15:57, denis at [EMAIL PROTECTED] �� ��� ������:
> �����������!
> ������ ������ ��� � ������ ��������� ��������� ���������� �������� � ������?
> �����
>
>
> -----
> Machelp; policy & news @ http://www.macrules.ru
>
set PageNumber to 1 -- ���������� ����� ������ ������
tell application "QuarkXPress? 4.11"
tell document 1
tell page PageNumber
set CharCounter to 0
repeat with x from 1 to count of text boxes
tell text box x
set CharCounter to CharCounter + (count of characters)
end tell
end repeat
end tell
end tell
end tell
display dialog "� ������ " & PageNumber & " ���������� " & CharCounter & "
�������� (������� �������, ���������, ������ � �.�.)."
--
Aha-pupok
[EMAIL PROTECTED]
-----
Machelp; policy & news @ http://www.macrules.ru
