View Single Post
 
Old 06-17-2021, 04:43 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
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

You were close
Code:
  With Application
      .TaskPanes(wdTaskPaneFormatting).Visible = True
      .CommandBars("Styles").Position = msoBarRight
      .CommandBars("Styles").Width = 400
  End With
I found the clue to shift to CommandBars here Keeping the Styles Pane Open by Default (Microsoft Word)

For some hints that explore the vba Task Pane limits, here is another link. Although it appears to have been written in 2004, Word's development tends to move at a glacial pace so it is probably still current. Word’s Task Panes VBA Reference – Content
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote