Solved

VBA using MS Word 2013 will not save Document

Posted on 2014-04-07
7
1,774 Views
Last Modified: 2014-04-12
I am using the following statement to save the MS Word 2013 document after I updated a value in a bookmark.  This is being done with VBA

If ActiveDocument.Saved = False Then ActiveDocument.Save

A Save As dialogue box pops open rather than saving the document, when I click on the Save button in the dialogue box the Save As dialogue box pops open again and the document is not saved.

The code works correctly on the development machine but not on the machine I want the code to run on.  Both machine are running Office 2013 and Windows 7.  The problem is not a permissions problem, I changed the permissions to allow everyone to do everything just to check.
0
Comment
Question by:c7c4c7
  • 3
  • 3
7 Comments
 
LVL 35

Expert Comment

by:Bembi
ID: 39984519
You may check the optional argumetns of the save method. As long as you do not define the arguments, the save methods works with the default settings.
0
 
LVL 14

Expert Comment

by:DrTribos
ID: 39984687
I ran into a similar strangeness in Excel... it was, if you will the reverse problem, I had to save for a change to take effect.

Is it the case that prior to saving the only change to the document is the update to the bookmark?  If so, can I suggest making some other changes with VBA like adding some blank space at the end of a paragraph then trying the save.
0
 

Author Comment

by:c7c4c7
ID: 39984975
I made changes to the document using VBA other than the bookmark and it still doesn't work.

What I don't get is why it works on one machine and not another it's like there is some unique reference that needs to be added, but everything seems to have migrated correctly.

The one thing I see that is different is that the developing machine has reference to something called a Template Project that did not make it over when I copied the .docm to the new machine
0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
LVL 14

Expert Comment

by:DrTribos
ID: 39984976
The only other thing I can suggest is a corrupt user profile, can you try on the impacted machine under a new profile that you create from scratch?
0
 

Accepted Solution

by:
c7c4c7 earned 0 total points
ID: 39985009
Solved my own problem
In the IDE for VBA under Tools -> Reference the reference to the TemplateProject was marked as missing.  I unchecked it and a miracle occurred, the SaveAs box no longer appeared.
0
 
LVL 14

Expert Comment

by:DrTribos
ID: 39985018
How random - thanks for the follow-up
0
 

Author Closing Comment

by:c7c4c7
ID: 39995875
It worked
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Suggested Solutions

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…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
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 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…

743 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now