2

Два макроса, которые у меня есть, один для уменьшения размера окна 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. Пожалуйста, имейте это в виду при ответе!

0