Solved

Word File save as

Posted on 2013-01-09
7
443 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

 
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

Want Experts Exchange at your fingertips?

With Experts Exchange’s latest app release, you can now experience our most recent features, updates, and the same community interface while on-the-go. Download our latest app release at the Android or Apple stores today!

Question has a verified solution.

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

A few years ago I was very much a beginner at VBA, and that very much remains the case today.  I'll do my best to explain things as I go in the hope that other beginners can follow.  If you just want to check out a tool that creates a Select Case fu…
Preface: When I started this series, I used the term CommandBars because that is the Office Object class that it discusses. Unfortunately, when Microsoft introduced Office 2007, they replaced the standard Commandbar menus with "The Ribbon" and rem…
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.

636 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