Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
�������� ������ �������� VBA ����������� �� ������� �������� ������������, ������� ��������� ���������� ������. ������� ��� ������� ������� ������ � ������� ���������������� ����������� ���� "������"-"�����" ��� ����������� ���������� � ������ ��� ��������� ����� ����������� ����, ������� � ��� ���� ������ ��� ������� ������ ��. ���� ������ ����� ������ ����������, ������� �� ���� �������� � ������ ������ �� �������������, �� �� ������ ������� ����������� ����, ������� �������� ���������� � ������ ������� � ���������, ����� ����� �������������� ��������, � �������� ������ �������� �� ������ �� ��������� � ����� ������������� �������. � ����� �� ���������� ���� �������� �������������� ����� ������������ �������� �� ����� ����, � � ����� �������� �������� �������� �� ����� �� ��������.
���� �� ��� ���������� ������ ���� ��������� ������������, �� ��� �������� ����������� ���� "������"-"�����" ����� ����������, � ��� ��� ������� � ����� �������.
������ ������� ������� �������, ����������� � ������ ������� ��� ��� ������, ������������� ������� � ����� ���������� ������� ��������� � ��� ���������� �������� ������� ������� � ��������� ������ �������� ���� �� �������� ������, ��� ��������� ������� ��� �����������.
���� ��� ������ ����������� ���� ���������� ������ ��� ������ �� ����� ������ ������� � ��������� ������ �� ���� ��������, �� ����� ���������� ��� ��������� ����������� ����, � � ������ ������� ��� ��������, ������� ���� ���������� � ����. ������������� ��������� ����� �������������� ��� ����� ����������� ������.
��������� ����� ���������� ����, ��� "����"-"��������� ��������" ��� "����"-"������" ���������� ��������� ������, � ������� ��� ������ ������� � ��� ����� ����� ������������ ��� ��������� ��������� ���� ���������� ����, ��� ����������� �� ����, ���� �� �������� ��� ��� ��� ��������� ����������� ���� ���������.
* * *
���� ������.
Selection.Find.ClearFormatting
Selection.Find.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify
With Selection.Find
� .Text = ""
� .Replacement.Text = ""
� .Forward = True
� .Wrap = wdFindContinue
� .Format = True
� .MatchCase = False
� .MatchWholeWord = False
� .MatchWildcards = False
� .MatchSoundsLike = False
� .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
��������� ��������, ��� ������ ������� �� �������� ������� ������ Word ��� ��������� ����� ������������ ������� �� ������ ���� �� ������������ �� ������. � ��� ����� ���� ��� �������, ����� ������� ������� �� ����� VBA. �� ���� ���������, ������� "Selection.Find.ClearFormatting" �������� �������� ���������� �������������� � ���� ������ � ���������� ������� ������ "����� ��������������", � ����� "Selection.Find.ParagraphFormat.Alignment = wdAlign ParagraphLeft" � "Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify"�� ��������� ���������� ����, ��� ���� ������ � ������������ "Left" (�� ���� �� ������ ����) � ����, �� ��� ���� �������� � ������������ "Justify" (�� ������). �������� ���� ���������� � ������ �������� � ����������� ����� �������� ����, �������� � �������: "Selection"�� ���������, "Find.Replacement"�� ����� � ��������, "ParagraphFormat"�� ������ ������, "Alignment"�� ������������, "AlignParagraphJustify"�� "��������������������". ��� �, ����. �������� "With" ��� ��� ������ � � ��������� �� ������������ ���� ��������� ��������� ���� ������ �� ���� "����� � ��������".
����� ����������, ��� ��� ��������� ������� "Selection.Find" (�� ���� ������ � ���������� ����� ������ ��� �� ���� ������) ������������� ���������� ���� "����� � ��������": ".MatchWholeWord"�� "������ ����� �����", ".MatchCase"�� "��������� �������".".Text"�� �����, ��������, ���� ������� ���������� �����, �".Replacement.Text"�� ����� ��, �� ��� ��������. � ����� ������ �������� ���� �� �����, � ��������������, ������� ��� ������� �����.
������� ���������� ���� "Selection.Find" � ������ ������� ��������, ����� ���������, ��� � �� ���������� ����� �������� � ���� ��������� "With". ��������-�� ���. ���� ���� ���������� ����������� ���� ������� ������� �������: "Sub experiencel()" (��� ����� "Sub" ����� ���� �����, ����� ����, ����� ��� �� ��������� � �����-���� �������� VBA). ������ ���� � ����� ������� ���� �������� VBA �������: "End Sub". � ������� ������ "����������" � "��������" ��������� �� ����� ��������� � ����� ������ ������� ���� "With Selection.Find". � ����� ���������� ��� �������, ����������� � ��������� � ������� ������ ���� "����� � ��������" � ���� "With Selection.Find", ����� ����� "Selection.Find":
Sub experiencel()
With Selection.Find
� .ClearFormatting
� .ParagraphFormat.Alignment = wdAlignParagraphLeft
� .Replacement.ClearFormatting
� .Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify
� .Text = ""
� .Replacement.Text = ""
� .Forward = True.Wrap = wdFindContinue
� .Format = True.MatchCase = False
� .MatchWholeWord = False
� .MatchWildcards = False
� .MatchSoundsLike = False
� .MatchAllWordForms = False
� .Execute Replace:=wdReplaceAll
End With
End Sub
��������� ��������� � ����. ������� ��� ���� �������� �� ������ ������ � �������� �������� F5 ����� ������ �� ���������� (������ ������ ������ ������ ������ ������������ �������). ��� ���������! ������ ��������� ���, ��� ����������. ������, ���� � ��� ��������� ����� ��������� �����.
�������� ��� ��������� ����������