Копирование данных из формы в документ ворд

Дата: Четверг, 22.01.2015, 22:11 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003 и 13

Подскажите как записать в Ворд документ данные с заполненной формы
[vba]

Код

'2. Заполнение данных в Файл архива корректировки

       ActiveDocument.TextBox1.Value = UF1.ComboBox1.Value 'Номер Участка
       ActiveDocument.TextBox2.Value = UF1.ComboBox3.Value 'Дата запроса
       ActiveDocument.TextBox3.Value = UF1.TextBox2.Value 'Номер дела
       ActiveDocument.TextBox4.Value = UF1.ComboBox4.Value 'Истец
       ActiveDocument.TextBox6.Value = UF1.ComboBox5.Value 'Предмет иска

       'Ответчики
           For i = 1 To 10
               Klient & i.Value = UF1.TXBclient & i.Value 'ФИО Клиента
               Rojd & i.Value = UF1.TXBclientBorn & i.Value 'Дата рождения Клиента
               MestoRojd & i.Value = UF1.TXBclientUroj & i.Value 'Место рождения Клиента
           Next i


'.  Сохраняем файл как "..."
       ChangeFileOpenDirectory "C:\Тест ВБ\Архив корректировки"

       ActiveDocument.SaveAs FileName:="Дело № " + UF1.TextBox2.Value + ".doc"

'. Закрываем файл "..."
       ActiveDocument.Close

[/vba]

Заполнение когда конкретные адреса - работает без проблем, а вот как правильно прописать тело цикла (Ответчики)?
Ми.Контрол не помогает, или я его не правильно прописываю
Klient Rojd MestoRojd - Текстбоксы

Сообщение отредактировал Skorpika - Четверг, 22.01.2015, 22:37

Дата: Четверг, 22.01.2015, 23:37 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Предположительно 2 ошибки.
1. пишете в никуда.
2. читаете из ниоткуда.

Может, конечно, и больше.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 22.01.2015, 23:37

Дата: Четверг, 22.01.2015, 23:50 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003 и 13

RAN,
Всё здесь кроме "'Ответчики..." работает, просто оставил "Ответчиков" только чтобы Вам было понятно что и куда нужно вставить (экспериментов уже там достаточно).
Klient(i) Rojd(i) MestoRojd(i) - Текстбоксы в активном листе ворд (там табличка 3*10 из 10 таких пустых строк), данные в них вставляем из заполненных текстбоксов с формы UF1.

К сообщению приложен файл: 2540921.jpg (46.0 Kb) · 9237709.jpg (32.1 Kb)

Сообщение отредактировал Skorpika - Пятница, 23.01.2015, 00:07

Дата: Пятница, 23.01.2015, 00:42 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Skorpika, 22.01.2015 в 23:50, в сообщении № 3

данные в них вставляем из заполненных текстбоксов с формы

Ну так и вставляйте, если вставляются.
Я могу и ошибаться. Но вряд-ли.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 23.01.2015, 00:43

Дата: Пятница, 23.01.2015, 00:46 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003 и 13

Ну можно и так...
[vba]

Код

For i = 1 To 1
           ActiveDocument.Klient1.Value = UF1.TXBclient1.Value
           ActiveDocument.Rojd1.Value = UF1.TXBclientBorn1.Value
           ActiveDocument.MestoRojd1.Value = UF1.TXBclientUroj1.Value
           ActiveDocument.Projiv1.Value = UF1.TXBclientProjev1.Value
               If UF1.KolVoClientS = 1 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient2.Value = UF1.TXBclient2.Value
           ActiveDocument.Rojd2.Value = UF1.TXBclientBorn2.Value
           ActiveDocument.MestoRojd2.Value = UF1.TXBclientUroj2.Value
           ActiveDocument.Projiv2.Value = UF1.TXBclientProjev2.Value
               If UF1.KolVoClientS = 2 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient3.Value = UF1.TXBclient3.Value
           ActiveDocument.Rojd3.Value = UF1.TXBclientBorn3.Value
           ActiveDocument.MestoRojd3.Value = UF1.TXBclientUroj3.Value
           ActiveDocument.Projiv3.Value = UF1.TXBclientProjev3.Value
               If UF1.KolVoClientS = 3 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient4.Value = UF1.TXBclient4.Value
           ActiveDocument.Rojd4.Value = UF1.TXBclientBorn4.Value
           ActiveDocument.MestoRojd4.Value = UF1.TXBclientUroj4.Value
           ActiveDocument.Projiv4.Value = UF1.TXBclientProjev4.Value
               If UF1.KolVoClientS = 4 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient5.Value = UF1.TXBclient5.Value
           ActiveDocument.Rojd5.Value = UF1.TXBclientBorn5.Value
           ActiveDocument.MestoRojd5.Value = UF1.TXBclientUroj5.Value
           ActiveDocument.Projiv5.Value = UF1.TXBclientProjev5.Value
               If UF1.KolVoClientS = 5 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient6.Value = UF1.TXBclient6.Value
           ActiveDocument.Rojd6.Value = UF1.TXBclientBorn6.Value
           ActiveDocument.MestoRojd6.Value = UF1.TXBclientUroj6.Value
           ActiveDocument.Projiv6.Value = UF1.TXBclientProjev6.Value
               If UF1.KolVoClientS = 6 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient7.Value = UF1.TXBclient7.Value
           ActiveDocument.Rojd7.Value = UF1.TXBclientBorn7.Value
           ActiveDocument.MestoRojd7.Value = UF1.TXBclientUroj7.Value
           ActiveDocument.Projiv7.Value = UF1.TXBclientProjev7.Value
               If UF1.KolVoClientS = 7 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient8.Value = UF1.TXBclient8.Value
           ActiveDocument.Rojd8.Value = UF1.TXBclientBorn8.Value
           ActiveDocument.MestoRojd8.Value = UF1.TXBclientUroj8.Value
           ActiveDocument.Projiv8.Value = UF1.TXBclientProjev8.Value
               If UF1.KolVoClientS = 8 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient9.Value = UF1.TXBclient9.Value
           ActiveDocument.Rojd9.Value = UF1.TXBclientBorn9.Value
           ActiveDocument.MestoRojd9.Value = UF1.TXBclientUroj9.Value
           ActiveDocument.Projiv9.Value = UF1.TXBclientProjev9.Value
               If UF1.KolVoClientS = 9 Then
               Exit For
               Else
               End If
           ActiveDocument.Klient10.Value = UF1.TXBclient10.Value
           ActiveDocument.Rojd10.Value = UF1.TXBclientBorn10.Value
           ActiveDocument.MestoRojd10.Value = UF1.TXBclientUroj10.Value
           ActiveDocument.Projiv10.Value = UF1.TXBclientProjev10.Value


       Next i

[/vba]

Только циклом может всё таки проще? как грамотно прописать цикл?

Ну можно и так...
[vba]

Код

[/vba]

Только циклом может всё таки проще? как грамотно прописать цикл?Skorpika

Сообщение отредактировал Skorpika - Пятница, 23.01.2015, 01:03

СообщениеНу можно и так...
[vba]

Код

[/vba]

Только циклом может всё таки проще? как грамотно прописать цикл?

Автор - Skorpika
Дата добавления - 23.01.2015 в 00:46

Дата: Пятница, 23.01.2015, 19:15 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003 и 13

Хорошо, может так буде проще. В приложенном файле нужно при нажатии кнопки на форме циклом перенести данные с формы в документ WORD.
Подскажите командную строку спецы.

К сообщению приложен файл: 4217365.doc (52.5 Kb)

Дата: Пятница, 23.01.2015, 20:34 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Как прочитать, смотрите здесь.
И тектбоксы в вашем файле не работает.

Быть или не быть, вот в чем загвоздка!

Дата: Пятница, 23.01.2015, 22:08 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003 и 13

RAN, сорь, что значит не работают чекбоксы в ворде?
ну вот второй вариант файла, перебором все работает, но мне нужен цикл, Me.Control в форме работает нормально, а вот в док-те ворд я не знаю как правильно прописать переменную цикла i с активный документом. Ну или так: в ворде 2003 и 2013 работает (кроме цикла) всё прекрасно

К сообщению приложен файл: 4662033.doc (56.5 Kb)

Сообщение отредактировал Skorpika - Пятница, 23.01.2015, 22:11

Дата: Пятница, 23.01.2015, 22:30 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

познакомьтесь поближе

Быть или не быть, вот в чем загвоздка!

Дата: Пятница, 23.01.2015, 22:38 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003 и 13

То есть у вас форма не работает?

Дата: Пятница, 23.01.2015, 22:48 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Форма работает. А поля нет.

Быть или не быть, вот в чем загвоздка!

Дата: Пятница, 23.01.2015, 23:00 | Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Бросай грязную работу, пошли уголь грузить.

К сообщению приложен файл: 5259939.doc (45.5 Kb)

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 24.01.2015, 21:45 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003 и 13

Андрей, может ты и прав, иной раз лучше уголь разгрузить, чем рабочий фрагмент программы написать...
Просто это контрольный файл, то есть прога в шаблон документа вносит данные людей (до 16 человек), создает и заполняет несколько одинаковых документов (меняется только адрес получателя запроса), и как правило в 10% случаев во вносимых данных случается опечатка, если заметили пока прога работает, исправляют и всё, а когда замечают ошибку в готовых документах при упаковывании в конверт, то тут уже тоскливее, ради 1 буквы нужно всех заново вбивать или открывать с десяток сохраненных запросов и исправлять в ручную в каждом файле. Вот и пришлось решать, создавать файл, где просто содержаться данные которые вносились, форма открывает этот "контрольный" файл (с заначкой введенных ранее данных), расставляет по местам, исправляешь ошибку и одним кликом все снова сформировано, распечатано, сохранено, закрыто.
Этот контрольный файл и сейчас существует и работает оч чудненько. Просто глядя на строки программы тоска берет. Там прога рассчитана на 16 человек по 4 Текстбокса на каждого (фио, дата рожд, место рожд, прож.) по итогу 64 Тбокса плюс ещё пара-тройка общих данных. И перенос этих данных туда и, при необходимости обратно занимает в моем варианте 6 общих Тбоксов и 4*16 по людям. Перенос (в моем варианте) занимает 6 строк программы (общий перенос) + 10 строк на каждого. По итогу 6+160= 166 строк программы. А мне просто хотелось бы 6 общих данных + 6 строк на данные людей (1.фор и=1... 2.активдокумент.контрол.ФИО"и"=юзерформ.контрол.ФИО"и"... 3. по дате рожд тоже... 4. по месту рожд... 5.прожив... 6. некст И... ) Итого 12 строк. 12<166 вот и суть проблемы. Ладно, хрен с ней, с этой горой.... обойдём её, сделаю контрольный файл в экселе, ведь он всё одно нигде не участвует.
в любом случае спс, Ran, плюсик добавил

Сообщение отредактировал Skorpika - Суббота, 24.01.2015, 21:45