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

�� .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

�� ActiveDocument.Save

�ActiveDocument.SaveAs FileName:="������1.rtf", FileFormat:=wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= False

�� ActiveWindow.Close

�� End Sub

�������� ��� ��� ������ ����� ��������.

Sub ������1()

' ������1 ������

��� �������� ����������, ��� ��������� �������. ����� "Sub", ��� ��� ����������, �������� ������ ���������. �������� ��������� � � ������ ������ "������!"�� �������� ���������� ������, �� �������� ��� ��������� ����� ��������� �� ������ �������� ����� ������.

����� ' ����� �������� ���������� ����������� � �� ���� ���, ��� ����� � ��� �� ������ ����� ���, ����� �� ������ �� ������ ���������. � ���� ��������� VBA ��� ����������� ������������ ������� ������.

Selection.Wholestory

������ �����, ��� � ������������ �� ���� VBA ��� ������ ������� ������� �������� ���. � ����� ����, ���� ������ ��������, ����������� � �������� ������ � ������ ��������� ����� ������. ����������� ��� ��������, ������ �������� ������ �� ����� "WholeStory" � ����� ������ ������ ������ F1. ������� ����� VBA �������� ����� ������ � ��� �� ������ �� ��������� VBA ��� "�������", �� ����� �� ������ �� ����� �� ����, ���������� �������� VBA, �, ���� ������ ����� ������ �� ����� �����, �� ��������� �������, ����������� � ���� ����� ������� (���.�3.1).

���.�3.1. ��� ��� ���������� ������� �� ����� WholeStory

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

�������, ��� ����� ������ ���������� � ���������� VBA ��� ���������� ���� �� ����� ���������. �� ����� �� �������� ������ �����, ����� �������� ������ ����� ����� ���� ����� ��������.

��� ��� ������������ �����������, ���� VBA ���������� ��������-����������������. ����� �������� ���� ����� �����, ���, �������, � �������� ���������� ������ ����������� ������ ����������������, ��-�� ������� �������� ��� ������ (����� �������� ��������� VBA ��� ������ �� ������ �����). �������� ������� Visual Basic ����� ����� ���: <������>.<������, �������� � ������ ������>.<�>.<��� ������, � ������� ����� ���������� ��������>. ����������� ��������>. ����� �������, ������ ������� ������� ��� �� "� �����": ������� ������������ ��, ��� ��� ���� ���������� �������� � ������, � ����� ���� �������� � �����. ������������� ����������� ������� ������ �����. ��� ������ ����� �������:

Selection.Font.Size = 12

��� ������� ������������� ������ ������ �� ���� ���������� ������ � 12 �������. � ������� Selection (�� ���� ���������� � ������ ������ ����� ������) ���� ��������� Font � ����� ����������� ������, � � ���������� Font � �������� Size. �������� Size ���� ����� ������� �����������. ���� "=" � ��� �������� ������������, � ������ ������ �������� Size ������� Font ������� Selection ������������� �������� 12 � ������ ������ �� ���� ���������� ������ ��������������� � 12 �������.

���� � ��������� ������ �� ��������, �� � 12 ������� ��������������� ������ �������� ������ � ��������� ��������� ����� ����� ������ ������ �������. ���� ������� ����������� ������, �� ������� ����� ���������, � ��� VBA ������ ��������������� ���������.

����� ����, � ������� �������� ������� ����� �������� ���������� � ������� ������� ������:

� = Selection.Font.Size

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

���� � ��������� ������ �� ��������, �� ���������� � ����� ����� �������� ������� ������ ���������� �� �������� �������. ���� ������ ����� ����������� ������ ��������� ������� ��������, �� ���������� � ����� ����� �������� 9999999. ���� ������� ����������� ������, �� ������� ����� ���������, � ��� VBA ������ ��������������� ���������.

With Selection.Font

� .Name = "Times New Roman"

� .Size = 12

� .Colorlndex = wdBlack

End With

������, ��� ���-��, ��������� �� �������. � ����� ����, ���� "Font" ��-��������� ������ "�����", a "Selection"�� "���������". �� ����� "Name" ����� ���������, ��� � ���� ������� ��������������� ��� ������ � "Times New Roman", � ����� "Size", ��������, ������������� ��� ������. " .Colorlndex = wdBlack"�� �������� ��� �������, ��������������� ���� ������: ���� ����� "Color" "����" � ���� ����� "Black"�� "������". �� ����� �� ������ �������, ��������� ������� VBA � �������� ������ �� ����� "Selection" � ������