Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 95

Перенос данных из VB6 в шаблон Word

16.01.2015, 00:19. Показов 2976. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте... помогите кому не трудно пожалуйста...

Что-то у меня не получается внести данные из TextBox-a (VB6) в шаблон Word (шаблон test.dot)

Код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Static wd1 As Word.Application
Static wd1Doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = True
 
Set wd1Doc = wd1.Documents.Add(App.Path & "\test.dot")
 
With wdDoc
     .FormFields("w_name").Range = Text1.Text
End With
 
Set wd1 = Nothing
Set wd1Doc = Nothing
 
End Sub
В шаблоне я сделал закладку (текстовое поле) и в поле "заметка" указал w_name

Ругается такими словами object required error 424 на строчку .FormFields("w_name").Range = Text1.Text
Может я как то криво делаю шаблон ??? ...
Не знаю как прикрепить его сюда что бы глянули...
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.01.2015, 00:19
Ответы с готовыми решениями:

Перенос из листов Excel в шаблон Word с кнопками VB
Добрый день, нужна очень срочная помощь! Необходимо 3 таблицы exel вывести в шаблон word с помощью VB прилагаю два файла (exel и word )...

Перенос данных из Excel в VB6
Здравствуйте, подскажите пожалуйста, как можно считать данные из Excel таблицы в двумерный массив в VB6

База данных на VB6 для создания бланков отчёта в Word
Есть простенькая база Access, шаблоны бланков отчётов, макрос по работе с Word. Упёрся в создание наиболее удобной системы выбора...

9
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
16.01.2015, 01:46
Я вставлял так:
Visual Basic
1
2
DocWord.Bookmarks(МЕТКА).Select
Selection.InsertBefore (" " & ТЕКСТ)
Добавлено через 46 секунд
По меткам
1
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 95
16.01.2015, 08:09  [ТС]
хех....
поставил вместо
Visual Basic
1
.FormFields("w_name").Range = Text1.Text
вот это
Visual Basic
1
 wd1Doc.Bookmarks("w_name").Range.Text = Text1.Text
...
и усё заработало...
Спасибо Аlex77755 за Bookmarks
0
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 95
17.01.2015, 16:11  [ТС]
Ребята... может кто встречался... подключаю References Microsoft Word 12.0 Object Library, все работает, все гуд, проект компилируется, прога работает...
Закрываю проект vb6, открываю заново для доработки - галки возле Microsoft Word 12.0 Object Library - нет.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
17.01.2015, 19:07
С такой проблемой не сталкивался. А офис 1 установлен?
Или раньше не было другого установлено? Может где пересеклись?
Попробуй позднее связывание
0
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 95
17.01.2015, 20:29  [ТС]
проблемку решил
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
17.01.2015, 22:51
проблемку решил
Ну раз решил - поделись как!
Возможно кому-то поможешь.
0
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 95
17.01.2015, 23:47  [ТС]
Проект можно открыть файлом Form1.frm и Project1.vbp...
Если открывать файлом Form1.frm, то не подгружается References.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
18.01.2015, 00:17
Проект можно открыть файлом Form1.frm и Project1.vbp...
Вообщето немного не так:
Проект можно открыть Project1.vbp...
Форму можно открыть файлом Form1.frm
При открытии формы не подгружаются....
0
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 95
18.01.2015, 00:27  [ТС]
Сорь за кривизну написания... главное что меня поняли
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.01.2015, 00:27
Помогаю со студенческими работами здесь

Перенос приложений написанных на VB6 на ОС Windows 7
Друзья, возникла сложность следующего свойства. Написал приложение на VB. ОС: Windows XP SP3. При переносе на такие же оси все работает. А...

Перенос данных из Acces в шаблон Word
SOS!!! Помогите полному чайнику (хотя, уже не полному - вся жидкость выкипела от тщетных усилий))) Смысл таков: --есть шаблоны...

Перенос данных из Excel в Word (на основе Word шаблона)
Пожалуйста помогите, приведите какой-то пример как организовать этот процесс нужно из определенных ячеек Excel'a, перенести данные в...

Перенос данных в шаблон по условию
Добрый вечер. Помогите, пжл, сделать простой макрос: перенести данные с одного листа на другой по условиям. Честно весь день пыталась...

Перенос данных в шаблон Excel
В форумах нашел код но он выдает ошибку: E2268 Call to undefined function 'toExcel' Variant App, Sh; TDate Today = Now(); //...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru