:::NEWB Status:::
::NEWB STATUS:::
So I have this macro;
Sub FindWords()
Dim sResponse As String
Dim iCount As Integer
' Input different words until the user clicks cancel
Do
' Identify the word to count
sResponse = InputBox( _
Prompt:="What is the word or phrase you wish to evaluate?", _
Title:="ASR Keywords", Default:="")
If sResponse > "" Then
' Set the counter to zero for each loop
iCount = 0
Application.ScreenUpdating = False
With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Text = sResponse
' Loop until Word can no longer
' find the search string and
' count each instance
Do While .Execute
iCount = iCount + 1
Selection.MoveRight
Loop
End With
' show the number of occurences
MsgBox sResponse & " is in the file " & iCount & " times"
End With
Application.ScreenUpdating = True
End If
Loop While sResponse <> ""
End Sub
The thing i'm trying to do is take the number value that the MsgBox shows and put it next to the Keyword/phrase (See Excel sheet). Basically i'm creating my own ATS for resumes and I have a list of keywords that I want to know the number of occurrence in a particular resume file (I put entire resume in A3 in the example spreadsheet attached. There's got to be a better way!). (Naturally, I'm going to add other rules to rate each keywords presence, but the rest of the algorithm I am doing by chaining clever excel functions together)
I know how to make the iCount + 1 show in the MsgBox, but the text in the message box isn't highlighting capable. Can i just put the value and record a macro or something?
Any help on here is usually rather excellent so Ill certainly give you some good feedback.
Bookmarks