Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > .NET > Общие вопросы .NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 09.07.2019, 09:31   #1
desant13
 
Регистрация: 18.01.2015
Сообщений: 5
По умолчанию Отправить сообщение в Word, в подготовленный шаблон

Здравствуйте. Есть такой вопрос, хочу с TextBox1 отправить сообщение в Word, в подготовленный шаблон. Там естественно подготовил место через "разработчика", word вызывается, но текст не отправляется с бокса туда:
Код:
Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wwwWord As New Word.Application
        Dim ddd As New Word.Document
 
        wwwWord.Visible = True
        wwwWord.Documents.Open("L:\Test.docx", , , True)
 
        With ddd
            .FormFields("w_name").Range = TextBox1.Text
        End With
    End Sub
End Class
desant13 вне форума   Ответить с цитированием
Старый 09.07.2019, 19:45   #2
desant13
 
Регистрация: 18.01.2015
Сообщений: 5
По умолчанию

К сожалению нашел только такой вариант, когда с TextBox1 можно отправлять в MS Word текст
Код:
With ddd
                        .Range.Text = TextBox1.Text
           
        End With
А вот непосредственно в "поле" элемент управления формы MS Word не нашел, это вообще возможно, может я зря время трачу )))?
desant13 вне форума   Ответить с цитированием
Старый 10.07.2019, 11:08   #3
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,463
По умолчанию

В какое именно поле то вам надо вставлять??
Вообще намного быстрее состряпать чистый шаблон документа, открыть его в Open XML SDK 2.5 Productivity Tool и оттуда надергать код документа переработав его в свою функцию.

Ну а вообще вот есть пример на МСДН
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума   Ответить с цитированием
Старый 10.07.2019, 12:45   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,061
По умолчанию

d7 так менял текст. Source - что менять, Replace - на что менять
Код:
    WordApplication.Selection.Find.ClearFormatting;
    WordApplication.Selection.Find.Forward:=True;
    WordApplication.Selection.Find.Text:=Source;
    WordApplication.Selection.Find.Replacement.Text:=Replace;
    WordApplication.Selection.Find.Wrap:=wdFindContinue;
    WordApplication.Selection.Find.Format:=False;
    WordApplication.Selection.Find.MatchCase:=False;
    WordApplication.Selection.Find.MatchWholeWord:=False;
    WordApplication.Selection.Find.MatchWildcards:=False;
    WordApplication.Selection.Find.MatchSoundsLike:=False;
    WordApplication.Selection.Find.MatchAllWordForms:=False;
    WordApplication.Selection.Find.Execute(Replace:=wdReplaceAll);
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправить сообщение. agregator Microsoft Office Excel 10 27.10.2012 09:44
Отправить сообщение вконтакте Pasha_Sh Работа с сетью в Delphi 12 07.05.2012 21:13
Как отправить сообщение вконтакте? rabbitsnew Работа с сетью в Delphi 1 22.09.2010 22:21
Отправить сообщение вконтакт mish@ Работа с сетью в Delphi 13 16.05.2010 18:29
Отправить сообщение на факс Syltan Свободное общение 12 16.11.2009 21:10