в " + TextBox1. Text + " вольт по проводнику длиной " + TextBox4. Text + " метров, сечением " + TextBox3. Text + " кв. мм и удельным сопротивлением " + ТехtBox5. Text + " ом на метр за " + TextBox2. Text + " секунд выделится" + TextBox6. Text + " джоулей теплоты. "

Selection.Collapse Direction:=wdCollapseEnd

End Sub

Private Sub CommandButton2_Click ()

Unload Me End Sub

Private Sub TextBox1_Change ()

Scet End Sub

Private Sub TextBox2_Change ()

Scet End Sub

Private Sub TextBox3_Change ()

Scet End Sub

Private Sub TextBox4_Change ()

Scet End Sub

Private Sub TextBox5_Change ()

Scet End Sub

Private Sub Scet()

If IsNumeric (TextBox1. Text) = True And IsNumeric (TextBox2. Text) = True And IsNumeric (TextBox3. Text) = True And IsNumeric (TextBox4. Text) = True And IsNumeric (TextBox5. Text) = True And Not Val (TextBox4. Text) = 0 And Not Val (TextBox5. Text) = 0 Then

rez = ((Val (TextBox1. Text) ^ 2) * Val (TextBox2. Text) * Val (TextBox3. Text)) / (Val (TextBox4. Text) * Val (TextBox5. Text))

TextBox6. Text = Str$ (rez)

CommandButtonl.Enabled = True Else

TextBox6. Text = " "

CommandButton1.Enabled = False

End If

End Sub

Назначить форме кнопку или пункт меню для вызова из Word нельзя, — это возможно только для модулей. Поэтому переименуем для красоты форму в "Teplotok", например (свойство "Name" объекта "UserForm" — можно задать в окне свойств, выделив форму) и напишем модуль, в котором будет всего одна команда — вызов созданной нами формы:

Sub TeploCount()

Teplotok.Show

End Sub

Зададим модулю красивое имя ("Teplo", например, через свойство "Name" объекта "Модуль1" (рис. 6.12), если модуль для программы вызова формы был вставлен с помощью пункта "Вставить — Модуль" контекстного меню правой кнопки мыши в Менеджере проектов) и назначим в Word кнопку для вызова макроса "Normal.Teplo.TeploCount". Вот и все — наша программа готова (рис. 6.13).

Рис. 6.12. Задание модулю нужного имени.

Рис. 6.13. Окно готовой программы.

Теперь ее можно вызывать на выполнение соответствующей кнопкой. При желании можно скопировать форму и модуль в отдельный шаблон и создать в нем панель инструментов с кнопкой вызова макроса, — тогда программу можно будет установить и на другие компьютеры, скопировав шаблон с макросом в папку автозагружаемых файлов Word.

ОКОНЧАТЕЛЬНАЯ ДОРАБОТКА

Когда программа написана и отлажена, необходимо придать ей "товарный вид" — сделать так, чтобы использовать ее было удобно и просто, а установка не требовала от пользователя каких-либо невероятных усилий. Кроме того, весьма желательно максимально сократить размер установочного комплекта, — наверняка большинство пользователей будут загружать программу через Интернет, так что стоит позаботиться об их времени и деньгах.

Ниже будут описаны некоторые действия, которые весьма желательно проделать перед тем, как выставлять свое творение на всеобщее обозрение. Как и прежде, в качестве основной платформы для разработки рассматривается Microsoft Word, поэтому все нижеизложенное относится к программам, разработанными именно для этого текстового редактора, если не указано иное.

Для начала надо решить, в каком формате программу стоит оформить — как простой шаблон Word, на основе которого можно создавать документы, как шаблон Word, загружаемый автоматически при запуске Word'а или как простой документ.

1. Если программа предназначена для одномоментных нечасто используемых расчетов или действий и не работает с текстом документа, то ее проще всего поместить в документ Word — с расширением".doc". При необходимости его можно будет открыть и выполнить программу. Например, очень хорошо в качестве отдельного документа сделать инсталлятор программы.

2. Если программа как-то оформляет текст особого документа, который надо создавать отдельно от всех (к примеру, программа для красивого форматирования поздравительных открыток), то ее лучше оформить как шаблон и создавать на его основе документы, а потом уже эти документы заполнять содержанием с помощью программы.

3. Если же программа выполняет какие-нибудь серьезные операции с текстом, постоянно требуется пользователю или работает с многими документами сразу, то тогда ей прямая дорога в папку автозагружаемых файлов Word. Формат файла, помещаемого в эту папку — шаблон документа (и только он).

Потом необходимо создать документ с программой. Лучше всего поступить так — создать пустой документ необходимого формата — шаблон или простой файл Word, а затем с помощью диалогового окна Word "Организатор" ("Сервис — Макрос

— Макросы — Организатор" или "Сервис — Шаблоны и надстройки — Организатор") скопировать в него все готовые компоненты программы из шаблона или документа, где велась разработка (обычно это Normal.dot), и сохранить под каким-нибудь красивым именем. В этом случае в полученном файле будут присутствовать только компоненты программы, что послужит к уменьшению его размера.

Если разработка программы велась в каком-либо отдельном шаблоне или документе, то можно просто убрать из файла, содержащего ее, лишние модули (которые могли там оказаться, например, в процессе экспериментирования с командами Visual Basic for Applications), почистить компоненты самой программы — удалить закомментированные ненужные команды, излишние комментарии.

Ну и, наконец, следует сделать способ вызова программы. Без этого даже с очень хорошо написанной программой сможет работать лишь ее создатель, да и то не всегда. К тому же красивая обложка всегда радует глаз. Можно с помощью диалогового окна "Сервис — Настройка — Команды — Макросы" назначить макросу пункт меню или кнопку на стандартной панели путем простого перетаскивания. Можно там же назначить ему комбинацию клавиш для вызова. А можно, что считается лучшим вариантом, создать новую панель инструментов и уже на ней поместить кнопки для вызова макросов. Надо только сохранить все изменения именно в документе или шаблоне с макросами, а не в своем Normal.dot или где-нибудь еще.

В окне "Сервис — Настройка — Команды — Макросы" (рис. 7.1) название каждого макроса отображается так: сначала пишется имя проекта, затем — имя его модуля (можно изменить в окне свойств, выделив мышью название модуля), а затем — собственно имя макроса (то, что стоит после команды начала программы Sub).

Рис. 7.1. Список макросов, которым можно назначить кнопки.

Название проекта можно задать с помощью команды "Свойства" (в англоязычных версиях — Project Properties) контекстного меню этого названия (рис. 7.2), а также через Окно свойств (рис. 7.3), предварительно выделив прежнее название проекта.