View Single Post
 
Old 04-22-2014, 01:44 PM
flatop flatop is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Jul 2013
Posts: 5
flatop is on a distinguished road
Smile Adapt a script used in Word to highlight words, to work in Outlook?

Hello, I am currently using the script below in Word 2010 to highlight specific words. Is it possible to adapt it to work in Outlook to search for the the same words in a Post? I believe the script was originally posted by Macropod in the Word forums and he suggested I post the question here. If it is not possible to adapt it, does anyone know how to write a similar script to accomplish the same?

Sub HiLightList()
Application.ScreenUpdating = False
Dim StrFnd As String, Rng As Range, i As Long
StrFnd = "display,e/monitor,e/port,mouse,keyboard,case,wide,screen,monitor,e-port"
On Error Resume Next
For i = 0 To UBound(Split(StrFnd, ","))
Set Rng = ActiveDocument.Range
With Rng.Find
.ClearFormatting
.Text = Split(StrFnd, ",")(i)
.Replacement.ClearFormatting
.Replacement.Highlight = True
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = True
.Execute Replace:=wdReplaceAll
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Next
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub
Reply With Quote