Для установки шаблона «Таблица результатов обработки» на ваш компьютер, скопируйте с сайта архив с файлом шаблона. Извлеките из архива файл «Таблица результатов обробки.dot» и сохраните его в любое место на диске. Вынесите на рабочий стол ярлык, указывающий на этот файл. Теперь двойной щелчок на ярлыке будет приводить к запуску MS Word. При таком способе запуска, MS Word автоматически создает новый документ на базе шаблона «Таблица результатов обробки.dot». Этот шаблон содержит макрос, поэтому при появлении предупреждения о наличии макросов, отключать макросы не нужно. Если документ удачно создан, то на панели инструментов в MS Word появится большая кнопка с пиктограммой «Опиум» и текстом «Таблица результатов обработки». Нажатие на кнопку приводит к запуску макроса, который заполняет таблицу значениями из активного документа «Опиум». После заполнения таблица может быть скопирована из этого документа в ваш отчет, или сохранена как документ MS Word.
Настройка шаблона на словарь производится так. Откройте MS Word. Выберите пункт меню «Файл/Открыть». На экране появится окно «Открытие документа». В списке «Тип файлов» (это самая нижняя строка в этом окне) выберите «Шаблоны документов». После этого укажите на шаблон «Таблица результатов обробки.dot» и откройте его. Заметим, что открывать шаблон следует именно так как описано здесь. Другие способы открытия файлов, например двойной щелчок на файле шаблона в окне обозревателя, приведет не к открытию шаблона, а к созданию нового документа на основе шаблона. После этого нажмите комбинацию «Alt+F11». Это приведет к запуску встроенного в MS Word редактора Visual Basic и автоматической загрузке в него текста макроса. Самая последняя (в конце текста) функция макроса называется «Private Sub DataRead()». Найдите ее. Тело этой функции состоит из последовательности однотипных вызовов такого вида: «KC1 = opium.PLSGet("КС1")». Текст КС1 в кавычках (имеется в виду не тот текст, что стоит слева от знака «равно», а аргумент функции «opium.PLSGet») это имя читаемого параметра. Если в вашем словаре кажущееся сопротивление по градиент-зонду длиной 0.45м называется, допустим, GZ1, замените в кавычках текст KC1 на GZ1 так, чтобы получилось «KC1 = opium.PLSGet("GZ1")». Проделайте эту операцию со всеми строками, в которых имена начитываемых параметров не совпадают с именами, принятыми в вашем словаре. После этого нажмите «Shift+F12» для сохранения шаблона. Теперь вы можете выйти из MS Word и пользоваться шаблоном так, как это описано в первом абзаце. назад