在 Windows XP 上的 Word 2010 中调整窗口大小

在 Windows XP 上的 Word 2010 中调整窗口大小

我有两个宏,一个用于将 Word 窗口缩小到屏幕右侧的 20%,另一个用于将 Word 窗口缩小到左侧的 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

它们已经停止工作了。我收到错误消息“未设置对象变量或 With 块变量”。我不知道已经更改了什么。

我应该指出,我不是技术极客。我经常在工作中使用宏(文本编辑),但我对 VBA 的了解还处于“我希望”的阶段。请在回复时记住这一点!

相关内容