Word VBA - output a popup with some text as a 'preview' window

Looking for ideas.

In my Word VBA application there's a Preview feature. What it does is simply copy a range > open a new Word doc > paste with formats. (the original doc in 500+ pages. This enables the user to review a selected part of it easily, without navigating away from the current insertion position).

The way I have done this has this drawback - the user 'thinks' the new Word doc is there for editing (because it can be). And now there are 2 Word docs open and this can be confusing.

What is required is (just) a 'preview'. One that is obviously a 'popup preview', non-editable, preferably at 50% zoom out (small), with existing formats.

I'd be grateful for any ideas.

Who is Participating?

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

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.


pls try
ActiveDocument.Protect Password:="YourPW", NoReset:=True, Type:= _
    wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
ActiveWindow.ActivePane.Zooms(wdPrintView) = 50 ' adapt view to the one you use

Open in new window

to make the Doc read-only


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
hindersalivaAuthor Commented:
Thanks Rgonzo. That works.

Is it also possible to 'minimise' the Word document to have 'minimal Ribbon tab' and other Word borders? Just on the ActiveDocument.

if it's in the same word session no
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

From novice to tech pro — start learning today.