Читайте также:
|
RecentFiles - позволяет работать с файлами, которые вы недавно открывали. Список этих файлов можно увидеть в диалоговом окне открытия файлов. Последний файл, с которым вы работали, хранится в списке первым. Чтобы открыть его, можно воспользоваться кодом из листинга 9.29.
RecentFiles(1).Open
Листинг 9.29. Открываем последний из недавно открытых файлов (html, txt)
ScreenUpdating - запрет обновления экрана
09-06-ScreenUpdating.docm - пример к п. 9.5.12.
Свойство ScreenUpdating используют для отключения обновления экрана во время вывода в документ большого количества информации или других действий с документом. Это позволяет ускорить работу, так как системные ресурсы не тратятся на постоянное обновление экрана. В листинге 9.30. мы запрещаем обновление экрана, выводим в документ 10000 строк, принудительно обновляя экран после каждой 1000 строк, после чего разрешаем автоматическое обновление.
Application.ScreenUpdating = False
For i = 1 To 10
For j = 1 To 1000
Selection.TypeText ("Строка №" + Str(i * j))
Selection.TypeParagraph
Next j
Application.ScreenRefresh
Next i
Application.ScreenUpdating = True
Листинг 9.30. Запрет и разрешение обновления экрана (html, txt)
Очевидно, что присвоив False свойству ScreenUpdating мы запрещаем обновление экрана, а присвоив True - разрешаем.
Дата добавления: 2015-07-25; просмотров: 67 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| EnableCancelKey - запрещаем остановку программы | | | Листинг 9.32. Определение свободного дискового пространства (html, txt) |