| Вопрос: Добавление текста из ВБ-формы в Ворд-шаблон | Добавлено: 03.12.08 09:29 |
Автор вопроса:  Shanikov | Web-сайт: shanikov.narod.ru
|
|
Добрый день уважаемые форумчане! Программа должна вставлять занесенные в нее данные (текстбоксы, лэйблы, датапикеры) и по нажатию кнопки формировать документ ворд, на основе уже имеющегося шаблона. Все references подключены, ворд открывается, шаблон открывается, а вот данные не вставляются! Почему не знаю. Помогите народ пожауйста! Заранее благодарен!
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click axWord = New Word.Application ' otkrivaem sam word axWord.Visible = True ' delaem ego vidimim axDoc = axWord.Documents.Open("D:\dog_perevozki.dotx") ' otkrivaem document v uzhe otkritom worde axCC.Item("nomer_dog").Range.Text = dtp1.Value End Sub На последней строчке ошибка вылазиет! |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Андрей Вопросов: 8 Ответов: 42 |
Профиль | Цитата | #1 | Добавлено: 03.12.08 19:27 |
|
Маленький пример:
Option Explicit Dim WrdDc As Object Dim Wrd As Word.Application ' функция изменений в документе Private Function ReplaceInFile(TextNO, TextYes) As Boolean Wrd.Selection.Find.ClearFormatting Wrd.Selection.Find.Replacement.ClearFormatting With Wrd.Selection.Find .Text = TextNO .Replacement.Text = TextYes .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchAllWordForms = False End With Wrd.Selection.Find.Execute Replace:=wdReplaceAll End Function Private Sub Command1_Click() Dim Str As String ' открываем документ Set Wrd = New Word.Application Set WrdDc = Wrd.Documents.Open(App.Path & "\Temp.doc", , False) WrdDc.Application.Visible = True ' производим замену слова "Фамилия" на "Иванов" ReplaceInFile "Фамилия", "Иванов" End Sub |
||
Страница: 1 |