With Application.CommandBars("Navigation")
        .Width = 300 ' set to whatever you want - the default seems wide at 400
        .Visible = True
        .Position = msoBarLeft
    End With
    'Application.TaskPanes(wdTaskPaneFormatting).Visible = True
    With Application.CommandBars("Styles")
      .Visible = True
      .Position = msoBarRight
      .Width = 600
    End With

Originally Posted by Guessed This appears to work on my Word 2016 and 365 machines Code: With Application.CommandBars("Navigation") .Width = 300 ' set to whatever you want - the default seems wide at 400 .Visible = True .Position = msoBarLeft End With 'Application.TaskPanes(wdTaskPaneFormatting).Visible = True With Application.CommandBars("Styles") .Visible = True .Position = msoBarRight .Width = 600 End With

If I comment out the line with visible, it will run but the Styles Pane is not visible. With the TaskPanes line, it will become visible, however the .Width property is not applied.


When I try it in Safe Mode on 365, it works, sort of!
It halts on the first line. If I display and then hide the Navigation and Styles Panes, it runs and works.
If I display and then hide only the Navigation Pane, it halts on the Styles CommandBar.
Time for some debugging!