Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
��� ��������, ���������� � ���� �������, ����� �������� � �� ���������. ��������, ������� TextBoxl.Enabled=True ���� ����������� ������������ ������ ����� � ���� ����� TextBoxl, � ������� CheckBoxl.Value=False ������ ������� �� ������ � ������ CheckBoxl. ��� ����������� ������ ����� VBA ������������� � �� ���� ���������� ���� ����� �������� ���������� � ����� �� �������� ������������ ��� �������� � ��������� �������� �����.
����� ����� �������� ��� ������� ���������� ���� ��������� ��� Windows,�� ��������, ����� ������������� �������� �� ������ ����� ������ ��� �������� � �����-������ �� ����������� ����� ����� ��������� ����� ������������ �����, ������ ��� ������ ��������� ��������.
�������� ����� ����������� �������� ������������ ���� ������������ ��� ����������� ���������, �� ������� ���� ��������������� ��� �����-���� ��������. � �������, � �����, ��������� �� ���� ����� ������ � ������, ���������� ��������� ���������� ����������� �����, ������ ����� ����������� ���������� � �� ����������� �� �������, ���� �����, ��������� � ���� �����, �������������.
��� ��������� ����� � ������ ���������� (�� ���� ���, ��� ��� ����� ��������� � ������� ���������) ���� ������ ������� F5 � �� ��, ��� � ��� ������� �� ���������� ������� ���������. ��� �������� �������, ��������� ����, �������� � ��� ������� ����.
����� ����� � ����, ��� ����� �������� ����� (������� Unload Me) ��� ����������, ��������� � ��������� ������� ����� �� �������, ����������. ������� ����� �������� ����� �������� �� ��� �����-���� ������ ��� ������. ���� � ���������� ������ ����� � �������� ��������� ������ ������������ �����-���� ������, �� ����� ����� � �������� ��������� �������� ��������� ���������� � ������� ���������� Public (�.��. ������� �� ���������� ��� ������ � ��������� �� ������ ������� ������), � ����� � ��������� ������� ����� �� ������� �������� � ��� ��� ����������� ����������, ���������� �� ������������, � ������������ �������� ���� ���������� � �������� ���������.
��������� ������� ����� �� ������� ������������ ����� ����������� ������ ������� �� ����� �����������: ��������� �� ���� ����� ���� ������� ������ �� ������ ���������. ����� ����� �� ���������� � ������� ������, ������ ���� ��� ��������� ������ ����������. ������� ��� ������ ����� ���������� � �������� ��������� (���� ��� ����������� ������� ����������� � ���������� ��������� ������� ����� �� �������, �� �������� ��������� ��� ����� ���������� �������, ���� �� ������ ��� ������ ���� �����) ���� ������� ������� ��������. Show, � ������ � ��������� ������ ��������� ������ ���� �������� ���������.
�����, ��� �� ��� � ������, ����� ���� ��������� � ��������� ������ ����� ��������������� �������� "������� �����" ������ ������������ ���� ������ ������ ���� � ��������� �������� ��� ����� �������������� �� �������� �� Me������� �������� � Explorer. ��, � ������� �� �������, ��� ���������� ���� ���������� ��� �����, � ����� �� ������� ���������� ����� ��������� ������� ����� �� �������, � � ������ � ���������� � ������������ ��������� �� �����, �� ���������, � ����� ������� � ��� �����. ������� ��� �������������� ����� ����������, ����� ��� ���� ����� ���� � ����� �����.
��������� ����� � ������������ ���������� ��������� �� ��� ���� ������ �������� ��������� ���, �� ������������ ��������� �����:
Do�Loop, For�Next, For Each�Next � While� Wend.
���� ���������� ��������� �� ��� ���� �������� � ����������� �� ������� ��� ���������� ���������� ������-���� ������� ��� � ����������� �� �������� ��� ��� ���� ����������, ������������ ��������� �������: If� Then� Else � Select Case.
���� ���������� ��������� ������� � ������ ����� ��� �� ���������, �� ������������ �������� GoTo "��� �����". ���, ���� ������ ���� �������� �������, �� ��������� ������ ������ ������ ����� � ��������������� ������, � ����� ��� � ���������.
��������� �������� �������, ������������ � ���������� ���� ���� ���������� ����� �������� � ���������� ������� ��������� VBA, ������� �� ����� ����� �� ��� ���������������. ������ �������� ������������ ��� �������� � ���� ��������� VBA, ���������� �� ���� ������ � ������� ������ F1. � ������� ������ Office 97 ������� �� ���� ���������� ���������� �� ������� ����.
* * *
�������� �����
���� � ��� �� ���������� ����������� ��������� ������ Microsoft Office, �� �� ��������� ������������ � ����� ������ ���������� ���������. Microsoft Word, ������� � 2000-� ������, ��� ������ ����� ������� ��������� ��������� ������ � ����������������� �������� ������. doc "�� ����", ��������� �� ����������� ������ � ����� ������, � �� � ������. ������ ����, ��� ��� �������� ������ �������, �������� �������� ������ ������������ �� ���������� ����� ��� ������ Word, ������� � ������ � ���������� �������� �����.
��� ����, ����� "�������" Word2002 (�� OfficeXP) ������������������ ���������� ������ ��� ������ �������, �������� � ��������� �������, � ������� HKEY_CURRENT_USERSoftwareMicrosoft ffice10.0WordOptions �������� NoRereg, ������� ������ Dword � ������ 1, � ����� ������� �� �� � Word2000, �������������� ��� �� ���������� ������� HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0wordOptions. ��������� � ��������� ������� �� ������ ������ � ����� 14.
����� 3
�������� ������ ������������
� ���������� ���� ������ �������������� � ����� Visual Basic for Applications (���������� � VBA), ��� ������������ � ��������, � ����� � ��������� VBA � �������� �������� �������� �� ���� ����� � ����� Microsoft Office. ������ �� �� ��������� ������� ���������� ������� �������� ������� ������������ ��� Word, �������� �������� � ����������� ��� ���� ����� ��������.
���� ���� ����� � �������� ��� ������ ������������, ������������ ����������� ��� ����� ���������� ��� ��������������� ����������. ������������ ����������� �� ���������, ��������� �������������� �� ������ �������, ���, �������� ������� �������� ���������������� �������� ������ ����� ����������������, �� ����� ������� � �� ������� ������ � ���������� ��������� ������