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

Тут можно читать бесплатно Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт. Жанр: Разная литература / Газеты и журналы. Так же Вы можете читать полную версию (весь текст) онлайн без регистрации и SMS на сайте 500book.net или прочесть краткое содержание, предисловие (аннотацию), описание и ознакомиться с отзывами (комментариями) о произведении.
Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт
  • Категория: Разная литература / Газеты и журналы
  • Автор: Вудворт
  • Страниц: 375
  • Добавлено: 2022-10-21 18:07:04
  • Внимание! Книга может содержать контент только для совершеннолетних. Для несовершеннолетних просмотр данного контента СТРОГО ЗАПРЕЩЕН! Если в книге присутствует наличие пропаганды ЛГБТ и другого, запрещенного контента - просьба написать на почту pbn.book@yandex.ru для удаления материала


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

Прочтите описание перед тем, как прочитать онлайн книгу «Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт» бесплатно полную версию:

Большой и увлекательный, научно-прикладной и образовательный, но некоммерческий интернет-журнал, созданный группой энтузиастов. Интернет-журнал содержит материалы, найденные в Интернет или написанные для Интернет. Основная тематика статей — то, что можно сделать самому, от садовых поделок до сверхпроводников, но есть и просто полезные материалы.

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

Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт - читать книгу онлайн бесплатно, автор Вудворт

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

Перейти на страницу:
Вы автор?
Жалоба
Все книги на сайте размещаются его пользователями. Приносим свои глубочайшие извинения, если Ваша книга была опубликована без Вашего на то согласия.
Напишите нам, и мы в срочном порядке примем меры.
Комментарии / Отзывы
    Ничего не найдено.