![]() |
#1
|
|||
|
|||
![]()
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 |
Thread Tools | |
Display Modes | |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
AtaLoss | Word VBA | 37 | 09-22-2021 12:04 PM |
![]() |
aolszewski | Word VBA | 3 | 11-23-2013 02:07 AM |
permanently highlight searched words in word 2013 | arjay | Word | 4 | 08-16-2013 09:29 AM |
![]() |
zdodson | Word VBA | 1 | 07-11-2013 04:53 PM |
![]() |
bertietheblue | Word VBA | 9 | 07-01-2013 12:39 PM |