Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
lvink
1 / 1 / 0
Регистрация: 01.11.2012
Сообщений: 30
1

Записать в шаблон Word информацию с компонентов на форме

01.11.2012, 20:01. Просмотров 1654. Ответов 3
Метки нет (Все метки)

Добрый день ! Помогите написать код . Программа должна вставлять занесенные в нее данные (текстбоксы, лэйблы, датапикеры) и по нажатию кнопки формировать документ ворд(в указанные закладки), на основе уже имеющегося шаблона.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2012, 20:01
Ответы с готовыми решениями:

Хранить шаблон Word в ресурсах приложения
Ув. Специалисты, имеется такая задумка, в решение visual studio 2010 (vb.)...

Использование данных из элементов управления в шаблон Word
Доброго времени суток, уважаемы форумчане. При разработке приложения...

Отредактировать разнотипную информацию в многостраничном документе MS Word
Дано: Большой документ MS Word страниц, скажем 60. Требуется: Изменить...

Как экспортировать текст из TextBox в шаблон Word c заменой определенного текста
Здравствуйте! Я новичок в программировании, но срочно нужна программа, но...

Информацию из 10 TextBox записать в массив
Есть 10 тексбоксов нужна считать из них информацию и записать в массив. Делаю...

3
Julee
3 / 3 / 0
Регистрация: 08.02.2012
Сообщений: 15
01.11.2012, 21:31 2
Если я правильно понял, нужно воткнуть данные из контролов в закладки документа Word. Тогда, наверно, так:

vb.net
1
2
3
4
5
6
7
8
9
Private Sub cmdReadfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReadfile.Click
        Dim wApp As Object = CreateObject("Word.Application")
        Dim wDoc As Object = wApp.Documents.Open("f:\ddd.doc") 'твой файл
        wDoc.Bookmarks("Num").Range.Text = TextBox1.Text    'в 1 закладку
        wDoc.Bookmarks("Num1").Range.Text = ComboBox1.Text  'во 2 закладку
        wDoc.Bookmarks("Num2").Range.Text = Label1.Text     'в 3 закладку
 
        wApp.Visible = True
    End Sub
1
lvink
1 / 1 / 0
Регистрация: 01.11.2012
Сообщений: 30
01.11.2012, 23:54  [ТС] 3
спс все работает , а можна вносить изменения не открывая + сохранять ?
0
Chase_
45 / 40 / 3
Регистрация: 16.05.2012
Сообщений: 83
02.11.2012, 08:48 4
В любом случае нужно либо открыть, либо создать новый документ) что б программа знала, в какой именно Ворд вставлять данные. А если не нужно чтоб пользователь видел этот процесс, можно просто скрыть окно Ворда во время добавления. В этом случае будет только висеть процесс в диспетчере задач. Но тут одно НО. При повторной попытке открыть уже открытый документ в Ворде появляется всплывающее окно типа "Документ уже открыт" которое блокирует добавление данных и выдает ошибку.
vb.net
1
2
3
4
5
6
7
8
9
        Dim typeWord As Type = Type.GetTypeFromProgID("Word.Application")
        Dim word As Object = Activator.CreateInstance(typeWord) 
        word.Documents.Open(dirr + "\Документ1.doc") ' или  word.Documents.Add()
        word.Visible = False
        'Сделали все что нужно
        word.ActiveDocument.SaveAs(dirr + "\Документ2", 0) ' форматы: 0-.doc, 2-.txt, 6-.rtf,  есть и другие...
        word.quit()
        word = Nothing
        typeWord = Nothing
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.11.2012, 08:48

Как записать информацию в базу данных?
Здравствуйте. У меня есть: - база данных, которую я добавил в проект -...

Считать и записать информацию из ListBox в файл
ВОПРОС ТАКОЙ:У меня есть программа которая считывает из текстового поля...

Как записать информацию в файл ресурсов
Здравствуйте! Подскажите, пожалуйста, как из текстового файла ресурсов взять...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru