Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
����������� ��������� ����� ��������� � ��������� ������� 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 �����", � ����� ��� ������ � ���� ����� ���� ���������� ������� �