View Single Post
 
Old 06-05-2023, 05:22 AM
Charles Kenyon Charles Kenyon is offline Windows 11 Office 2021
Moderator
 
Join Date: Mar 2012
Location: Sun Prairie, Wisconsin
Posts: 8,900
Charles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant future
Default

Quote:
Originally Posted by Guessed View Post
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

I wish it would on mine!




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!
Reply With Quote