Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
����, ��� ��� ����� � ProgressBar'�� ������ ����� ����� ��� ("�" � ���������� ����������� ���������� �����):
Private Sub UserForm_Activate()
Me.Repaint
For t=1 to n
������������� ������� ��������� � �����.
Label3.Width = ((t/n)*250)
Me.Repaint
Next t
Unload Me
End Sub
����������, � ��� �������� ��������� � ���������. ����� ��������� ��� ������������ ProgressBar � ����� �����, ������ ��� ������� ������ ������� �������. ����� ��������� �� ���� ����� ��������� ProgressBar'��, ��� ����, ��������, ���������� ���������� ����� �������, � ������ � ��� ������� �����.
�������� ������� ���������� � ��������� ������ ������ ��������� ���������� �������� � �������� ���������� "��� ����������� �����������": ��������, ����� ��� ��������� ��������� ��������� ���������� ������������ ������������ ���������� ������.
�����, �������, ������������ �������� ��������� (������ "Dialogs(wdDialogFileSummarylnfo).Comments"), �� ����� ������� ����� ������ � ������� ���������� ����������� ���������� ����� � �������� Word:
ActiveDocument.Variables.Add Name:="x1", Value:="�����"
ActiveDocument.Variables.Add Name:="x2", Value:=12
��������� ��� ���������� ����� ����� � ������� ������� �������:
y1 = ActiveDocument.Variables("x1").Value
y2 = ActiveDocument.Variables("x2").Value
����� ��� � ������� ���� �������, �������� �������� � ��������� ���������� ������ ������ �����! ����� �������� ����� �������� � �������� ��������� ���������� ��� ��������: ����������� ���������, ������� ����������� � �.�. �� �� �������, ��� ��� ��������� �������� ��������� ���������� ���������� ��������� �� � ���������� ��������� � � ������� �������
For Each per In ActiveDocument.Variables
Debug.Print per.Name + " " + per.Value
Next per
��������� ��� ���������� ����� ������������ �������� � ���� �������, ��� �� ����� � ������ ����� �����������.
������� � �������, �������� � �������� ������ ������������ Microsoft Word 97/2000/�� � �� ���� �� ��������, ����� ������, ������������� �� ���, ����� ���� ������ � ��������� � ��������� � ����� ��������� ���� � ������� Microsoft Word 97/2000/�� (*.dot), ���� � ��������� Word (*.doc). ��� ���� ����� ����� ���� ���������:
1.����� ������ ������������ ��������� � Normal.dot, �� ��� �������� ������, ����� ������ Word.
2.����� ������ ������������ ��������� � �������, ������� �������� ��� ���������� � �� ���� ������� � ����� ��������������� ������ Word, �� ��� ����� �������� ������, ����� ������ Word, �� �� ����� ������, �������� ������ � ������� ����������� ���� "������-������� � ����������".
3.����� ������ ������������ ��������� � �������, �� ������� �������� ���������, ��������, � ����� �� ��������, ����������� � ����� �������� ������������ Word[14] � �� ���������, �� ��� �������� �����, ����� ���� ������ ������������ �� ���������� � ������� ��������, ��������� �� ��� ������.
4.����� ������ ������������ ��������� � �����-���� ���������, �� ��� �������� �����, ����� ������� ���� ��������.
������ ������������ ����� ���������� �� ������ ������� ��� ��������� � ������ � ������� ����������� ���� "�����������" (������ � ������� � ���������� � �����������).
���������� � ���, ����� ������ ��� ���������� ������ �� Word'� ���� ������, � ����� ���, ��� ��� ������������� � ��� ���������� �� ������ (����� ������������ ��� �� ��������� ��� ����� �������� Word), ����������� � ��������� �������. ���������� �� � ���, ��� ������ ������������� ������ ��� ����� ������ �������� �������, ��������� � ����� ������� � ������������ ��� ���������� ������ ���������� � �������.
������ ������ ������ ������������, ���������� ������, �������� � ������������ ��� ����������� �� �������, ������� ������� �� ����� ������, ����������� ���� ������, � ����� ������� � ������.
������ ����� ������ � ������� � ������ ����� � ��������� VBA. ��� ��������� ������ ���������� ����� ������ ���������� �����������������.
�������� �� ��, ��� � ���������� ������ ��� ���������� �� ������� �����������, ��� ���� ������ ��������� � � Normal.dot, � �����-���� ������� ��� ���������, ���� �������� Word'�� �� �����������. ������� ���� � ��������� ����������� ������� (�� ���� ���������� � ����� ��������������� ������ Word) ���� ������ � ����� �� ��������� � ������, ��� � � Normal.dot, �� ��� ������� ������, ���������� ���� ������ (������������� �� ����� ������), ����������� ������ �� Normal.dot, � �� �� ����������� �������.
���� ��� ������� Word � ����� ������� �� ����������� ������� Normal.dot, �� �� ��������� Word'�� �� ��������� ���������� �� ���������. � ���� ���������� ����������� ����� ������� ������������.
����� ������ � ����� ������� ��� ������� ������ (��� ���� �� ����� ��������, ��� ������ ���������) ���� � ��������� �������: "�������� ��������"-"������, �� ������� ������� ��������" � "Normal.dot" � "������, ����������� ��������� ����� ����� ��������������� ������ Word ��� ���� "������� � ����������".
������ � ������� ����� �������� ���������� � ������ �� ������, ��� ���� �� ����� � ��������� ����������� ��� ����������� �� ����, ��� ������ ���������. ���� ������ ���������� (������, ������ ���������� ������ � ���), �� ������ ������ �� ��������.
������� � ������������� � ���������������� ������� � ������� ������ � ����� ���������������� ������ �������� ��������� �������� �� ����������. ������ � ��������� ����� ������ ����������� �������������