Macro to highlight keywords-Macrobutton not working fine

[Awalgaonkar]

Hi All,

I am facing issues with the word macro that I have created. I have created a macro to change the font and formatting of specific words mentioned in the inputbox. I am facing two issues:
1. The macro works well when I use Alt +F8. However whenever I am adding a macro button it doesnt seem to highlight the input text.
2. Can we add multiple words in the input box (seperated by a space) and all get highlighted at once, instead of running the macro again for different set of words again and again.

I have used the following code:
Sub Wordhighlighter()
'
' Highlights words of specific interest to you'

MyInput = inputbox("Please enter the words which you want to highlight")
Selection.Find.ClearFormatting
With Selection.Find
.Text = MyInput
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = False
With Selection.Find.Replacement.Font
.Italic = True
.Color = wdColorRed
.Bold = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[macropod]

Hi ,

The code you posted is not capable of highlighting anything, regardless of whether you use a MACROBUTTON. Also, docx files can't be saved with macros. Based on what you posted, the following should do what you want - in a docm file.

Sub Wordhighlighter()
Dim MyInput As String, i As Long
MyInput = InputBox("Please enter the words which you want to highlight" _
  & vbCr & "as a comma-separated list.")
With ActiveDocument.Range.Find
  .ClearFormatting
  With .Replacement
    .Text = "^&"
    .ClearFormatting
    .Highlight = False
    With .Font
      .Italic = True
      .Color = wdColorRed
      .Bold = True
    End With
  End With
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = True
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  For i = 0 To UBound(Split(MyInput, ","))
    .Text = Trim(Split(MyInput, ",")(i))
    .Execute Replace:=wdReplaceAll
  Next
End With
End Sub

PS: When posting code, please use the code tags. They're on the menu.

[Awalgaonkar]

Thanks you so much! It worked perfectly fine...
I am new to VBA, and mainly tried this code based on macro-recorder, but I am glad that the this code solved my issue!

Thanks again! :D