Counter Problem....

[neo_phyte]

good day guys, i need your assistance on this matter. i am planning to add optionbutton or checkbox to my form. This optionbutton or checkbox is used when i am going to Highlight the text that i am inputted in Text1.Text. When optionbutton becomes true or checkbox becomes true, the text that i am inputted in Text1.text will automatically highlight in the microsoft word application.




here is my existing code, please modify my code to complete my project.

Private Sub Command1_Click()
On Error Goto ErrTrap
Dim objWdRange As Word.Range
Dim objWdDoc As Word.Document
Dim count As Integer
Dim wdText As String
 
count = 0
wdText = Text1.Text
 
Set objWdDoc = Application.ActiveDocument
Set objWdRange = objWdDoc.Content
 
With objWdRange.Find
     
 Do While .Execute(FindText:=wdText, Format:=False, _
 MatchCase:=True, MatchWholeWord:=False, MatchAllWordForms:=False) = True
    count = count + 1
 
 Loop
 
End With
MsgBox "There are " & count & " words found in this document", vbInformation
Set objWdRange = Nothing
Set objWdDoc = Nothing
Exit Sub
ErrTrap:
If Err.Number = 429 Then
   Msgbox "You cannot start the counting operation, please open a document", vbOKOnly + vbExclamation, "No document opened"
Else
   Msgbox "An error of " & Err.Number & " " has occured.  This means " & Err.Description
End If
End Sub

i am a starter of any programming language... but i try my best to learn more... and this is my new start, to learn more visual basic... my current job is word processor, and i made my macro just to automate my work.... thanks for the help guys... hope you can help me for this.

[RobDog888]

Whats the error?

[neo_phyte]

"invalid property" that is the error..... could you modify my first posted code... hope you can help me.. thanks...

[RobDog888]

Where is your with block?

.Replacement.Highlight=wdYellow

[neo_phyte]

here is my modified code:

Private Sub Command1_Click()
On Error Goto ErrTrap
Dim objWdRange As Word.Range
Dim objWdDoc As Word.Document
Dim count As Integer
Dim wdText As String
 
count = 0
wdText = Text1.Text
 
Set objWdDoc = Application.ActiveDocument
Set objWdRange = objWdDoc.Content
 
With objWdRange.Find
     
 Do While .Execute(FindText:=wdText, Format:=False, _
 MatchCase:=True, MatchWholeWord:=False, MatchAllWordForms:=False) = True
    count = count + 1
 
 Loop
 
' this is where i put my condition, is this correct?
If optHighlight.Value=True Then
 .Replacement.Highlight=wdYellow
Else
 .Replacement.Highlight=wdBlack
End if
 
End With
MsgBox "There are " & count & " words found in this document", vbInformation
Set objWdRange = Nothing
Set objWdDoc = Nothing
Exit Sub
ErrTrap:
If Err.Number = 429 Then
   Msgbox "You cannot start the counting operation, please open a document", vbOKOnly + vbExclamation, "No document opened"
Else
   Msgbox "An error of " & Err.Number & " " has occured.  This means " & Err.Description
End If
End Sub

thanks for the help....

[RobDog888]

Looks like it may fit in in your .Execute loop since that is the return object your working off of.

Private Sub Command1_Click()
On Error Goto ErrTrap
Dim objWdRange As Word.Range
Dim objWdDoc As Word.Document
Dim count As Integer
Dim wdText As String
 
count = 0
wdText = Text1.Text
 
Set objWdDoc = Application.ActiveDocument
Set objWdRange = objWdDoc.Content
 
With objWdRange.Find
     
 Do While .Execute(FindText:=wdText, Format:=False, _
 MatchCase:=True, MatchWholeWord:=False, MatchAllWordForms:=False) = True
    count = count + 1
 
    ' this is where i put my condition, is this correct?
    If optHighlight.Value=True Then
        .Replacement.Highlight=wdYellow
    Else
        .Replacement.Highlight=wdBlack
    End if
 
 Loop
 
 
 
End With
MsgBox "There are " & count & " words found in this document", vbInformation
Set objWdRange = Nothing
Set objWdDoc = Nothing
Exit Sub
ErrTrap:
If Err.Number = 429 Then
   Msgbox "You cannot start the counting operation, please open a document", vbOKOnly + vbExclamation, "No document opened"
Else
   Msgbox "An error of " & Err.Number & " " has occured.  This means " & Err.Description
End If
End Sub

[neo_phyte]

okay, i will try your suggestions... hope it will work...

[neo_phyte]

i have tried it now, but it does not highlight the word.... is there other way Rob?

[neo_phyte]

there is no error, but it does not highlight the word.... could you suggest more sir Rob?

[RobDog888]

I think I see it now. your not Replacing any text so there is no Replacement object or property.

Private Sub Command1_Click()
On Error Goto ErrTrap
Dim objWdRange As Word.Range
Dim objWdDoc As Word.Document
Dim count As Integer
Dim wdText As String
 
count = 0
wdText = Text1.Text
 
Set objWdDoc = Application.ActiveDocument
Set objWdRange = objWdDoc.Content
 
With objWdRange.Find
     
 Do While .Execute(FindText:=wdText, Format:=False, _
 MatchCase:=True, MatchWholeWord:=False, MatchAllWordForms:=False) = True
    count = count + 1
 
 Loop
 
' this is where i put my condition, is this correct?
If optHighlight.Value=True Then
 .Highlight=wdYellow
Else
 .Highlight=wdBlack
End if
 
End With
MsgBox "There are " & count & " words found in this document", vbInformation
Set objWdRange = Nothing
Set objWdDoc = Nothing
Exit Sub
ErrTrap:
If Err.Number = 429 Then
   Msgbox "You cannot start the counting operation, please open a document", vbOKOnly + vbExclamation, "No document opened"
Else
   Msgbox "An error of " & Err.Number & " " has occured.  This means " & Err.Description
End If
End Sub

[neo_phyte]

okay, i try the above code, but it does not highlight the word/s i am inputted in Text1.Text, in the microsoft word application... it seems that the code does not find word or words to be highlighted...

[RobDog888]

Ok, it should go before the .Execute loop and the syntax is .Highlight = True It doesn not seem that you can change the color.

[RobDog888]

I think I found how to set the color of the found highlighted word.

.Font.Color = wdColorYellow

Again before the .Highlight line of code.

[neo_phyte]

ok, i will try...

[RobDog888]

Darn, its the forecolor and not the actual highlight color. Guess I should have tried first.

[neo_phyte]

okay... i hope you can help me Rob....

[RobDog888]

looks like you can only turn the highlighting on or off, but you could format the .Font to bold or underlined or both or some other style.

[neo_phyte]

i try:

.Font.Bold = True

but it does not give the result of the word that inputted in Text1.Text to be bold... why?

[RobDog888]

And you placed it before the .Execute?

[neo_phyte]

No, after the .Execute. Inside the Loop....

[RobDog888]

It needs to be placed before the execute.

[neo_phyte]

the same result, no bold after all...

[neo_phyte]

Options.DefaultHighlightColorIndex = wdYellow

how about this code... i found it upon browsing of some posted problems here in VBA... can we used it... I think it can used for highlight coloring... I guess so.... please help Mr. Rob...

[RobDog888]

Use this instead. It wil color the highlighting for just a defined Range instead of the entire word application.

objWdDoc.Content.Range.HighlightColorIndex = wdYellow

[neo_phyte]

Mr. Rob good day to you...
I made my code basing from your advise, but seems that whole document will be highlighted instead of selection based from the input.

Private Sub Command1_Click()
On Error Goto ErrTrap
Dim objWdRange As Word.Range
Dim objWdDoc As Word.Document
Dim count As Integer
Dim wdText As String
 
count = 0
wdText = Text1.Text
 
Set objWdDoc = Application.ActiveDocument
Set objWdRange = objWdDoc.Content
 
' set the color
 
objWdDoc.Range.HighlightColorIndex = wdYellow
 
With objWdRange.Find
 
'condition to set optionbutton to true
 
If optHighlight.Value = True Then
  .Text = Text1.Text
  .Replacement.Text = ""
  .Execute Replace:= wdReplaceAll
End If
     
 Do While .Execute(FindText:=wdText, Format:=False, _
 MatchCase:=True, MatchWholeWord:=False, MatchAllWordForms:=False) = True
    count = count + 1
 
 Loop
 
End With
MsgBox "There are " & count & " words found in this document", vbInformation
Set objWdRange = Nothing
Set objWdDoc = Nothing
Exit Sub
ErrTrap:
If Err.Number = 429 Then
   Msgbox "You cannot start the counting operation, please open a document", vbOKOnly + vbExclamation, "No document opened"
Else
   Msgbox "An error of " & Err.Number & " " has occured.  This means " & Err.Description
End If
End Sub

please help me....

[neo_phyte]

This will highlight the text that i am inputted in Text1.Text, but i got the problem now with the counter, since it counts one even if there are many texts found in the document based from the inputted text in Text1.Text. Please help...

Private Sub Command1_Click()
On Error Goto ErrTrap
Dim objWdRange As Word.Range
Dim objWdDoc As Word.Document
Dim count As Integer
Dim wdText As String
 
count = 0
wdText = Text1.Text
 
Set objWdDoc = Application.ActiveDocument
Set objWdRange = objWdDoc.Content
 
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
Exit Do
Loop
 
End With
MsgBox "There are " & count & " words found in this document", vbInformation
Set objWdRange = Nothing
Set objWdDoc = Nothing
Exit Sub
ErrTrap:
If Err.Number = 429 Then
   Msgbox "You cannot start the counting operation, please open a document", vbOKOnly + vbExclamation, "No document opened"
Else
   Msgbox "An error of " & Err.Number & " " has occured.  This means " & Err.Description
End If
End Sub