1 Тема от mika

  • Форма ввода в Office 2007, считывание текста и его вставка
  • mika
  • сержант
  • Неактивен
  • Зарегистрирован: 01.12.2011
  • Сообщений: 25

Тема: Форма ввода в Office 2007, считывание текста и его вставка

Всем привет!
Нужно немного автоматизировать процесс ввода данных в договор.
Прочитала статью на вашем сайте:
http://wordexpert.ru/page/ispolzovanie- … v-dokument


Ну и начала переделывать под себя smile  Под договор. 
Нужно просто вставлять текст из формы в места где я сделала закладки.
В общем не компилируется мой код. Ошибка вылазить ,что переменной не существует. Весь день сижу читаю, и как то не могу понять как исправить.Ребят, помогите разобраться !

Чтобы вам было все понятно о чем я - прилагаю .dot файл.
Попробуйте запустить, нажать на кнопку - внести данные и увидите ошибку.!
Спасибо за внимание smile

2 Ответ от mika

  • Форма ввода в Office 2007, считывание текста и его вставка
  • mika
  • сержант
  • Неактивен
  • Зарегистрирован: 01.12.2011
  • Сообщений: 25

Re: Форма ввода в Office 2007, считывание текста и его вставка

Если не хотите смотреть файл.  Напишите пожалуйста, пример считывания текста с textbox из формы в закладку в word. Пожалуйста.

3 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

Re: Форма ввода в Office 2007, считывание текста и его вставка

Ларчик просто открывался:
1. Set rng = bm("pib").Range 
rng.pib.Text = Me.pib   'Уберите pib из строки rng.pib.Text
bm.Add "pib", rng

2. Set rng = bm("fakt_adresa").Range
rng.Text = Me.fakt_adresa 
bm.Add "fakr_adresa", rng  'Здесь не совпадение имен закладок

4 Ответ от mika

  • Форма ввода в Office 2007, считывание текста и его вставка
  • mika
  • сержант
  • Неактивен
  • Зарегистрирован: 01.12.2011
  • Сообщений: 25

Re: Форма ввода в Office 2007, считывание текста и его вставка

Так у меня там и не было pib

           Set rng = bm("pib").Range  'присваиваем переменной текст из текстового поля "Имя адресата"
           rng.Text = Me.pib    'определяем новый текст закладки
           bm.Add "pib", rng

За fakt_adres  спасибо, исправила. Но дальше ошибка при запуске кода. Поисчите еще ошибку пожалуйста smile

5 Ответ от mika

  • Форма ввода в Office 2007, считывание текста и его вставка
  • mika
  • сержант
  • Неактивен
  • Зарегистрирован: 01.12.2011
  • Сообщений: 25

Re: Форма ввода в Office 2007, считывание текста и его вставка

Все работает. Спасибо!