Шаблон в MS Word?

Программирование на Visual Basic for Applications
SV
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 15.05.2002 (Ср) 16:09
Откуда: Russia

Шаблон в MS Word?

Сообщение SV » 06.07.2004 (Вт) 3:02

День добрый!
Кто знает как реализовать работу с шаблонами в MS Word, подскажите.
Нужна следующая штука, допустим у нас есть некоторый документ (например содержащий таблицу) в одной из ячеек этой таблицы мы ставим контрольную точку а потом при обработке документа заменяем эту контрольную точку на нужный текст.
Вопрос как это сделать в MS Word?
Если кто знает прогу "Налогоплательщик ЮЛ" вот как в ней шаблоны реализованы, так и нужно.

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

Сообщение GSerg » 07.07.2004 (Ср) 21:18

Если предполагается юзать этот шаблон с использованием Word.Application, то размести, к примеру, закладки или поля в нужных местах.
Если не предполагается - то придумай кодовую последовательность символов, напиши её туда, где должен быть ответ, сохрани в rtf, а потом просто грузи этот rtf в string и делай replace.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

SV
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 15.05.2002 (Ср) 16:09
Откуда: Russia

Сообщение SV » 08.07.2004 (Чт) 2:40

Спасибо за совет!
Но решение уже найдено!
Могу поделится!

Sub Fint()

Application.Selection.Find.Forward = True
Application.Selection.Find.Text = "#METKA#"

If Application.Selection.Find.Execute Then
' если найден текст то
Application.Selection.Delete 'удаляем его Application.Selection.InsertAfter "Нашли и заменили" ' и на его место ставим другой текст

End If

End Sub


Вернуться в VBA

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 119

    TopList