MS Word Tips: Highlight Multiple Keywords at Once with Macros - कई शब्दों को खोजें और हाइलाइट करें

Описание: Welcome to our channel! Here, we provide valuable tips and insights for recruiting professionals and job seekers alike. Whether you're looking to refine your recruiting strategies or seeking advice to land your dream job, our videos are designed to equip you with the knowledge and skills you need to succeed in the competitive job market.

Subscribe and join our community of professionals dedicated to achieving recruiting excellence and career success!

#MSWordTips #WordMacros #HighlightMultipleWords #MSWordTutorial #ProductivityHacks
#OfficeTips #TechTutorials #WordAutomation #WordTricks #macroprogramming #resumetips #resumetips #mswordtips #microsoftwordtips #microsoftword

Microsoft Word - How to run macros for searching multiple keywords and highlight it.


Script
*****************************


Sub HighlightKeywords()
Dim keyword As String
Dim keywords() As String
Dim i As Integer
Dim inputKeywords As String
Dim doc As Document

Set doc = ActiveDocument
inputKeywords = InputBox("Enter keywords to highlight, separated by commas:", "Keywords Input")

If inputKeywords = "" Then
MsgBox "No keywords entered. Exiting macro.", vbExclamation
Exit Sub
End If

keywords = Split(inputKeywords, ",")

For i = 0 To UBound(keywords)
keyword = Trim(keywords(i))
With doc.Content.Find
.Text = keyword
.Replacement.Text = "^&"
.Replacement.Font.Bold = True
.Replacement.Font.Underline = wdUnderlineSingle
.Replacement.Font.Color = wdColorBlue
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Next i

MsgBox "Keywords highlighted successfully!", vbInformation
End Sub