Kann mir jemand helfen, diesen Makrocode zu reparieren? Alles in Ordnung, außer der Größenänderung des Fensters

Question

Ich versuche, ein Makro zu erstellen, um Navigationsstilfenster beim Öffnen automatisch (global) zu öffnen und ihre Größe zu ändern. Ich kann es zum Laufen bringen, mit Ausnahme der Größenänderung des Stilfensters. Leider funktioniert das Kopieren des Codes, der die Größe des Navigationsfensters ändert, in das Stilfenster nicht :( Den hervorgehobenen Abschnitt und die Fehlermeldung können Sie hier sehen.. Kann mir bitte jemand helfen, das zu korrigieren.

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

Ps. Abgesehen von dieser, die ich aus verschiedenen Beiträgen zusammengetragen habe, habe ich im Grunde keine Erfahrung mit Makros. Also entschuldigen Sie die vielleicht dumme Frage.

Answer 1

Leider lässt sich die Größe der integrierten andockbaren Aufgabenbereiche von Microsoft Word nicht programmgesteuert ändern.

Mit VBA kann zur Laufzeit nur die Größe benutzerdefinierter modaler und nicht-modaler Benutzerformulare (Dialogfelder) geändert werden.