1 Тема от Melkiy

  • Melkiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.09.2015
  • Сообщений: 7

Тема: Число прописью.

Помогите отредактировать (изменить) код числа прописью (выделено красным) так, что бы при нажатии кнопки "Ввод данных" появлялась пропись. В данный момент, число прописью пишет только после предварительного просмотра документа.

Post's attachments

Договор купли-продажи.dot 1.79 Мб, 6 скачиваний с 2015-09-14 

You don't have the permssions to download the attachments of this post.

2 Ответ от Alex_Gur

  • Число прописью.
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492
  • За сообщение: 1

Re: Число прописью.

Могу предложить Вам лишь общий подход к решению проблемы.
Изменения при предварительном просмотре в Word аналогичны обновлению полей (Ctrl+A и F9). Поля в Word автоматически не обновляются.
В Вашем файле обновление полей почему-то удаляет сумму стоимости транспортного средства.
Я бы порекомендовал Вам постараться устранить это удаление и добавить в макрос обновление полей:

Selection.WholeStory
Selection.Fields.Update

Или, в крайнем случае, добавьте в макрос предварительный просмотр:

ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3 Ответ от mikkelle

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12
  • За сообщение: 1

Re: Число прописью.

У вас в процедуре CommandButton1_Click для обновления значений полей записано

Selection.Fields.Update

А самого Selection как такового нет.
Можно вместо данной строки прописать быстрое обновление документа типа:

ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview

4 Ответ от Melkiy

  • Melkiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.09.2015
  • Сообщений: 7

Re: Число прописью.

Спасибо за подсказки.
Убрал: 

Selection.Fields.Update

Добавил: 

ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview

С небольшой задержкой, но работает  smile  Ещё раз, спасибо.

5 Ответ от Alex_Gur

  • Число прописью.
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Число прописью.

Попробуйте такой код, который должен убирать мигание при активизации просмотра:

Sub Fields_Update()
     Application.ScreenUpdating = False   'Отключаем обновление экрана
     PrintPreview = True
     PrintPreview = False
     Application.ScreenUpdating = True   'Включаем обновление
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.