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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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