Alguém pode me ajudar a corrigir esse código de macro? Todo o molho, exceto o painel de redimensionamento

Question

Estou tentando criar uma macro para abrir e redimensionar painéis de estilos de navegação automaticamente ao abrir (globalmente). Consigo fazer funcionar, exceto o redimensionamento do painel de estilos. Infelizmente, copiar o código que redimensiona o painel de navegação para o painel de estilo não funciona :( Você pode ver a seção destacada e a mensagem de erro aqui. Alguém por favor pode me ajudar a corrigi-lo.

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

Sal. Basicamente, não tenho nenhuma experiência com macros além desta, que juntei em diferentes postagens. Então, desculpe pelo que pode muito bem ser uma pergunta idiota.

Answer 1

Infelizmente, os painéis de tarefas encaixáveis ​​integrados do Microsoft Word não podem ser redimensionados programaticamente.

Com o VBA, apenas formulários de usuário (diálogos) modais e não modais personalizados podem ser redimensionados em tempo de execução.