1

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

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

Post's attachments

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

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

2

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

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

Selection.WholeStory
Selection.Fields.Update

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

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

3

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

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

Selection.Fields.Update

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

ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview

4

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

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

Selection.Fields.Update

Добавил:

ActiveDocument.PrintPreview
ActiveDocument.ClosePrintPreview

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

5

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

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

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