Solved

Documents.Add Does Not Return Document Object

Posted on 2009-05-12
1
744 Views
Last Modified: 2012-05-06
We have a macro that creates a new document from a template and then "does stuff" with the resulting document. This used to work fine.

Today, without any apparent cause, the code throws an error. Stepping through the code, I can see that everything works fine, up until the point where I accept the returned object from Documents.Add into a Document variable and try to use that variable (see code). The document is created perfectly, the frmLetter form displays and is processed properly, and all the code in frmLetter runs without error. The end result is an open Letter document, processed like we expect Letter.dot to do.

It's only after the code returns from the call to Documents.Add that the weirdness starts. Apparently, the Documents.Add call does not return an object here.

Any ideas on what might cause this weird behaviour?
'Macro in standard module:

Public Sub CreateLetter()

   Dim doc As Word.Document

   Set doc = Application.Documents.Add(strWorkgroup & "Letter.dot")

   ' "Do stuff" with the resulting document:

   Call MsgBox(doc.Name) '--> RTE: Object variable or with block variable not Set

                         '    and stepping through the code, I can see that

                         '    the doc variable is indeed Nothing

End Sub
 

'Event in Letter.dot:

Private Sub Document_New()

   Dim f As frmLetter

   Set f = New frmLetter

   With f

      Set .CurrentDocument = ActiveDocument

      .Show

      'After cmdOK_Click, frmLetter processes its CurrentDocument correctly

   End With

   Set f = Nothing

End Sub

Open in new window

0
Comment
Question by:FlorisMK
1 Comment
 
LVL 2

Accepted Solution

by:
FlorisMK earned 0 total points
ID: 24364159
Solved:

One of the things that cmdOK_Click does is open, read, and close our central repository template (which contains our house style Styles and AutoText entries). Apparently, opening another document from within the Documents.Add runtime scope breaks the reference to the newly created document.

Working with ActiveDocument instead of using the return object from Add solves the issue. I don't like the solution, because with taskbar buttons and fidgety users you can't always rely on ActiveDocument, but it's the best I can do in this situation.

Edited the code to read:


'Macro in standard module:

Public Sub CreateLetter()

   Dim doc As Word.Document

   Call Application.Documents.Add(strWorkgroup & "Letter.dot")

   ' "Do stuff" with the resulting document:

   Set doc = ActiveDocument

   Call MsgBox(doc.Name) '--> NO RTE, Doc is set

End Sub

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

I'm writing to share my clumsy experience in using this elegant tool so you can avoid every stupid mistake I made. (I leave it to the authorities to decide if this deserves a place in the Knowledge archives.)  Now that I am on the other side of my l…
Introduction This tutorial provides instructions on how to properly format your Word document using the inbuilt tools provided. The benefits of using these tools means your documents are more accessible and easily portable to other applications an…
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
Learn how to make your own table of contents in Microsoft Word using paragraph styles and the automatic table of contents tool. We'll be using the paragraph styles in Word’s Home toolbar to help you create a table of contents. Type out your initial …

932 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

8 Experts available now in Live!

Get 1:1 Help Now