有人可以幫我修復這個巨集程式碼嗎?所有肉汁,除了調整窗格大小

有人可以幫我修復這個巨集程式碼嗎?所有肉汁,除了調整窗格大小

我正在嘗試製作一個巨集來在開啟時自動開啟導覽樣式窗格並調整其大小(全域)。除了調整樣式窗格的大小之外,我可以讓它工作。不幸的是,將調整導覽窗格大小的程式碼複製到樣式窗格不起作用:( 您可以在此處查看它突出顯示的部分和錯誤訊息。有人可以幫我糾正它嗎?

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,只能在執行時調整自訂模式和非模式使用者表單(對話方塊)的大小。

相關內容