Help making a Macro

gmayor · #4 03-01-2023, 10:07 PM

You can assign the following to a key -

Code:

Sub FindRed()
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

However it seems that you are trying to create proforma templates for documenting patients. That being the case I would recommend using Rich Text content controls and/or List Box content controls for selecting from lists. To that end you will probably find Insert Content Control Add-In useful. Although not essential for it to work, it is advisable to give the fields unique titles

You can also use that add-in to add 'editors' to the fields and protect the form as read only. You can then only enter text in the fields.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Making a Outlook macro that opens a Excel Workbook	bjornltd	Outlook	0	07-03-2021 06:39 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Making a macro run for each page in a mailmerge	bakhesh	Mail Merge	1	09-29-2013 07:58 PM
Need help making a macro to space images	brewsta	Word VBA	3	12-11-2012 03:29 PM
Making a Macro "autoopen"	Joshocom	Word	1	03-16-2010 05:03 PM