Основы офисного программирования и язык 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




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



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