Два макроса, которые у меня есть, один для уменьшения размера окна Word до 20% от правой стороны экрана, а другой до 80% на левой стороне, перестали работать. (Они для справочных файлов, пока я работаю на другом экране).
Это мои макросы:
Sub RestoreDown()
Dim myWindow1 As Window, myWindow2 As Window
Set myWindow1 = ActiveWindow
With myWindow1
.WindowState = xlNormal
.Top = 0
.Left = (Application.UsableWidth * 0.92) + 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth * 0.2
End With
End Sub
Sub RestoreDown2()
Dim myWindow1 As Window, myWindow2 As Window
Set myWindow1 = ActiveWindow
With myWindow1
.WindowState = xlNormal
.Top = 0
.Left = (Application.UsableWidth * 0.12) + 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth * 0.8
End With
End Sub
Они перестали работать. Я получаю сообщение об ошибке «Переменная объекта или переменная блока не установлена». Я не в курсе, что я что-то изменил.
Я должен отметить, что я не технический специалист. Я часто использую макросы для своей работы (редактирование текстов), но я только на стадии «хочу», чтобы много знать о VBA. Пожалуйста, имейте это в виду при ответе!