Категории
Самые читаемые
vseknigi.club » Разная литература » Газеты и журналы » Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
[not-smartphone]

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

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

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 211 212 213 214 215 216 217 218 219 ... 375
Перейти на страницу:

�������� ������ �������� 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 ����� ������ �� ���������� (������ ������ ������ ������ ������ ������������ �������). ��� ���������! ������ ��������� ���, ��� ����������. ������, ���� � ��� ��������� ����� ��������� �����.

�������� ��� ��������� ����������

1 ... 211 212 213 214 215 216 217 218 219 ... 375
Перейти на страницу:
На этой странице вы можете читать бесплатно книгу Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт без сокращений.
Комментарии