MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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.
|word is recognized as adobe and adobe as IE files||14||86|
|Word 2013 : style menu and default style set||2||47|
|Advice needed: I need to take data from a web application and transfer the data to word for report automation...||4||73|
Join the community of 500,000 technology professionals and ask your questions.