Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
* * *
� ��������� Microsoft Word ���� �������� ���������� ������������ �� ������ � �������. � �������� ����������� �� ������ � ������, � �������� ��������� � �������� �������, �� ���������� ������ ����������� ������������ ��������, � �������� ���������� ���������� ��������� �������� � ��������� �������� �� � ��� ��� ����, ��� ����������� ����������� ��� ������ ����������� Word? ������ ������ ����� �������������� ������ ����� ������, ��������� ������� � ������� ����������� ������� Word ����� ������, � �� � ����� ����������. �� ��� ����� � Word, ���, �������, � �� ���� ����������� ������ Microsoft Office, ��� ��� � ���� ����� ������ �������� ���������� �������� �������: ���������� ���� ����������������.
��� ��������� ������, ����� ������ ��������� ���������-������� � ������������ �����-����� ��������� ����� �� ��������.
��� ��������� �� ���� ���������� ��������� �������������� ��������� � ��� �������� ��������������, �������� ������ �� ������ ��������� � ������ � ��. ����� ���� �������, � ��� ����������� ��� ��� ������������ � ����� Times New Roman, 12 �������, ��������� � ������ � ��������, ������������ �� ������, ��� ������� ������� ����� ����, � ������� ������ � 1���. ������ � ����� ������� � ����� ��� ���� ��������� Word. ����� ����, � ����� ����� ������ Rtf � ��������, ��-�����������, ������ ����� ����� ���������� � ���� �������. �� ��� �� Internet'� � ������ 50 ������ � ������������ ���� ����������� � ������, ��������� �� ���������� �������� �����������. � ��� ��� ���� ������� ������� ������ � ������������ � �������������� �������: ����� ������ �����, ������ ������� ������, ������� ������� � ��� ������ � �����, ������������ � �� �����, �� �� ������. � �����, ������ �� ���������� � ���������� ��� � ����. (��� ���, ��� �������� ����������� ����������� ����������� ���������� ����� ����������, ������� ������ ��������: �� ��������� ������������� �����������, �� ������� ��� ���������������� ���� �������� ���� �������, � ��� ���� �������� �� � ������������ ��� ��� ��������� � Internet, ��������, ��� ��� ����������� ��������� ���������� ������� �������.)
�����, �������, ���������� � ������ ����������: ���������, ������� ������ �����, �������, ��������� � ������� Word, ����� Rtf� ���� ���������� � ���, �� ���� ������, �� ��� ���-�� ����� ����������, � ���� �� ����� ��� ���? � ��� ���-�� ������ �� ������ �������.
�� ��� ����� �������� ���������, ��-��, ��������� ��������� �� ��������� ����� ����������������, ������ �� ���� � ���, ����� ����, ��� �� ����������?
��� ������������� ���� �� ����� ������ ������� �� C++ ��� ���� Delphi. �� ��� ��������� �������� �� VBA �� ���� ������ ������ � ��� �������� � �������� ������. ����� ���� ����� ������.
����, ��������.
������� � �����������, ��� ��� ���� ������� � ������ ����������. ��-������, ����������� �������� ����� �� Times New Roman, 12 �������. ����� ����, ���������� ������� ���� ����� ������ �����. ��-������, ������ ��� ������� �������. �-�������, �������� ��� ������������ �� ������ ���� ������������� �� ������. �������, ����� ���������� ��� ���������, �������������� �������� ������ � ������� Rtf.
� ������ ���� ���������� �� ����� ���� � ������� ������ �������, ������������ �� ��� ��� �� ��������� � ��� ����� ����� ���� ��� �������������. ����� ������ ������ ������� � ���� ������������ ��������, a Word ����������� ��������� ��� �������� �� ���� VBA. ������ "������-�������� ���", ������ "������-�����", �������� ����� Times New Roman, 12 �������, ������ ����. ������ "������-�����", ������� ��� ������� � �������� ��������� ����������� �������� � ������� ������. ����� ������ "������-��������", �, ������ � ����� "������-�����" ��� ����������� � ������������ �����, � ��� ����������� � ������������ �� ������, � ����� "�����" � ����� "�����������", ������ ������ ������������ �� ���� ������ (���������� ������� ��� �� ������ ����).
����� ��������� ���� ���� �������� � �������� �������� �������� ����-���������. ����� � ������ ������� ����-��������� � ������� Rtf � �������� �������� � � ���� �������, ����� ���� ������ ��� � ������ �� ������ ������ ������� ������ ����������.
� ��������, �������� ���������� ������ �����-������ ������ ��� ��������� ������, � ��� �� �� ���� ������������ � ���������� ��� ���������, ������ �� � Word � ������ ������� �� ��� ������. ������ �� ������ ���������� ��� ������� ���������. �� �������� �� ������ �����-���������� ��� � ������ ����� ����������, �����, ���� ��� ���������� � �� ����� �������� �����������. �������� ��, ����� ��� ���� ������� �������������, � ������ ����� ������ ���� ��� ���. � ��� ��� ����� ��� ���� ���������� ������ ���������������, �������������� ��� ������.
����, ��������� �������� VBA �, ��������� � ��������� �������� ���������� ����� Normal (�� ���� �������� � ������� Normal.dot), ������� ������ NewMacros. ������ � ���� ������ �������� ��� �������, ���������� �������������. ��������� ���������� ���� ������ � ������, �� �� ����� � ���������.
��� ��� ����������:
Sub ������1()
' ������1 ������
Selection.Wholestory
With Selection.Font
�� .Name = "Times New Roman"
�� .Size = 12
�� .Colorlndex = wdBlack
End With
With Selection.ParagraphFormat
�� .Leftlndent = CentimetersToPoints(0)
�� .Rightlndent = CentimetersToPoints(0)
�� .SpaceBefore = 0
�� .SpaceAfter = 0
�� .LineSpacingRule = wdLineSpaceSingle
�� .FirstLinelndent = CentimetersToPoints(1)
End With
Selection.Find.ClearFormatting
Selection.Find.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify
With Selection.Find