Automate formatting

Abbas · #1 06-26-2022, 11:02 AM

Hi,
I want to format every "course" like what's shown in the picture or the document below

Guessed · #2 06-26-2022, 06:06 PM

You can do this with a regular search and replace. Recording this as a macro would end up something similar to this

Code:

Sub HiLiteCourses()
  Options.DefaultHighlightColorIndex = wdYellow
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Highlight = True
    .Replacement.Font.Color = wdColorRed
    .Text = "course"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to automate changes to slide	Mearsy	PowerPoint	0	08-18-2015 03:29 AM
Automate document properties	Ted C	Word VBA	11	08-04-2014 06:31 AM
Automate Office Attendance	kgwack	Outlook	0	02-14-2012 09:39 AM
How to automate all slides	Pemberton	PowerPoint	1	11-09-2011 04:39 PM
Can I automate or make a macro for this?	mkoenig	Word VBA	1	01-31-2010 02:47 AM