Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
� VBA ��� ������� ����� ��������� ���:
imyadoc = WordBasic.[FileNameInfo$](ActiveDocument.Name, 4)
��� ���������� ������ ��� ��������� ��� ���������� � ����.
������ ������� ������ ���������� ��� ��������� ���������� � ������������, ���������� �� �� ���� �������� � ��������, ".html". � �� ����� ��� � ����� ������� � ������� ������� "Len", "Mid", "Right" �������� �� ������ �������� ��������� ���� ��� ��������� ����� ��������� ��� ����������, ��� ������� �������� �������� ��� ����� ��������.
������ ��� ������ ������ � VBA ��� �� ����� ���������, ��� ��� ������ � ���, � ��� ����� � �� ����������� ���������� ����� ������ ���, ��� ������ ���� ���� � WordBasic. ������� � ����� ��������� ����� �������������� ���������� ������� � "imyadoc = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4) ".
������ ������, ������ ������ ����� �������� ��������������� ������� ��������� WordBasic, ������� �������� � ��� �� ���������� ������. � ���������, � ������� �� �������� �� ����������, ������, ���� �� ����� ���������� ����������� ����� ��� ������ Word, �� �� ������ ������ � ����� �������� � ������� ���������� ������.
* * *
����, ������� ����� ��������� "ActiveDocument.SaveAs" ������ ��������� ���:
ActiveDocument.SaveAs FileName: = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4), FileFormat:=wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= False
��� ������ ����� ������, ���� ��� �� �����������:
ActiveDocument.SaveAs FileName: = Left(ActiveDocument.Name,
Len(ActiveDocument.Name) � 4), FileFormat:=wdFormatRTF
He ������ �� ���, ����� ����� �������� � ������� Rtf ���������� � ��� �� �����, ��� � ��������. ��� ����� ������� � ��������� "FileName" ���������� � ���� � ��������� ���������:
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + "" +
Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4),
FileFormat:=wdFormatRTF
����� Word ����� ��������� ��������� � ��� �����, ��� ��������� ��� ��� �������� ��� ������ ����-������ �������� � ������� ���������� ���� "��������� ���" � "�������". � ��� ��� �� �� ������ ����� ��� �� ����� ������, ��� ��������� �������������� ���������,�� � ���� �� ��������� ��� ��������� ����� ��������� � Word � ����� �������������� ������ ����� � ���� ���������, � ��� ����� ������� �������� ����� ���������� ���������� �� ��������.
�, �������, ��������� �������:
ActiveWindow.Close
End Sub
��� � ����� ��������� � �������� ��������� ���� � ����������.
��, � ������ ���� �������� ����, ����� ��������� ����� ������������ �� ���� ��������, � ����� ���������. ����� ����� ����� ������: ���� ������������ ��� ������ ��������� � ����� �����, ���� ���������� ��� �������� ���������, �������������� ������ ������. ����� � ��������� ������ �������: ���� ����� ����� ������� ��� ��������� ��� ������������� ����������� ���������, �������� �� �� �������� ������������ � ����� ���� � �� � ����� �����.
��� ��� �������? �������, ��� ������� �������� ����������� ����� ���������, � � ���� Word �������������� ��������� �������� �� ���� �������� � ���������. �������������, ��-������, ���� ���������� ���������� ������� ��� ����� �����������, �� ���� ��� ���������� � ����� ��������� ������ ������� �� ������ ���� �������� ������� ����� �������, ��� � ������ ��������� � ����
Word ����� ������� ���� �� ���������, ������� ���������� ���� � ������ ������ ����� �������, � ���� ��� �� ���������� �������� �� ���������, �� ������ �� ������ ������� ��� ��������� ������ ����� ���� Word. ��� ���������� ������� ������� ����� ��������� VBA ������� � ������ ���������. ������ � ������� VBA, � ���������� ��������� �� ����� "�������"�� ���� �� ����� ������� ��� �����? �������� ������ � "�����������", "��� ������", "��������"[5].
������� "�����������"�� ���� � ����� ��������� ���� ����������� ������� � ��������� ���������� ���������. �������� ����� �� ���� ������� � ������� ������, �������� ������ � ��������� �� ������������� �����.
�� ������� � ������� ������, ��� ���������� (�� ���� �������, ������� �� ���������� ������� ��������) "Goto" ��������� �� ������������� �������� � ������, �� ������� ��������� ������������� ���� �����. �������� �����[6] � ������ ����� ���������:
Sub ������1()
' ������1 ������
metka:
Selection.Wholestory
With Selection.Font
.Name = "Times New Roman"
�
� � �� ����� � ���������� "Goto":
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + "" +
Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4),
FileFormat:=wdFormatRTF
ActiveWindow.Close
Goto metka
End Sub
������. ������ ���� ��������� ���������� ��� �������� ���������. �� ����������-�� ����������, �� � ����� ������ ��������� �� ������. �����, �������, �������� � ���, �� ���������, ������������� ���� ������ �������, ����� � ����� ���������� ���� ����������� ��������, �������� ���������. ������� ����� ���������� ��������� ���������� ��������� ����� ����, ��� ����� ���������� ��� ���������. ����, �������� �������� ��������� ������ ���� �����:
1.����������