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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 09.07.2019, 09:31   #1
desant13
 
Регистрация: 18.01.2015
Сообщений: 5
Репутация: 10
По умолчанию Отправить сообщение в 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
Репутация: 10
По умолчанию

К сожалению нашел только такой вариант, когда с 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,213
Репутация: 617

icq: 359393755
По умолчанию

В какое именно поле то вам надо вставлять??
Вообще намного быстрее состряпать чистый шаблон документа, открыть его в 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
Адрес: Северодонецк.ua
Сообщений: 18,871
Репутация: 6688
По умолчанию

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);
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправить сообщение. 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


18:56.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.