» Письмо с подстановкой Уважаемый(ая) ФИО

Программирование на Visual Basic for Applications
MaksSoft
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 23.06.2004 (Ср) 20:40

» Письмо с подстановкой Уважаемый(ая) ФИО

Сообщение MaksSoft » 23.06.2004 (Ср) 20:54

Люди, есть вопрос, на который я никак не могу найти ответ, прошу помочь!
Есть Word док-т, который хранит в себе ФИО заказчика и sex-принадлежность (т.е М или Ж) в виде нумерованного списка (500 позиций)с маской: Ф И О - [01] (0 - М, 1 - Ж). Есть шаблон письма в другом Word док-те. Как можно распечатать на принтере для каждого заказчика именное письмо?
Наверное все это можно реализовать на VBA, и план действия таков:
1. Открыть шаблонный документ
2. Сделать замену необходимых строк
a) Выдернуть ФИО, пол из i-ой строки нумерованного списка
б) i++
3. Отправить на печать документ
4. Закрыть без сохранения.
5. Выполнить 1-4, пока i<=500

Очень прошу помочь, т.к. в VBA я — чайник, причем еще и с носиком :wink:
Если в кpане нет воды, то всемy виной Винды!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 24.06.2004 (Чт) 1:07

Делается это через слияние.
Базу данных изменить. Формулами excel, без макросов. Чтобы были столбики Ф, И, О, Пол.
В документе word создать поля слияния. Одно из полей - IF (будет проверять, чему равно MERGEFIELD Пол, и если 0, то вывести "Уважаемый", иначе "Уважаемая").
Короче, никакого VBA, всё очень просто, стандартными средствами...
Последний раз редактировалось GSerg 24.06.2004 (Чт) 10:52, всего редактировалось 1 раз.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

MaksSoft
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 23.06.2004 (Ср) 20:40

Сообщение MaksSoft » 24.06.2004 (Чт) 10:19

GSerg писал(а):Делается это через слиняние.
Базу данных изменить. Формулаим excel, без макросов. Чтобы были столбики Ф, И, О, Пол.
В документе word создать поля слияния. Одно из полей - IF (будет проверять, чему равно MERGEFIELD Пол, и если 0, то вывести "Уважаемый", иначе "Уважаемая").
Короче, никакого VBA, всё очень просто, стандартными средствами...
Супер, Супер, Супер, нашел сляния!!!
УРА!!! GSerg — Спасибищще!
Если в кpане нет воды, то всемy виной Винды!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 24.06.2004 (Чт) 10:53

:)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 107

    TopList