Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
��� �� � � Excel Descent! ��� ���������� � �����. ����� ������ � ��������� ������, ������ � �����, �������� ���� ������ �����������. ����� � Esc. �������� � ������ ���������, ����� ������� ������, � �� ��� ����������� � ������ ���� �������������.
� ���������, � ����������� ������ Excel'� ������ ���� ��� �� ����������. ������, ������, � Excel 2000 ���� �� ����� ������������� ���� � ���������. ��� �� �������? ������� ������, �� ����� �� ����� �� ������ ������ ���������� ����� ���������.
* * *
������ Internet Explorer'�
���� �������� � ������ html-�������� ������ <!-introducing the Trident team � >, � ����� ������� ���� ���� � Microsoft Internet Explorer ������ 4 ��� 5, �� �� ������ �������� ������ ���������� ���������� �������. � ���������, � 6-� ������ ����� �������� ������ ����� ��� �� ��������.
����� 2
������ ����� Visual Basic for Applications
��� ������� �������� ������������ VBA ������������� �� ��������� ������� ����. ������� � �� ���� ��������� ��� ������� VBA, ������������ �� �� ������� � ��������� ���������� � ��� ��� ����� �������� ���������� � �������, �� � �������� ��������� ���� �� ����� ���������. ���� ���������� ������, ����� ������� ��������� ���������� ����������� �� ��� ���� ����������� Word, �� ����� ��������������� ��������� ������ ��������, � ����� �������� � ������� � ������ ���������� �������.
������ � VBA ���� ��������� ����, � ������� � ������� ����������� �� �� ������ �����, � ��������, ����������� � �����������������, ������ ������ � ���. ������� � ���� ����� �� ������� �������� ���� ��������� ������, ������� ������ �������� ��������� ������ ��������, � ����� ��������� ���������� � ����������� ������������ VBA.
�������, ������, �������������-�� ������-����� ���������, ���������� � ���������� ����� ��� ��� MS-DOS, �������� �� ������������ ������, ������������ �� � �������� ����� ���������. ����� ����� ��������� ��������������� � ����� ������ ������ ����� ������, ������ ���������, ������ ������ ����������. �������� �������� ���� ��������� ������ Dos-o����� ��������. � ���������������� �� ���������� ����������� � ���� ���� ������ � ��������������� ������������� ��������, ������������� �������� ������� �������� ���������, � ������� � �������� ������ ������������ � ������, ��� ����� �� ���������������, ��������� �� ���, ����� ������ ������������� ��������� ���������.
� ���������� ������������ ������� Windows ���� ������ �������� ������ ������� ���������������� � �������� ��������������� ������ � ������� ��������-���������������� �����.
��� ������, ��� �������� �������������� ������������ ���������� � �������� �� ������ � �� ��� ������� �� �������� ������������, �� ��� �������� � �� �� ���������. � VBA �������� �������� �������������� ��������-��������������� ������, ��� �� ������ ����������, ��� � �� ����������� ��������. ��������� ��������� ��������-���������������� ����� �������� ������, ��������, �����, �������.
������ � ��� ���, ��� ��� ����� ����������� �����-���� �������� ��� ��, ��� ����� ������������ ��������������. � �������, �������� �������� Word � ��� ������, ������ ����� � ��� � ��� ���� ������, ��������� �����, ������� �����������, ������ ������� � ��� ��� �������. ��������� ����� �������� ���������� ���������, �����-������ ���� �� �����, ���� ��� Word � ��� ���� ������.
����� ������ ������ ������ ���� ����� ����������, �������, � ���� �������, �������� ������������ ��������� � ����� ����� ���� ����������. ��������, � ������� "��������" ���� ��������� "������� �����������", � �������� ���� ��������� "������ �����", � �������� ���� ��������� "������ �����". � ������� ��������-���������������� ����� VBA ����� ���������� � ������ �������, ���� ����� ��� �������� � �� ���� ��� �� �������, ���� ����������� �� ��������.
�������� � ��� ����� �������������� �������. � �������, � ������� � ������ ����� ��������� ���� ��������: ��������� ������, ��������� ������, �������������, ��������� ��������, ������� � ����� ��� ������. � ������� � ��������� ���� ��������: ������� �������������� ����������� ���������, ������� �������������� �������� ���������� � ��.
����������� ������� �������� VBA ����� �������� ����������, ������ ���� �������� Read-Only � �� ����������� ���������.
������ �������� �������� Word ����� �������� ����� ����������� ���������� ���� Word � ��������, ����-��������� �������� ��� ������-���������, ������ �� ������ ����� ������ � � ���������, � ��������������� ���������� ���� ������������ ��� ������ ������� ��� ����, ����� ���������� ��������� ������� ������� ���� ��� ����� ��������.
����� � ��� �����-���� �������� ��� ��������. ��������, ������ ������ ��� ����� ������ � ���������. � ������ ������� ���� ��������� ������, ����������� ������ ��������� ��������. ��� ������:
With Selection.Find
�.Text = "���� ����� ���� ��������"
�.Replacement.Text = "�������� �� ���� �����"
�.Forward = True
�.Wrap = wdFindContinue
�.Format = False
�.MatchCase = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
� ������ ������� ������� ������� VBA "Find", ����������� ����������� ������� "Selection", �������� ����������� ��������".Text", ".Forward", ".Format" � ������. ����� ����������� �����".Execute" ��� ������� "Selection.Find" � ���������� "Replace:=wdReplaceAll"(�.��. "�������� ���"). ������� With� End With ��������� �� ������ ��� ������� �������� ��� ���������� ������ �������� ���������������� �������, ��� ���� ����������� ��������� ����� � ������ ��������� ����� � ������� ����������.
�������� � ������ ��-������� ������������ � ����������� ���������. ���, ������ �������� ������� ����� ����� ������ ����������� ����, � ������ �������� ������� � ������� ������ ������� ������� (��. �� ���.�1.8 � ���������� �����).
������� � ��� ��, ��� "���������� � �������� ������ ��� ����", "��������� �������� ������-�� ������� ������".