Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
� = Application.ActiveDocument.PageSetup.Orientation
� ����� �� ���������� �������� ���������� � ����� wdOrientLandscape ��� wdOrientPortrait ��������������. (����� �������� ��������� ����� VBA ����� ���������� � ��������� �����.)
��� ��������� ������ �������� VBA ��������� ������������ ��������� �������� ���������� ����. ��������, ����� �������� � ������ ��������� ����� Application � ��������� �����, ��� ����� �������� ��������� �������� ����������� (���.�1.8).
���.�1.8. �������� VBA ����� ��� ���������� ����������� �������
����� ������ ������� ������ �������, � �� ����������� ����� ���������� � �� � ������ �������� ��������� (��� �������� �� ������� ������������), � � ������ ������������ �������� ���������� � �������� ��������, � ����� ������������ �����. ����� ����� ����� ��������� �����, � ����� ����� ����� ������ ��������� ��������� �����������.
���� ����� ������� ���������� ����� � ����� �� ������ ������� ����� Application, � ������� Appli � ������ Ctrl � ������. �������� ������� ����� �� ����� ��� ��� ����������� ����������� ������ �����, ���� ��� ���������� ������ ���������� �� ������ ������. �� ��� �� "�����" ������������ �� �������� ��������� ���������, �������� ��� ��������������� �� �� ��������� ����������, � �� �������� ���������� ��������, �� ����� � ������ ������� ��������� ������ �������.
���� ���� ����������� �� ������������� ��������������� ���������� � ������ ��� ������� �������, �� �������� �� ���� ��� ��� ������ ��������� ������, ���� � ������������ ���������� ������ ������� ����� ������, ����� ��������� "������ ����������" (���.�1.9).
���.�1.9. ������ ����������.
��������, ����������, �� ����� ����� ������, ���� ������� �������� ��������� � ��� ��� ���� ������������. �� �� ������ ������ � � ����������� ���������� ����� �������, ��� ��� ��������� ����� �� �������� � ����� ��������, ��������� ����� �������������. �� ��� ����������� ���������� ��������� ��� ������� ��������� �� �����. (� ����������� �� ������� ������� ����������� ����� �������� ���������� ����� �����, ������� Selection.Text:="����� �����", �� ������ � �� �������� ���� ��������� � ��������� ������������ � ":=".)
������ ��������� ������������ ��������� VBA �������� ������� ���������� ���������� �������. �������� ������ �� ����� ������� ��� �������� ������� VBA � ����� ������� F1, ����� �������� ��������� ������� � ���, ����� ����� ��� �������, ����� �� ��������� � ���� ���������� ������ �� ������������� � ����������� ��� ����, ���� ����������. � ������� VBA ����� ����� ���������� ��������� ���� ��������, �������������� ������������� ��� ��� ���� �������. �� ����� ���������� � ���� ��������� � �������� ���, ��� ����������.
�������� ��������������� ��������� VBA ���� ���������� ����������� ��� ���������������� �������� ����� ����� ����������������. � � ��������� � ��������� ������ �������� ��� ����������� ������ ��������� �������� ��������. ���������� �������� ���� ��������, � ������� ������� ������� ���������� ������ ���������� �������, � ��� ����� �������� ������ ���������� ���������� ������� � �������� �� ���� ��������� � ����������. ���� ���� ������� ��������� ������ ������� ������������ ����, � ������� ������ ���� � ����������.
�������� ����� ����� �������� ���� ��������� ('), ����� �� ���������������� � �� ���� ��������� �� ����������. � ���� ������ VBA �� ����� �� ���������. ����� ����, ����� ����� ��������� ����� �������� ��������� � ��������������� ����� ��������� ��� ���� � ������ �������������. ��� ����������� ������������ � ��������� VBA ������� ������.
������� ��� ���� �� �������� �����, ����� ������� ���� ������� ���� (���.�1.10).
���.�1.10. ���� ������� ����.
����� �� ��������������� ������� (������, ���� �����, ������������� � ��.) �� ������ ������������ "�������� "����������" � ��������� ����� ������ ���� ������� �� ���� �����, ����� ��������� ��� �� �����. ������� ������ �� ���������� �� ����� �������� ��������� ���� �������� ���������������� �����, ��� ����� �������� ���������, ������� ����� ����������� ��� ���� ����� ������� ������ �� ��������. (����� ����� ������� ������ ��������, ������� ���� ��������� ������������ ��� ������ ����������, ����� ��������� ����� ���������,�� �������.) � ������ ����� ���� ���� �� �������� � ������� ��������� �� �������, ���� ��� ����� ���� � ������. ������� ��� ����� ������� "���������" �� ������������ ���� �������� ����� � ��������� ��������.
���� ������� �����-������ ������� ����� � �� ��� ������������ ���� ������� ����� "��������", �� ��������� ���� ������� (���.�1.11).
���.�1.11. ���� ������� ��������� �����
����� ����� ������ ��� ��������� �������� ������� ��������, ��������, ��� ����, ���� �������, �������, ��������� � ��������/���������� ��� ���������, ��������� �� ������� �������� �� �������� ����� (����� "Picture"). ��� ��� �������� ����� ����� �������� ����������, ������ ���������, ����� ��� �� ��������, ����� �������� ������ � ���� ����. ��� ��������� ���������� �������� ������� ������� �������� ���� ������� (� ������ ���� ��������� �������� ��� ������� �������� �����) ���������� ������ ��������� �� ���� ������ � ������ F1. ������������ ������������� �������� ������� �������������� ���� ��������� ������� ���� ��� � ������� ������ �������, ��� � � ������� �������� ��������� � ��������� ������� ����� ��������� �������� ��������.
���� �������� ��������, ���������� ������� F2 ��� �� ���� ��� (���.�1.12), �������� ������� ������������ �� ���� ��������� ��������� � ������� (�� ���� ���������, ��������) �������� VBA. ����� ����������, ����� �������� ��� ������ �������� ��� ������� �������, ����� ������� � �������� ���������� � VBA, ������� ���������� ���� ��� ������� �������, �������� ��� ������.