Solved: mySelection.Find.Execute

I am working with a program to change text with the function

mySelection.Find.Execute

but I would like to get the result of the function in numbers. Like the word interface does, giving the number of instances replaced trhoughout the document.

Do I need to use a differente function or I am missing something? :dunno

Thanks in advance for your help and comments:hi:

Joey


Never mind guys. I was thinking inside the box. I need to run a cycle before with a counter only to FIND the occurrences and then run the replace option.

Thanks anyway :)

Hi, :D

Welcome to VBAX!

Glad to see you've made it work. Can you post you're code for others to benifit from it? :thumb

This is the code:

[VBA]
mySelection = Worddoc.Range

bFound = True

DoWhile bFound = True

bFound = mySelection.Find.Execute(txtFind.Text)

If bFound = TrueThen

iCounter = iCounter + 1

EndIf

Loop

mySelection = Worddoc.Range

bFound = True

bFound = mySelection.Find.Execute(txtFind.Text, , True, , , , False, , , txtReplace.Text, Word.WdReplace.wdReplaceAll, , , , )

bFound = True

DoWhile bFound = True

bFound = mySelection.Find.Execute(txtReplace.Text)

If bFound = TrueThen

mySelection.HighlightColorIndex = Word.WdColorIndex.wdYellow

EndIf

Loop

MsgBox("The text was found " & iCounter & " times")

[/VBA]

Hi, :D

Thnxx for posting back! :thumb