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.