Set "Styles in Current Doc" with macro?

NitroPress · #1 01-18-2023, 03:25 PM

I have a nifty little macro that sets up a document workspace the way I like it — Nav and Style panes glued to the edges, and a designated zoom factor:

Code:

Sub FullOpenDoc()
'
' Open doc with Nav and Styles panels, to selected Zoom
'

ActiveWindow.DocumentMap = True

With Application
.TaskPanes(wdTaskPaneFormatting).Visible = True
.CommandBars("Styles").Position = msoBarRight
.CommandBars("Styles").Width = 350
End With

' Set zoom value to that from your adjusted zoom slider

ActiveWindow.ActivePane.View.Zoom.Percentage = 112

End Sub

I'd like to add a function to set the Styles display (under the Options button) to "In current document" but I've failed to record a working sequence for this. Anyone have a script line for that?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copying and then hiding all but a few "approved" styles into current document	andremadar	Word VBA	1	11-17-2022 09:54 PM
Excel 2003: VBA "Function" causes "#VALUE!" errors after running "insert/delete row" custom macro	Matt C	Excel Programming	2	01-08-2022 06:03 AM
remove repeated words with " macro " or " wild cards " in texts with parentheses and commas	jocke321	Word VBA	2	12-10-2014 11:27 AM
What controls the "Fit slide to current window" percentage?	DBlomgren	PowerPoint	5	03-03-2014 12:19 AM
Macro to print "Current Page" in Word 2010	Jshopping	Word VBA	10	06-08-2012 01:15 AM