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

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

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

Шрифт:

-
+

Интервал:

-
+

Закладка:

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

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

������ � ������� ����� �������� ���������� � ������ �� ������, ��� ���� �� ����� � ��������� ����������� ��� ����������� �� ����, ��� ������ ���������. ���� ������ ���������� (������, ������ ���������� ������ � ���), �� ������ ������ �� ��������.

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

������ ������� � ������� ������ � ����� ���������������� ������ �������� ��������� �������� �� ����������. ������ � ��������� ����� ������ ����������� �������������

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