Count Words In Word Files Using Excel VBA

I have some Word file names in Column A, and some key Words in Row 1.

I use this code to Loop through all the Word Files mentioned in Col A & count each keyword from Row 1 and return the count.

I am using this code which runs perfectly.

Please Login or Register  to view this content.

The only issue is some Word Files are password protected and cannot be viewed without a password which is where the code stops.

All I want is to select the cancel button on the Pop-Up so it closes down and the code moves to the next file.

Can anyone help?

Check whether this helps you...

http://word.mvps.org/faqs/macrosvba/...tectB4Open.htm

That surely helps..

Thank you..

Hi,

Based on that article, I did edit the code, however I guess I have placed the Error handler at a wrong location.

Can you spot an error in this?

Please Login or Register  to view this content.

Try this untested code

Please Login or Register  to view this content.

Does not seem to work..

Still stops on files with Passwords!

Originally Posted by NeedForExcel

Does not seem to work..Still stops on files with Passwords!

I tested it now and it's working fine for me without any issues.

I don't know why it isn't working at my end.. There is just 1 improvement though, If I manually click cancel on the Pup-Up, the code moves further.

But I wish for the Pop-Up to not show up at all..

Hi,

This is a simple code version.

Please Login or Register  to view this content.

This does capture the error 5408, however, it does not move to the MsgBox line till the Popup which .Open method displays it attended.

Do you have any help on this one?

I tried Post #9 code and it's working fine for me

Are you not getting this Pop-Up for a Password Protected File?

I am unable to get past this error unless I manually click cancel

Yes I am not getting any error like that and the code handles the error nicely.

What is your excel/word version?

I am using Office 2013..

I also noticed the Password Pop-Up saying the words "Is Reserved By". Is this any different than a regular Password Protected File in MS Word?