If ActiveDocument.PageSetup.PaperSize = wdPaperA5 Then
ActiveDocument.PageSetup.PaperSize = wdPaperA4
Else
ActiveDocument.PageSetup.PaperSize = wdPaperA5
End If
Application.ScreenRefresh
Почему не обновляется экран при выполнении макроса?
Задача: нужно изменять размер страницы с А4 на А5.
Написал макрос с условием:
Проблема: без последней инструкции размер сразу визуально не меняется, лишь меняется линейка, но после движения скроллингом мыши экран обновляется. С инструкцией же сразу все нормально.
Вопрос: отчего так происходит и как можно исправить код, чтобы инструкцию обновления экрана исключить из кода? Отчего-то я думаю, обновление излишне, но пока без него никак.
Спасибо.
Написал макрос с условием:
Код:
Проблема: без последней инструкции размер сразу визуально не меняется, лишь меняется линейка, но после движения скроллингом мыши экран обновляется. С инструкцией же сразу все нормально.
Вопрос: отчего так происходит и как можно исправить код, чтобы инструкцию обновления экрана исключить из кода? Отчего-то я думаю, обновление излишне, но пока без него никак.
Спасибо.
может в начале этого макроса или в каких-то предыдущих вы установили свойство:
соответственно перед окончанием макроса надо выставить
Код:
Application.ScreenUpdating = False
соответственно перед окончанием макроса надо выставить
Код:
Application.ScreenUpdating = True
Нет, вероятно это глюк либо в VB, либо в Word.
Спасибо.
Спасибо.