Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Calling macro in Word from Excel and saving change without save as dialogue box

Posted on 2013-10-22
5
Medium Priority
?
624 Views
Last Modified: 2013-10-27
Good morning,

I have a macro, "hideone", in excel 2010 that is calling another macro in a word 2010 template document, "wordhideone". My problem is I want to save the changes that "wordhideone" is doing without having a save as box come up. Kinda like just hitting the save icon. Please let me know if you need additional information.

Sub hideone()
    Dim wdApp As Object, newDoc As Object
    Dim strFile As String
    Dim myDoc As String
    
    myDoc = "Risk Audit Report Template"

    strFile = ThisWorkbook.Path & "\" & myDoc & ".docm"

    '~~> Establish an Word application object
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")

    If Err.Number <> 0 Then
        Set wdApp = CreateObject("Word.Application")
    End If
    Err.Clear
    On Error GoTo 0

    wdApp.Visible = False

    Set newDoc = wdApp.Documents.Add(strFile)

    Call wdApp.Run("hideone")
         
End Sub

Open in new window


Sub wordhideone()
' hideone Macro
'
ActiveDocument.Bookmarks("one").Range.Font.Hidden = True
ActiveDocument.Bookmarks("one_01").Range.Font.Hidden = True

      
End Sub

Open in new window


Thank you for your help and I hope you are having a good day.
0
Comment
Question by:EricdYoung
[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
  • 3
  • 2
5 Comments
 
LVL 53

Expert Comment

by:Rgonzo1971
ID: 39591136
Hi.

pls try

Call wdApp.Run("hideone")
newDoc.Save
newDoc.Close False

Open in new window

Regards
0
 

Author Comment

by:EricdYoung
ID: 39592305
Rgonzo1971,

Just tried your recommendation. The word document is still showing and the save as box still opens up. Thank you for your suggestion, if you have any additional thought I'd very much like to read them.

Thank you :).
0
 
LVL 53

Accepted Solution

by:
Rgonzo1971 earned 2000 total points
ID: 39603860
Hi,

pls use Open instead of Add

    Set newDoc = wdApp.Documents.Open(strFile)

    Call wdApp.Run("hideone")
    newDoc.Save
    newDoc.Close False

Open in new window

Regards
0
 

Author Comment

by:EricdYoung
ID: 39604437
Rgonzo,

That is perfect. This solves my issue. Below is the new codes being used for anyone who comes across this post.

in excel:
Sub hideone1()
    Dim wordApp As Object, newDoc As Object
    Dim strFile As String
    Dim myDoc As String
    
   
    myDoc = "Risk Audit Report Template"

    strFile = ThisWorkbook.Path & "\" & myDoc & ".docm"
    
     '~> Establish an Word application object
    On Error Resume Next
    Set wdApp = GetObject("Word.Application")

    If Err.Number <> 0 Then
        Set wdApp = CreateObject("Word.Application")
    End If
    Err.Clear
    On Error GoTo 0

   'Make Risk Audit Report Template.docm. no visible, so it runs in back ground.
   wdApp.Visible = False
   'Final code to open Risk Audit Report Template.docm in the back ground.
   Set newDoc = wdApp.Documents.Open(strFile)
   'runs macro
   Call wdApp.Run("hideone")
   'save Risk Audit Report Template.docm.
   newDoc.Save
   'closes Risk Audit Report Template.docm.
   newDoc.Close False
        
End Sub

Open in new window


in word:
Sub hideone()
'
ActiveDocument.Bookmarks("one").Range.Font.Hidden = True
ActiveDocument.Bookmarks("one_01").Range.Font.Hidden = True

End Sub

Open in new window

0
 

Author Closing Comment

by:EricdYoung
ID: 39604438
Keep on keeping on. TY
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Excel can be a tricky bit of software to get your head around. Whilst you’ll be able to eventually get to grips with the basic understanding of how to get by, there are a few Excel tips that not everybody will even know about let alone know how to d…
Do you use a spreadsheet like Microsoft's Excel?  Have you ever wanted to link out to a non excel file on your computer or network drive?  This is the way I found to do it!
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

604 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