Distinguish Style Source

[Jill]

Word 2002: Is there a way to force the "Distinguish Style
Source" option in the Reveal Formatting Task Pane to be
checked?

[Cindy Meister -WordMVP-]

Hi Jill,

> Word 2002: Is there a way to force the "Distinguish Style
> Source" option in the Reveal Formatting Task Pane to be
> checked?
>

I'm afraid I don't know of one, no...

You can try with this macro, but since it depends on SendKeys
there's absolutely no guarantee it will work reliably

Sub RevFormWithStyle()
SendKeys "{F6}"
Application.TaskPanes( _
wdTaskPaneRevealFormatting).Visible = True
SendKeys "{TAB}{TAB} "
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jan
24 2003)
http://www.mvps.org/word

This reply is posted in the Newsgroup; please post any follow
question or reply in the newsgroup and not by e-mail :-)

[jamie....@gmail.com]

I found this sequence causes the focus to get 'stuck' in the 'Formatting of selected text control' but tabbing backwards seems to work in Word 2016:

Sub RevelFormatDistinguishStyle()
' Show the Reveal Formatting Pane
Application.TaskPanes(wdTaskPaneRevealFormatting).Visible = True
' Go to the pane
SendKeys "{F6}"
' Tab backwards to the 1st Options control
' (backwards to avoid getting 'stuck' in the 'Formatting of selected text' control
SendKeys "+{TAB}+{TAB}"
' Press the spacebar to tick the Distinguish style source
SendKeys " "
End Sub