Основы офисного программирования и язык VBA


Пример 1.1


'Объявление переменных на уровне модуля Dim LeftW As Long, TopW As Long, HeightW As Long, WidthW As Long Dim StateW As WdWindowState

Sub ChangeSizeWindow() With Application 'Запоминаем характеристики окна StateW = .WindowState LeftW = .Left TopW = .Top HeightW = .Height WidthW = .Width ' Изменяем характеристики окна .WindowState = wdWindowStateNormal .Left = 100 .Top = 100 .Height = 400 .Width = 400 End With End Sub

Public Sub ResetSizeWindow() With Application ' Восстанавливаем характеристики окна .Left = LeftW .Top = TopW .Height = HeightW .Width = WidthW .WindowState = StateW End With End Sub

Пример 1.1.

Закрыть окно






Начало  Назад  Вперед



Книжный магазин