Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Sub Apply_Style() Dim myRange as Range Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:="Table of Contents (clickable entries)", Forward:=True If myRange.Find.Found = True Then myRange.Style = "My_Style" End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.