Gramor, thanks for help, but I have following error:
I had error in line
Code:
Set oRng = oDoc.Range With oRng.Find
- I changed oRng.Find to oRng = oDoc.Find and it start works. But next error happened when i chose folder in dialog window.
"Run-time error "429" ActivateX component can't create object" and line
Code:
Set oDoc = Documents.Open(strPath & strFile)
- highlited. How can I fix it?
Thanks in advance