Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт
��������� ������ ∙ ���������� �������� ����
������, � ��������� �� ����������� ������ ∙
.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"". �������� ��������� ������ �� ���������. �� ���� ��������� ���-�� ������: � ������� ���� �������, � ������� ���� ���������� ���� ������, � ��������� �� ������� �� ���� ��� ��
