Home |
Search |
Today's Posts |
#2
|
|||
|
|||
This problem solved in another fourm
i am sharing it in the purpose of any other seekers can make use of it. This the vba i was looking for, both works good Thanks to karedog and sktneer for this wonderful code specially used for seo purpose VBA 1 by:karedog Code:
Sub Test() Dim a, i As Long, strContent As String With CreateObject("Word.Application") With .Documents.Open(ThisWorkbook.Path & "\doc.docx") strContent = .Content.Text .Close End With .Quit End With With Sheets("Keyword Tool Export - Check Sea").Range("A1").CurrentRegion a = .Value With CreateObject("VBScript.RegExp") .Global = True .IgnoreCase = True For i = 2 To UBound(a, 1) .Pattern = Replace$(a(i, 1), ".", "\.") If .Test(strContent) Then a(i, 2) = .Execute(strContent).Count Next i End With .Value = a End With End Sub Code:
Sub WordCount() Dim SelectedFile As String Dim wdApp As Object Dim Doc As Object Dim WordToCount As String Dim Cnt As Integer, lr As Long Dim Rng As Range, Cell As Range Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFilePicker) .Title = "Select The Word Document!" .ButtonName = "Confirm" .Filters.Clear .Filters.Add "Word Documents", "*.docx" If .Show = -1 Then SelectedFile = .SelectedItems(1) Else MsgBox "You didn't select a document.", vbExclamation, "Document Not Selected!" Exit Sub End If End With lr = Cells(Rows.Count, 1).End(xlUp).Row Set Rng = Range("A2:A" & lr) Set wdApp = CreateObject("Word.Application") Set Doc = wdApp.documents.Open(SelectedFile) For Each Cell In Rng Cnt = 0 With wdApp.Selection .HomeKey Unit:=6 With .Find .ClearFormatting .Text = Cell.Value Do While .Execute Cnt = Cnt + 1 wdApp.Selection.MoveRight Loop End With End With Cell.Offset(0, 1).Value = Cnt Next Cell Application.ScreenUpdating = True Skip: wdApp.Quit Set Doc = Nothing Set wdApp = Nothing MsgBox "Task completed.", vbInformation, "Done!" End Sub |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I find duplicated words in a list in Word? | Microsoft Word Help | |||
I would like to find and replace a list of words with numbers | Microsoft Word Help | |||
I would like to find and rplace a list of words with code numbers | Microsoft Word Help | |||
How can I find if there are doubles in my list of words? | Microsoft Word Help | |||
how do I find repeating words in a list | Microsoft Word Help |