Problem... Need your great help...

[neo_phyte]

This is how the pogram runs. when i clicked the commandbutton and set the checkbox to True, then it will count the words and at the same time it will highlight the words basing from what i am inputted in Text1.Text.

There is no problem with the counter, the only problem in the program, when i placed a code to highlight the word that the counter finds, it will not stop or the documents is in hang up....


but i want this work simultaneously.... both counting as well as highlighting based on the input in Text1.Text

With objWdRange.Find 
 
Do While .Execute(FindText:=wdText, Format:=False, _ 
MatchCase:=True, MatchWholeWord:=False, MatchAllWordForms:=False) = True 
   count = count + 1 
 
If Checkbox1.Value = True Then 
   objWdDoc.Range.HighlightColorIndex = wdYellow 
   .ClearFormatting 
   .Replacement.ClearFormatting 
   .Replacement.Highlight = True 
   .Execute Replace:=wdReplaceAll 
End If 
Loop 
 
End With

[cssriraman]

Hi,

Use the following code:

With objWdRange.Find
    Do While .Execute(FindText:=wdText, Format:=False, MatchCase:=True, _
                      MatchWholeWord:=False, MatchAllWordForms:=False) = True
        Count = Count + 1
        If .Found Then
            If Checkbox1.Value = True Then
                objWdRange.Range.HighlightColorIndex = wdYellow
            End If
        End If
    Loop
End With

___________________
CS.

[neo_phyte]

hi.. thanks for the help but your suggestions will highlight all the text in the word documents....

[cssriraman]

Then, What you need?

[neo_phyte]

simply, when i write a word "City" in the Text1.Text... then it will count and as well highlight all the "City" in the document.... Thanks for your help...

[cssriraman]

Hi,

The following code will find the text "City" in text1.text and highlight it in the document:

With objWdRange.Find
    Do While .Execute(FindText:=Text1.Text, Format:=False, MatchCase:=True, _
                      MatchWholeWord:=False, MatchAllWordForms:=False) = True
        Count = Count + 1
        If .Found Then
            If Checkbox1.Value = True Then
                objWdRange.Range.HighlightColorIndex = wdYellow
            End If
        End If
    Loop
End With

So, if you enter the word "City" in text box1 it will search for it and if found then it will highlight it in the document.
___________________
CS.

[neo_phyte]

just asking, even if without the method .Execute Replace:=wdReplaceAll inside the If...If...End If... End If condition... when i try run your code, it will not highlight at all...


but when, i placed also .Execute Replace:=wdReplaceAll inside the If Condition, same thing happen this will not fix the problem.