Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
���.�3.8. ������� � "��������" ����, ������� ���������� ����� ��������
��� ��� � ��� ���� � ���� ��� �������� � ������� Rtf, �� ��� ������� ������ � � �����������".doc"! �� ��� ��� �� ���������� � ��� ����� ����� �� ��, � ��� ���������� ������ ���� ������".rtf".
���������, � ��� �����, ���� ��������� ��� ��������� ��� �������� �� ���� �� ������������� ���������? ��������� �������� �������� �������� ��� "Docl.doc" (��, ��� "Doc2.doc", "Doc3.doc"�� � ���� ���). �� ��� �� ����������? ���� �� F3 � Explorere � ���, �������� �� � �����, ��� ��������� ������ ��� ������ ���������� ������-���� ����� ��� � ����� ��� ���������� Word �� ���������[3].
�������������, ��� ����������� ���������� ����� ���������������� ��������� ��� ������� ��� ����� � ����� ���������� (����� ���������� ����� ������, ������� � ��� ��������� � ������ "FileName" ������ ���� � ��� ������ ��������������) ���������� ���������� ��������� ��������� � ����� �� ��������� (��� � �����, ��� ��� ��������� ��� �������� ������� �����-������ ��������) � � ������ �� ���������. ������ � ��������.
�� ��� �� ��� ���� � ����� ����������? ��� ���� ����, ����� ��� �������������� ����� ����������� ��� ����� ������ � � ������� � � ����������� Rtf! � ���������-�� �����-������ �������� �������� ���������� ��� ��������� ���������. �������� ��� ���� ������, � ������� ��� "ActiveDocument", ������ ����� (���.�3.9) � �����, ��� ����� ��������� ����������� ������� ���� �������� "Name".
���.�3.9. � ��� ����� ����� ������ ����������� �������.
������, ��� � ���� ��, ��� ��� ����. ��������. ������������ ����������������� ��������� ��������� �������:
Sub experience2()
MsgBox ActiveDocument.Name
End Sub
��� �������� ��� ������� ���� ��������� � ��������� ������� "ActiveDocument.Name". ����� ���� �� �������� "Debug.PrintActiveDocument.Name", ��� ���������� �� �������� ���� ������� � ����������� ���� ������� (���������� �� ���� ��������� VBA "���"-"���� �������"). �� ������������ ���� ��������� ���-�� ���������. ����, �������� F5� �������� ���� � ����������: "������1.doc".
�� ��� ���� ����� ���� ������ ���, ��� ����������! ��� �� ��� ��������? ��������, ����� ����� ������ ��������� ������ ������� � ".doc". �� ���?
������������� ��������. ������ F1 � ��������� VBA, � ����������� ���� ������ ������ "�������", � ��� � "���������� ���������",�� � ��� ��� ������� ������� ���������������� �� ������, � �� ����� ��� � ������� "�����" ���� ���������� ���� ������ �� ���� ������, �������� � ���������� ������� VBA.
������� � ������ ������ ����� "������". �� ������ �������� ���������� ������� VBA ������� ��, ��� ��� ���� � ������� "������� ����� �������" (���� ��� ����� �������� �� ����� ��������� � ����������� ������ ��� ���, �� ���� ����� ����� ������ ��� ������� ������ ��������, �� ���� ������� ����� �������). �������� ������� �� ������� "Left" (���.�3.10).
���.�3.10. ������� �� ������� Left.
����������� � ������� "Left" �������� ������ ��� ��������, ������� ��� �����������. �� ��� ������� �������� ���������� �������� �� ���� ������ � ��� ��� ������? �� ���, ��� ������� � ������ ���������� ���� � ������� "�������������� ��������"�� ����� ������� "Len". ������ ������ "��. �����", ������� �� ������ ������� "������� Len" � ������ ����������� ����������[4].
������� ������� � ����������� ������ � ���������� ����� ������ � �������, ����� �������� �������, ������� ���������� ������ ��� ��������� ������� ��������:
imyadoc = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4)
����� ���������. �������� ��� ���� ������:
Sub experience3()
imyadoc = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4)
MsgBox imyadoc End Sub
� �������� ���. � ���� ��������� � ��� ��������� ��� ����������. ��� ���, ��� ��� ����������.
��������� ������������������������� ������ ��������� ����� ��������� ��������� ��� ���������� � �� ����� ������, ���� ����� ����� �� �������������. ���� ��� ���� ������ ������ ������ ��� ���������, �������������� �� ���������� ������ Word,�� � Word 6.0 � Word 95 ���� ����������� ������� ��� ��������� ����� ���������, � ���������, � VBA �� ����������. ������ ��� ����� ���� ������������ � VBA, ��� ��� ������� ��� Word 6.0 � Word 95 ����� ����������� � � ����� ����� ������� Office. ��� �������� � Office 97/2000/�� �������� � ���������, ��������� � ���������� ������� Office, ��� ������� ������������� �������������� ��� ���������� � VBA � ������� ���������� � ���� ������ ����� WordBasic, �� ������� �������� ������������ ��� Word 6.0 � Word 95.
� Word 6.0 � Word 95 ������� ������� "FileNameInfo$(��������, ��������)", � ������� ������� ����� ���� �������� ��� ��������� ��� ����������, ���� � ��������� ��� ����� � ���� � ��������� ������ � ������. ��� ����, ����� �� ���� ���� ��� ���������, ��� ���������� � ����, �������� ��������� ������ ���� ����� 4. (��� ��� �������� ������� � ������� �� WordBasic ��� Microsoft
