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

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

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

Шрифт:

-
+

Интервал:

-
+

Закладка:

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

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

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