| Вопрос: Экспорт данных в документ word средствами VB | Добавлено: 28.07.08 17:21 |
Автор вопроса:  lex099
|
|
Может есть знающие люди..... реально ли сделать следующее.... если да то КАК??
Есть текстовый документ WORD необходимо сделать экспорт введенных пользователем данных из программы написанной на vb6 в данный документ (создать отчет) ПО сути надо заменить строки в документе.... наподобие [name] --- > Alexey |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  s12 Вопросов: 24 Ответов: 363 |
Профиль | | #1 | Добавлено: 29.07.08 00:29 |
На барсике почти все можно  )
Вобщем, подключаешь вордовскую библиотеку, вставляешь код Dim WordApp As Word.Application
(Вроде так, писал по памяти)
Dim DocWord As Word.Document Set WordApp = New Word.Application WordApp.Visible = True Set DocWord = WordApp.Documents.Add DocWord.Activate With WordApp ' 'макрос ' End With Запиши макрос в ворде и посмотри как оно все делается, а потом Replace, а может скумекаешь как объектами ворда пользоватся. |
||
|
Номер ответа: 2 Автор ответа: lex099 Вопросов: 3 Ответов: 3 |
Профиль | | #2 | Добавлено: 29.07.08 09:14 |
|
Private Sub Command1_Click() Set WordApp = New Word.Application ' записать текст из Textbox в буфер обмена Clipboard.SetText Text1.Text, vbCFRTF ' записать в текст в Word With WordApp .Documents.Open ("C:\DDD.doc" 
.Selection.Paste ' вставить ' запомнить файл .ActiveDocument.SaveAs App.Path & "\RTFDOC2.doc", wdFormatDocument .Visible = True .Activate ' сделать документ активным и видимым End With End Sub В общем у меня такой код вот, А есть что-нибуть типа selection.replace? |
||
|
Номер ответа: 3 Автор ответа: lex099Вопросов: 3 Ответов: 3 |
Профиль | | #3 | Добавлено: 29.07.08 10:03 |
|
.Documents.Open ("C:\dogovor.doc"
.Selection.Find.Text = "М_договора" .Selection.Find.Replacement.Text = Text1.Text .Selection.Find.Execute Replace:=wdReplaceOne А вот так вот надо было )
|
||
|
Номер ответа: 4 Автор ответа: lex099Вопросов: 3 Ответов: 3 |
Профиль | | #4 | Добавлено: 29.07.08 10:15 |
|
НО!!!!!
Пишу если .Documents.Open ("C:\dogovor.doc"
.Selection.Find.Text = "М_договора" .Selection.Find.Replacement.Text = Text1.Text .Selection.Find.Execute Replace:=wdReplaceOne .Selection.Find.Text = "Дата_договора" .Selection.Find.Replacement.Text = Text2.Text .Selection.Find.Execute Replace:=wdReplaceOne То он М_договора меняет а дату нет.... кто подскажет решение? |
||
Страница: 1 |