有人能帮我修复这个宏代码吗?除了调整窗格大小之外,其他都很好

有人能帮我修复这个宏代码吗?除了调整窗格大小之外,其他都很好

我正在尝试制作一个宏,在打开时自动打开并调整导航样式窗格的大小(全局)。我可以让它工作,除了调整样式窗格的大小。不幸的是,将调整导航窗格大小的代码复制到样式窗格不起作用 :( 您可以在此处查看其突出显示的部分和错误消息。有人能帮我改正一下吗?

Sub AutoOpen()

Call PaneFixNav
Call PaneFixStyle

End Sub

Sub PaneFixNav()

Application.CommandBars("Navigation").Visible = True
    Dim iWidth As Integer
    iWidth = 250
        With CommandBars("Navigation")
            .Width = iWidth
        End With

End Sub

Sub PaneFixStyle()

Application.TaskPanes(wdTaskPaneFormatting).Visible = True
    Dim iWidth As Integer
    iWidth = 250
        With Application.TaskPanes(wdTaskPaneFormatting)
            .Width = iWidth
        End With

End Sub

附言:除了这个之外,我基本上没有使用宏的经验,这些经验都是我从不同的帖子中拼凑起来的。所以,抱歉,这个问题可能有点愚蠢。

答案1

不幸的是,Microsoft Word 内置的可停靠任务窗格无法通过编程调整大小。

使用 VBA,只有自定义模态和非模态用户表单(对话框)可以在运行时调整大小。

相关内容