Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Word File save as

Posted on 2013-01-09
7
Medium Priority
?
454 Views
Last Modified: 2013-01-10
Dear Experts,

Utilising word 2010 - Courtesy of EE, I have a macro-enabled word doc that allows users to fill out a series of questions in a form, the answers are then populated throughout the document.

What I would like to do is bring up a file save as dialog box to save the end result as a .doc &  also close down the original macro-enabled word doc without saving changes.

Can anybody help?
0
Comment
Question by:correlate
  • 4
  • 3
7 Comments
 
LVL 77

Expert Comment

by:GrahamSkan
ID: 38759688
This would save the active document
Sub MySave()
    Dim dlg As Dialog
    Set dlg = Dialogs(wdDialogFileSaveAs)
    dlg.Show
End Sub

Open in new window

However it isn't clear why you have two document to consider.

It is normal to use a template to create a new document via File/New. The template is not usually opened as a document, and doesn't need to be closed.
0
 

Author Comment

by:correlate
ID: 38759754
The reason for this is that the code to produce the form for users to fill in resides in document and when I use it as a macro enabled template the form doesn't open automatically and also I get the yellow security warning saying the macros have been disabled.

I tried the code & it brings up the save as dialog all ok, but when I click on save it just keeps popping up again - how can i turn it off once I have clicked save.

Also is there a way to set the save as a plain .docx rather than a macro enabled doc?

Many thanks
0
 
LVL 77

Accepted Solution

by:
GrahamSkan earned 2000 total points
ID: 38759952
Perhaps that is because the macro uses Document_Open instead of Document_New. You indicate that the macro came from this forum. Can you post a link to it, please?
0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

 
LVL 77

Expert Comment

by:GrahamSkan
ID: 38760000
I guess that you have picked out some bits from this question.
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Word/Q_27988350.html
Can you show which bits, please?
0
 

Author Comment

by:correlate
ID: 38760029
Alas i'm away from my pc for tonight - I'll change the auto open to new & hopefully that should crack it

Many thanks for your help on this one
0
 
LVL 77

Expert Comment

by:GrahamSkan
ID: 38760184
If there is only one document open, it will be the ActiveDocument.If there are more and you need code to treat documents differently, there has to be a way to distinguish between them.
0
 

Author Closing Comment

by:correlate
ID: 38762136
Did the job perfectly - thank you
0

Featured Post

Become an Android App Developer

Ready to kick start your career in 2018? Learn how to build an Android app in January’s Course of the Month and open the door to new opportunities.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to use the Send to Mail Recipient command. The instructions apply generally to Office 2007 and later versions, but Microsoft® Word 2013 was used for the specific steps and figures.  What is Send to Mail Recipient? Send…
This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.
How can you see what you are working on when you want to see it while you to save a copy? Add a "Save As" icon to the Quick Access Toolbar, or QAT. That way, when you save a copy of a query, form, report, or other object you are modifying, you…
Suggested Courses

578 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question