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

�������, ���������� �������� ������� ����� ������� ������� � ".Forward = True", ".Wrap = wdFindContinue", ".Execute Replace:=wdReplaceAll". ��, ������ � ��� ����������� ������ � ������ ��� ����� (����� �� ��� ���� �������� "False"). �� ��� ������ ������? � �������-�� ��� ��������� ��� ������ � ����� �� ������� ������������ ����� �� ������������ �� ������, �� � ������� ����������� ����������� ������. ��� ��� ����������:

��������� ������ ∙ ���������� �������� ����

������, � ��������� �� ����������� ������ ∙

.Forward = True

.Wrap = wdFindAsk

�����, � ��������� �� ����������� ������ ∙

.Forward = False

.Wrap = wdFindAsk

������, ��� �������� �� ����������� ������ ∙

.Forward = True

.Wrap = wdFindAsk

�����, ��� �������� �� ����������� ������ ∙

.Forward = False

.Wrap = wdFindAsk

����� ∙

.Forward = True

.Wrap = wdFindContinue

�����, ��� ������� ��� ���������� �������� �� ����������� ������ �� ������ �� ������������ �����. � ��� �� ����� ���������� �� ������� �� �����������? ������� ����� ������� � �������� ����� �������".Wrap" ��� ���� ���� "=" (���.�3.7).

���.�3.7. ��� ��� ����� ���������� ��������� �������� ���������

�� ���, ��� � ���� � ��� ������ �� ����������� ������ ����� ���������� ����� ��������� ����� ��������� �������� ���������".Wrap" ��� "wdFindStop". �� ���� ��������������� ������� ������ ����� ���

��������� ������ ∙ ����������� �������� ����

������, � ��������� �� ����������� ������

.Forward = True

.Wrap = wdFindAsk

�����, � ��������� �� ����������� ������

.Forward = False

.Wrap = wdFindAsk

������, ��� �������� �� ����������� ������

.Forward = True

.Wrap = wdFindStop

�����, ��� �������� �� ����������� ������

.Forward = False

.Wrap = wdFindStop

�����

.Forward = True

.Wrap = wdFindContinue

�������� ����������� �� ��������".Execute Replace:= wdReplaceAll". �� ������ �����, ��� ������ ���� ������� ������� ������, ��� ����� ��� � ����� "Execute" �������� "���������". ��������� � ������� � �� ����� "Execute". ���, ������ ������: "For information about the Execute method, click one of the following object names: Dialog, Find, KeyBinding, MailMerge". ��� ���������� ������ � "Find", ��� ��� �� �������� ������ � ���� ��������. ���������.

��� � ���� � �������".Execute" ��������� ������� ������ � ������ �� ����������: "Runs the specified find operation. Returns True if the find operation is successful.". �� ������ ������� ����� ������, ��� ��� ��������� ������ � ������ ����� ���� �� ������ � � �������, �, ����� ����, ��������� ���������� ������� ����� �������� � ���������� � ������� �� ��� ����� ��� ���(�� ���� ���� �� ������� � ������ ������ ������ ������� "����� � ��������" ������� ��������). ������ ������ ����������� �� ���������, ������ ��������� �� ����� � ���� �� ����� ����������.

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

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

� ��� ����� ��� ����������� ��������������. ��� ������� "��������� ���"�� ��������� ��������������� ������� Word ������������ ����� ���������� ����, �� � ����� ������� ���������� ��� ��������� ���������, ��� ��������������� ������������� �� ���������, ��� � ���: "AddToRecentFiles"�� ��������� �� ����� � ����� "Recent", "EmbedTrueTypeFonts"�� �������� �� ������ TrueType. �������� ��������� �������� "FileName:="������1.rtf"" � "FileFormat:=wdFormatRTF" ��� �����, ��� ������� ����������� �������� ��������, � ��� ������������ �����. ��� ��� ���������� � ������ Rtf. � ��� ��� ���� � ������? ���� � ������� ����� ������ ���� ����, ���������� ���. ��������� ��� ������ ������ ��������� ������� � ��������� ����� �� ������ ������ �������. �������� ��� ���� ������, ��������� ���� ��� ������� "ActiveDocument.SaveAs" �� ����� ����������� � ������ ������� "FileName: ="������1. rtf"". �������� ��������� ������ �� ���������. �� ���� ��������� ���-�� ������: � ������� ���� �������, � ������� ���� ���������� ���� ������, � ��������� �� ������� �� ���� ��� ��