Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
������ ��, ������� � Word 97, ����� ���������� ��������� � ������� HTML, � ��� ������ ��������� ������������ ������ � ������ ��������� ����� (���.�5.2), �� ��������� ���, ��������� � ��������� ������� ���������
���.�5.2. ��� ������ ���� ������? ������� ������.
�������� "HKEY_LOCAL_ MACHINESoftwareMicrosoftShared ToolsText Converter s Expor tHTMLOptionsShow EncodingDialog" ��� "No". ���������� ���� �������� ������� ����� � ���������� � ������� �������
"System.PrivateProfileString("", "HKEY_LOCAL_MACHINESoftwareMicrosoftShared ToolsText ConvertersExportHTMLOptions", "ShowEncodingDialog") = "No""
������ �� ������� �������� ��� ����� ��������� �� VBA �� ��������� �������, � ����� ������������ ��� ������ � �� �����������: � ���������, �� ������ www.passwords.ru ���� ��������� AVPR, ����������� ������������ ������� ���� ������. �� ���������� ������ ������� ������ � �����������, � ������� � ����������. � ���������, ���������� ������ �������� ������ � �������, ���������� � Word � Excel �� Microsoft Office 97.
������� �������� ������ ���������, ���������� � �������, ��������� � �� ������ ������� "Application.ScreenUpdating = False", � � �� ����� � ������� "Application.ScreenUpdating = True", ���� ������ � �������� ������ ��������� �� ��������� ���������� �������� ������������ ���������. ��� ������� ��������� ������� �� ������� ����� � ���� �� ���������� ���������� ������ � ����������� ���������. ��� ����, ����� ��� �� �������� ����� ����� ���������� ���������� ������, ����������� ������� "Application.ScreenRefresh".
����� ��������� �� ������������ ������������ ������, ����� �������� ����, ����� ������������ ���������� ������� VBA � ���������� ���� "�������� �����", "�������� ���������" � ��. ��� ���������� �������� Dialogs("�������� �������"). Show (���������� ������ � ��������� ��������������� ��� ��������), Dialogs("�������� �������").Display (������ ���������� ������ � ��������� �������� � ���������� ��������� ���������, �� �� ��������� ������� �������� � ������ �� ��������: ����� ������� ��� ������������� ���������� ���������� ���� � ����� �����), Dialogs("�������� �������").Execute (������ �� ���������� �� ������, �� ��������� ��� �� ���������, ������� ���� ������� ����� � ������� ������� With Dialogs ("�������� �������")� End With). ��� ������ ������ ��������� �������� �������� "Dialogs(", � ��� ����� ����� �� ������. � ���������, �������� ���������� �������� ��� � ������� � �������� ������ ����������� ���������� ������, ���� ������ ��������� ���������� ������� ������� � ������� ����.
� Microsoft Excel ������ ���������� �������� ���, ������ ���������� �� ������ ���� �������� � ���������� ������ ��� �� �����. ��� ����� ������ ������� "Application.GetOpenFilename" � "Application.GetSaveAsFilename". � ���������� ���������� ������� "file = Application.GetOpenFilename" ����� ���������� ���� �������� �����, � ����� ������ ��� ����� ���������� � ���������� (����� � "file"). ������� �� "rez = Application.GetSaveAsFilename" ��������� ���� ���������� �����, � ���������� �� (����� � rez) ����� �������� True � ���� ���������� �������, � False � ���� ���. ��� ������� ��������� �������� ���������� (��������, �������� ��������� ���� � ������).
������ ��������� ������������� ������� �� ������� �����-���� ���������� ����, �� ���, ����� ����� ����� ����� �� ��������� �� "�������", ������������� ����� ������ ���� Word. � �������� ��� �� ������: ���, ������� "Dialogs(wdDialogEditFind).Show" ������������� �������� ���� ������, �� ��� ���� � ������ ����� � ���� ���������, �������� � ������ ���, �� ������������ ��������� � ����������������� ������.
��� �� ����� ������� �� ������� ������ ���� ���, ����� ��� �������� ����-�-���� ��� ��, ��� � "�������", ����� � ��� ����� ������� ������������ ��������� � VBA ������� SendKeys, ������� �������� ��������� ���� ������� ������ � ��� ���� �� ��� ���� ������ �� ����������. ��������� �� ���� ������� �� ������ ��������� � ������� �� VBA, � ������������ �� ��� ������ ����������� ���� �����, � �������, ���:
Sub prog()
SendKeys "^f"
End Sub
�����������, ��� ���������� ������ Ctrl+f �������� ���� "�����", ���, �������, ��������������� �� ���������. ������ ����� �������������� ������ � � �������.
���� �� ����������� ������� "SendKeys", �� ��������� �� ���� ����� ����� ���� ��������� ��� ��, ��� ��� ������ ������. ������ �������, ��� ���� ������������ ������������� ���������� ���� � ������ ���������� ������, �� ���� ��������� ������ �������� �����������.
�������� ��������� ������ � ���������� ���� � Word ���������� ��� ��������� ����� ��������� ������ ������ � �������� � ���� ����� � ���������� ���� ������. � �������, ������� "���������� ���� � ����� �����" ������������ ��� �������� �������� ��������� ��������� �� ������ "�����������" ��� ��� ����� ������� � ���������� ������� � OfficeXP.
������� ����� ���� ����� ������ ���������� � ����� ���� ��������� ��� ������� ������ (���, �������, � ������� �� ������������). ��� ����� ������� � ���� ������� ��� � ��������� ������ ��������� �������
CommandBars(�).Controls.Add ����:=�
��� "�" � ����� ������ (����� ������, ������ �������� �� ��� � ������� ������� "MsgBox CommandBars(�����).Name" � �������, ����� ����� ����� ������ ������������ � ������ ���������), � "�" � ���� �� ��������: "msoControlEdit", "msoControlDropdown", "msoControlComboBox", ��������� �������������� ���� ����� ������, ���������� ���� � ���������� ���� � ������������ ����� ������.
��������� ���������� ������, ��������, � �������, � ��� �����, ����� ������������ ��������� ������ � �������� ������������. ���, ����� ��������� �����-���� ����� � ���� �����, ������� ������������ �������
CommandBars(�).Controls(�).Text = "����� � ���� �����"
��� "�" � ����� ������, "�" � ����� �� ����� ����� ������� ������� ���� ����� ������ ���� ������. ����� ������� ����� ������������ ��� �������� ��� ����������� ������ ������������ ����������. ����� ��� �� � �������� "a=CommandBars(�).Controls(�).Text" ����� ������� ���������� �� ������� ���� � ������������ �� � ������ ���������. ������� ���� ����������� ������� �� ������������� ������� ������