Automatically accept all changes, delete all comments and switch off Track Changes in MS Word 2007

I need to the abiity to run a macro that will accept all changes in Word 2007 documents contained in a folder.
1. Accept all changes
2. Delete all coments
3. Switch off Track changes.

This request was posted by openaccount1 and solved by  Psychotec and dic110161. Their result is the attachd Word document containing a Run button linked to VB code. This solution worked for openaccount1 but does not change my Word 2007 documents. I tried substituting a ".doc" wth a ".docx" in one line of code. The code appeared to run, because a could select the folder containing the Word 2007 docx, but the .docx were not changed.

What is wrong with the code or what am I doing wrong?

Thank you for your help.


Doc-containing-VB-code-to-accept.doc
TSimonickAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Chris BottomleySoftware Quality Lead EngineerCommented:
Try:

        If Right(LCase(strName), 4) = ".doc" Or Right(LCase(strName), 5) = ".docm" Or Right(LCase(strName), 5) = ".docx" Then

Chris
Chris BottomleySoftware Quality Lead EngineerCommented:

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
TSimonickAuthor Commented:
Chris,
Thanks very much for the code revision. I'm testing it now and wil close the question and award points later today. So far, works perfectly! I want to keep the question open until I test some of my highly revised docs or docx.
Thanks for responding so quickly and saving me time by providing a complete solution!
-Tom
TSimonickAuthor Commented:
Chris,
Your solution works great. You and the other experts have saved me hours of time!
Thank you again.
Tom
TSimonickAuthor Commented:
Fast response and a very complete solution.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.