Excel VBA tutorials to enhance WordPress pages - #5 - Keyword generator #1

See the coding for this video below

Keyword Finder I

Using Excel Visual Basic to analyze text to find keywords

Copy these notes to NotePad and save.

1. Set up Microsoft Excel Workbook with a worksheet called "NNP"
Paste text to be analyzed- or PasteSpecial / text option if copying text from a web page - into cell D10 (other lines / paragraphs will go into cells below)

Enter sub routine below into blank Module in Visual Basic Editor

Sub propername_Tagging()

Dim n, pos, ascii_num As Integer
Dim top_row, bottom_row, col As Integer
Dim wordcount, tagcount As Integer

Dim strLine, strExtract, outputText As String

Worksheets("NNP").Select

[D9].Select
top_row = ActiveCell.Row
col = ActiveCell.Column


For n = top_row To bottom_row

strLine = Cells(n, col)

' NOTE: Youtube 'Description' does not allow HTML characters so change ++ into the opening left pointing arrow and +++ into the closing right pointing arrow

If strLine ++ +++ "" Then

Do While InStr(strLine, " ") +++ 0

pos = InStr(strLine, " ")

ascii_num = Asc(Left(strLine, 1))

' NOTE: Youtube 'Description' does not allow HTML characters so change ++ into the opening left pointing arrow and +++ into the closing right pointing arrow

If ascii_num +++ 64 And ascii_num ++ 91 Then

outputText = outputText + CStr(Left(strLine, pos - 1)) + " "
tagcount = tagcount + 1
End If

strLine = Right(strLine, Len(strLine) - pos)
wordcount = wordcount + 1

Loop

outputText = outputText + CStr(strLine) + " "
tagcount = tagcount + 1
End If

Next

[e2] = outputText
[l4] = wordcount
[o4] = tagcount
[e2].Select

End Sub

End Part V