View Single Post
 
Old 06-05-2023, 01:37 AM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,748
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

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
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote