Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт

���.�3.2. ������� �� ����� "Selection"

��������� �����-������� �������, ����� ������, ���������� ����� ��� ����� ����� ������. ��������� (���.�3.3).

���.�3.3. ������� �� ����� "Font"

���-�� �������� ����������. ��, ����, ��� �����, � ��� ������� �������, ����� � ��� ����� ���� ��� ���������? ������-�� �� ������������ ����� "Font" � ������ � ��� ������� ���������� �� ������� "Font" (���.�3.4).

���.�3.4. ������� �� ������� "Font"

��, ������ ��� ����. ���� ������� ���������,�� � ����� ������� �� ��� ������. ��������� ����� ������ "Properties" ������ ���� ������� � ������ ������� ������, ������� ����� ������ � ��������� (���.�3.5).

���.�3.5. ������ ������� ������� "Font"

���, ������, ����� �� ������, ��� � ���, ��� �������� � �������� ����������� ���������, ���� ��� ������ ������ ��������� ������� ��������� ����� ����� "Font" �����. �����, ��� ��� ���� ��� �������� ������, ���������� � �������: � "Name", � "Size", � "Colorlndex". ����� ��� ������� �������� ��� ������ �������� ��������, ��, ��������, ����� ����������� � �������� "With", ������� ����������� � � ����� �������, � � ������� �� ����� "Font". ������ �� ��� ������ � �������� F1 (���.�3.6).

���.�3.6. ������� �� ����� "With"

���� �� ������� (��������� ������� ������� VBA ���������� �� ������� ����). �� � ��������� � ������ �������, ������, ��� "���������� With ��������� ��������� ������������������ ���������� ��� ��������� ��������, �� �������� ������� ����� �������." �� ���� ��� ��������� ��������� ����� ���� � ��������� ������������ ������������ � ���,�� �����, ��� ���� �������, ��������������� �������� ���� ������ ������� ���� �� ���

Selection.Font.Name = "Times New Roman"

Selection.Font.Size = 12

Selection.Font.Colorlndex = wdBlack

��� � �������� ���������, � ����� ������ �������. ������ � ��������.

���� ������:

With Selection.ParagraphFormat

� .Leftlndent = CentimetersToPoints(0)

� .Rightlndent = CentimetersToPoints(0)

� .SpaceBefore = 0

� .SpaceAfter = 0

� .LineSpacingRule = wdLineSpaceSingle

� .FirstLinelndent = CentimetersToPoints(1.27)

End With

��� � ������� ��������� ���������� ���������� �������: ��������, ������������ ���������, ������� ������. �������� �������� ��� ���������� �� ������� ��� ������ ����������,�� ���� "Paragraph" �������� "�����".

�������, �������� � ��� �� ���. ������� �����-���� �������� � ������� ����� ������ � ������� ���� �������, ������� ������ ������� � �������� ���� ���� ������� ������� ������, �����, ������ � ����� �� ������ ����������, � ����������� �������� � ����������. ��� ��� ����������:

Sub ������2()

' ������ ������� 26.01.00

With Selection.ParagraphFormat

� .Leftlndent = CentimetersToPoints(1)

� .Rightlndent = CentimetersToPoints(1)

� .SpaceBefore = 1

� .SpaceAfter = 1

� .LineSpacingRule = wdLineSpacelpt5

� .Alignment = wdAlignParagraphJustify

� .WidowControl = True

� .KeepWithNext = False

� .KeepTogether = False

� .PageBreakBefore = False

� .NoLineNumber = False

� .Hyphenation = True

� .FirstLinelndent = CentimetersToPoints(1)

� .OutlineLevel = wdOutlineLevelBodyText

End With

End Sub

���-�� �� ��! ��� �����-�� ������� � ����� ����� ������, ������� �� ���� �������� � ������ ���! �����-�� ".WidowControl", ".KeepWithNext"� �������, ����, ��� ��� �������� ������ � ��������, "�������� ������� �����", "�� �������� �� ����������". �� ������ �� � ������ ��� ���������� ��� ��� ������� ������, � ��� ���� "�� ����"?

������� ��� ������. � ������� ��� ��� ������ � ��������� ���� ��������� ��-�������, � � ���� ��� ���������� ����� ������� ���� ����������. �����, � ���� ����? � �������������, ������������������� ��� (�� �� ���� ����� ��������� ��� ������), ����������� ������� ��� ���������� ���������������� ������� � ��������� �����������, ����� ������ � ������, ��� � ����� ����������� ������� �������� �� ��������, ������� ����� ��������� ���������� ������� ����� ���������� ���� "������"-"�����" ����������� ����������� � ���� �������������� �������! � �������, ���� �� ��� �������� ����������� ������ ������ ������, ��� �����-�� �����.