Solved

Word File save as

Posted on 2013-01-09
7
434 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 76

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 76

Accepted Solution

by:
GrahamSkan earned 500 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
Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

 
LVL 76

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 76

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

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

I would like to show you some basics you can do with Mailings in MS Word. It´s quite handy feature you can use for creating envelopes, labels, personalized letters etc. First question could be what is this feature good for? Mailing can really he…
This is written from a 'VBA for MS Word' perspective, but I am sure it applies to most other MS Office components where VBA is used.  One thing that really bugs me is slow code, ESPECIALLY when it's mine!  In programming there are so many ways to…
This video shows the viewer how to set up and create Footnotes in their document. Click on the References tab: Select "Insert Footnote": Type in desired text:
This video shows where to find the word count, how to display it, and what it breaks down to in Microsoft Word.

820 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