Категории
Самые читаемые
vseknigi.club » Разная литература » Газеты и журналы » Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
[not-smartphone]

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

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

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 214 215 216 217 218 219 220 221 222 ... 375
Перейти на страницу:
Word 6.0 � Microsoft Word 95.)

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

1 ... 214 215 216 217 218 219 220 221 222 ... 375
Перейти на страницу:
На этой странице вы можете читать бесплатно книгу Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт без сокращений.
Комментарии