Solved

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

Posted on 2013-10-22
5
600 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
  • 3
  • 2
5 Comments
 
LVL 50

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 50

Accepted Solution

by:
Rgonzo1971 earned 500 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

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

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

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.

839 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