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

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

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

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 223 224 225 226 227 228 229 230 231 ... 375
Перейти на страницу:

����������� ��������� ����� ��������� � ��������� ������� Windows. ��� ����� ������ ������� "SaveSetting", � ������� ������� ����� ��������� � ��������� ������ ������ ��� �����. ��� ����� ������ "SaveSetting "��� ����������", "��� �������", "����", "��������"". ��� ����������, ��� ������� � ���� � ��������� �����, � ������� ����������� ��������. �������� �������� �� ������� ����� �������� "GetSetting" � ����������� "GetSetting "��� ����������","��� �������", "����", "�� ��������, ������� ������� �������, ���� ������ �����, ��� ��������� � ���������� ���������, � ������� ���"", � ������� � �������� "DeleteSetting "��� ����������","��� �������", "����"". ��������:

SaveSetting "�������", "������1", "��� �����", "C:MyPapka" papka = GetSetting "�������", "������1", "��� �����", "C:Docs"

���������� ������ ���� ������������� � ������� ������� � ������ ����� ����� ��������:

ReDim shrifti(FontNames.Count) As String

For r = 1 To FontNames.Count

shrifti(r) = FontNames(r)

Next r

WordBasic.SortArray shrifti()

(� ������ "shrifti()" �������� � ���������� ������� � ������� ���������� ������ ���� ���� ������������� � ������� �������. ������� "WordBasic.SortArray" ��������� ��� �� ��������.)

��������� "If Selection. Type = wdSelectionIP Then�" ����������, ������ ���� � ��������� �� ������� �������� ������.

������ �� ������ ������� �����-������ ����������, ������ ��� ������ ���������, � ��������� �����, �� ����� ������������������ � ��������� ������ � �������� ����� ���� "open", "write" � ��. ������ ���������� ���� � Word ��� ��������� � ������� ������� "Documents. Open�" � ������ � ���� �������� ���������� ������ ������: "Selection.Text = "��� �����"".

������������ �������������� ��������, ������� � ������ ����� ��������, ��� "Application" � "System" (��� ����� ���������� ������� �������� ������� � ��������� ����� ���� �����,�� ������ ��������� ����������� ����������� ���). ����� ��� ����� ����� ������ ������ ���������� � ��������, ����� �������� ������� � ��������� �������� ������ � ������ ���� Word, ���������� � ����� ������ ������ Office, ����� ������ ������ �� ������������� ����� ������� � ������ ������.

��� ������� ��������� ����

Set MyData = New DataObject

MyData.SetText "��� �����"

MyData.PutlnClipboard

����� ��������� ����� � ����� ������, �� ��������� �������� ��������.

��� ������� ������� "Options.DefaultFilePath("��������� �������� �����")" ����� �������� ���� � ����� �����, ������������� � ���������� ���� Word "������" � "���������" � "������������". ��� ��������� ����������� � ������� VBA �� ����� "DefaultFilePath", � �� �� �������� ����� ����� ����������, �������� �������� ��������� � �����������.

������ � ������ �� ��������� ����� ���������� �������� Cancel � True, �� ������� ������ Esc ����� ������������ ����� ���� �� ���� ��������.

������ �� ������ ����������� ��� ����� ��������, ������� �������� ������� � ��������� � ����� ��������������� ������ Word[12], �� ������ ������������� ��������� ������������ ���������, ����� ������� �� ����������� � ��� ����� ������� ����� ��������. VBA ��������� �������������� ����� ������� ��� ������������ Microsoft Word � ��� ����� ���������� ����������� �������

Addins.Add("������ ��� �������, ������� ���� � ���� � ����������").Installed = True

��� ������� ������������ ������� ����������� ������� � ��������� ����� ���� Word "������ � ������� � ����������". ������ ���� ��� ����� ��������� ����� �� ����� ������������ ����������� ������� � ����� ��������������� ������, �� ����� ���������� ������ ���������� ����, ��� ��� ����� ����������� Word ������ ���������������� ���� ������ ��� ��������� ��� ����������� (����� ����������� �� �������� � ���������� ���� "������-������� � ����������", �� �� ����� ������� ��� �����������). �� ��� ������ ���� ������, � ���� � ���� ������ ������� ������� ����������� �������, �� Word ����� �������� ���������, ��� ������ ������� � ����� ������������ ���, ��� ������� ������.

������������� �������� �������� �����, ��������, � ������� ��������� �����������,�� ���������� �� ����� ������� ����������� ������� "FileCopy":

�="��� ������� � ����� ������������ � ������ ��������� ����"

On Error Resume Next

Do

If Addins(a).Installed Then Exit Do

Addins(a).Installed = True

Loop[13]

��� ������������� ������� ����������� ������� �� ����� ���������� � �� � ����� ��������������� ������, �� ��� �� �������� ������������ ������ ����� ������������.

����� �������� ������� ��� �������� Word ����� ������������ ����� �� ���:

�="��� ������� � ����� ������������ � ��������� ����"

On Error Resume Next

Do

If Not Addins(a).Installed Then Exit Do

Addins(a).Installed = False

Loop

Addins (a).Delete

Kill (a)

������� "Kill" ��������� �������� �����.

��������� "On Error Resume Next", ������������� � ����� ��������������� ���������� ���� � ��� ���������� ������. � ������ ������������� ������ � ���� ����� ���� (������, ��������� � ���������� � ��������������� �������) �� ��������� ���������� ��������� � �������, ��������� �� ��������� ������. ���������� ������ ����� ����� ����� ��� "On Error GoTo �����", � ����� ��� ������ � ���� ����� ���� ���������� ������� �

1 ... 223 224 225 226 227 228 229 230 231 ... 375
Перейти на страницу:
На этой странице вы можете читать бесплатно книгу Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт без сокращений.
Комментарии