Чтение информации из ячейки

Для чтения из ячейки удобнее всего использовать свойство ячейки Text. Но таким способом прочитаются и два невидимые символа перевода строки и конца ячейки.

Если в ячейку записать "text", а затем прочитать, то длина прочитанной информации будет на 2 больше длины записанной.

vCell.Range.Text = "text"

MsgBox Len(vCell.Range.Text) ' выведет 6

Поэтому прочитанную строку надо укорачивать на 2 символа

With ActiveDocument.Tables(1).Rows(i)

sFamily = .Cells(2).Range.Text

sFamily = Left(sFamily, Len(sFamily) - 2)

…

End With

Задание №4

4.1 Написать обработчик нажатия кнопки "Создать письма", в котором

• проверяется наличие открытого документа с таблицей и при необходимости создается или открывается нужный документ (процедура checkInfoTable);

• проверяется наличие таблицы в документе InfoTable.doc;

• для каждой строки таблицы (начиная со второй)

1. считывается информация;

2. создается новый документ, в котором создается извещение (использовать ранее написанные макросы);

3. извещение сохраняется в той же папке, что и InfoTable.doc под именем, состоящим из фамилии и порядкового номера;

4. обработанные строки удаляются.

Экспорт-импорт модулей

Документ Word имеет очень сложную структуру, фактически он содержит в себе набор файлов: собственно документ, файлы VBA‑проекта и т.д. Файлы проекта можно извлекать и затем использовать в других документах

Задание №5

5.1 Из созданного шаблона экспортировать файлы модулей макросов и формы. Для этого

• щелкнуть правой кнопкой мышки на нужном модуле или выделив модуль щелкнуть в меню File,

• в меню выбрать Export file …

• выбрать папку и имя для сохранения файла.

5.2 Открыть новый документ и импортировать в него модули, экспортированные из шаблона.

5.3 Сохранить новый документ с макросами.

5.3 Убедится, что все макросы и форма документа работают. А в чем отличие документа от шаблона ?