Wrox Programmer Forums
| Search | Today's Posts | Mark Forums Read
Beginning VB 6 For coders who are new to Visual Basic, working in VB version 6 (not .NET).
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Beginning VB 6 section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
Old October 13th, 2003, 01:31 AM
Registered User
Join Date: Oct 2003
Location: sydney, NSW, Australia.
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Could not open macro storage


i've got a problem with regards to viewing/opening word document from the net.

we have a customised COM dll for controlling all the Word toolbars and firm specific functions at work. at the moment, whenever we try to view an word document from the net, an error message "Could not open macro storage" will be displayed while the document is opened.

Adding breakpoints/message boxes to the dll and disclose the error coming out from the following class_initialize sub:

Dim m_objWordApp As Word.Application
Dim m_objWordDoc As Word.Document

    Set m_objWordApp = GetObject(, "Word.Application")

    If Err.Number <> 0 Then
        strMsg = "Microsoft Word is not loaded!" & vbCr & vbCr & _
            "Cannot successfully initialise ActiveX component until this application is present"

        MsgBox strMsg, vbCritical


        'initialise m_objWordDoc to the currently active document
        Set m_objWordDoc = m_objWordApp.ActiveDocument

m_objWordApp.ActiveDocument returns the error.

have anyone experienced anything like this before?

your help will be much appreciated!

Old November 6th, 2003, 04:01 PM
Registered User
Join Date: Nov 2003
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts

I am having the same problem? Do you have a solution?


Old November 6th, 2003, 11:53 PM
sal sal is offline
Friend of Wrox
Join Date: Oct 2003
Location: Clarksville, TN, USA.
Posts: 702
Thanks: 0
Thanked 0 Times in 0 Posts

I am not completly sure about this, but, i have to ask. Is word installed on the server?

Old March 11th, 2004, 11:52 PM
Registered User
Join Date: Mar 2004
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts

Hi All,

You might read:
http://www.printsoftblink.com/tech/trouble.htm#5981 (you probably did a reinstallation already)

It points in the directions of the automation swamps.


quote:Originally posted by sal
 I am not completly sure about this, but, i have to ask. Is word installed on the server?

regards León
Old June 12th, 2004, 01:09 AM
Friend of Wrox
Join Date: Jun 2003
Location: Bangalore, KA, India.
Posts: 2,480
Thanks: 0
Thanked 1 Time in 1 Post


Take a look at this.


-Vijay G
Strive for Perfection
Old May 22nd, 2006, 02:13 AM
Authorized User
Join Date: May 2006
Location: New Delhi, Delhi, India.
Posts: 39
Thanks: 0
Thanked 0 Times in 0 Posts

Hello to ALL,

Me too have same problem where I am going to count the number of characters in my asp.net.But after a study I found that microsoft doesn't support and not suggest to this word automation on server side.
But by the way if you got any solution then plz reply

rajkumar sharma
Old September 20th, 2006, 03:58 AM
Registered User
Join Date: Sep 2006
Location: chennai, tamilnadu, India.
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts

I am having problem with word automation. my coding is working fine in local system.but it is not working in the terminal server. i am using word2003 professional but terminal server contains word2003 standard.please anyone help me.

    Set WordServer = Server.CreateObject("Test.Wordserver")
    Set objWordobject = WordServer.GetWord 'Get Word instance

     objWordobject.Visible = True

  'Open doc
          Set objDocobject=objWordobject.Documents.add(strTempla te)


 Option Explicit
    Private mwrdApp As Word.Application 'Holds Word instance

    Private Sub Class_Initialize ()
      Set mwrdApp = New Word.Application 'Create Word instance
    End Sub

    Private Sub Class_Terminate ()
      mwrdApp.Quit 'Kill Word instance
      Set mwrdApp = Nothing 'Kill reference
    End Sub

    Public Function GetWord () As Word.Application
      Set GetWord = mwrdApp 'Return Word instance
    End Function

Old September 20th, 2006, 02:56 PM
Friend of Wrox
Join Date: Nov 2004
Location: Port Orchard, WA, USA.
Posts: 1,621
Thanks: 1
Thanked 3 Times in 3 Posts

Well, what happens when you run this?

Similar Threads
Thread Thread Starter Forum Replies Last Post
calling to xlam macro from macro inside xlsb SteveB Excel VBA 0 June 30th, 2008 06:43 PM
Unable to open Excel with macro guptasourav ASP.NET 1.x and 2.0 Application Design 0 January 18th, 2007 01:52 AM
Could not open macro storage. satyajeets Classic ASP Basics 0 February 16th, 2005 09:10 PM
Document Storage hugh@kmcnetwork.com SQL Server 2000 1 December 23rd, 2003 10:36 AM

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.