我有两个宏,一个用于将 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 的了解还处于“我希望”的阶段。请在回复时记住这一点!