| Вопрос: Открытие Word документа и замена текста | Добавлено: 01.11.07 16:35 |
Автор вопроса:  MJ
|
|
Вопрс заключается вот в чем: есть шаблон Word с текстом, в тексте в определенных местах установлены метки, есть ли возможность вставлять в эти метки определенные значения из базы? К примеру, установил метку [#name#] и, по указанному id, выбираю из базы имя и заменяю метку на значение из базы.
Создать документ Word я разобрался как, а вот есть ли возможность открывать уже имеющийся шаблон и заменять в нем определенный текст? Просто нашел пару примеров на VB, но в асп выдает ошибку постоянно, помогите разобраться плизз... вот код который я нашел Set wrd = CreateObject("word.application")
но он выдает ошибку, что
wrd.Visible = True ' показать Word Set doc = wrd.Documents.Add("c:\template.doc") ' загрузить шаблон документа 'Будем работать с функциями поиска и замены символов (текста) во всем документе wrd.ActiveWindow.Selection.Find.Text = "sh" ' текст для поиска wrd.ActiveWindow.Selection.Find.Replacement.Text = "T" ' текст для вставки вместо найденного (замена) Ошибка выполнения Microsoft VBScript (0x800A0046) Разрешение отклонено: 'CreateObject' В чем ошибка помогите разобраться... Win XP, Office 2003, IIS 6.0 |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  JacK ICQ: 9580088 Вопросов: 13 Ответов: 1078 |
Web-сайт: Профиль | | #1 | Добавлено: 04.04.08 13:58 |
|
Например)
Set w = CreateObject("Word.Application"
w.Visible = True Set rng = w.Documents.Add.Range(0,0) With rng .InsertBefore "Hello, World!" .ParagraphFormat.Alignment = 1 With .Font .Name = "Arial" .Size = 48 .Italic = True .Color = 200 End With End With |
||
Страница: 1 |