Dim app as word application ошибка

Hi,

I’m working with Office 2007 and 2010.

I have a Word template which performs some checking on the document (based upon it) when it is opened. In different points it uses the ActiveDcument propiety.

When I open the document normally, everything OK

When I open the document from Access using the following code, it is also OK:

   Dim objWordApp As Word.Application
   Dim objWordDoc As Word.Document
   
   Set objWordApp = CreateObject("Word.Application")
   With objWordApp
      .Visible = false ' or True
      .Documents.Open("MYDoc.docx")
   End With

But when I double click the bound object frame (OLE) in an Access frame, Word will generate an error when it encounters the ActiveDocument reference.

Run-time error ‘4248’:
This command is not available because no document is open.

Could you explian me why? And suggest some work around?

Lauro

P.S.:

I noticed that Application.UserControl is TRUE (in the two first cases; and False in the last) [strange!  I would have tought that in the second one would it be false…]

Модератор:Naeel Maqsudov

Set wrd_app = New Word.Application
Set wrd_doc = wrd_app.Open(strFullPathToDocument)

1. 01-21-2005, 08:06 AM

   
   

   #1

   john.9.williams@bt.com

   
   Guest
   

   Dim Appword As word.application
   

   Hi

   I am using this daclaration in a program

   «Dim Appword As word.application»

   when i run my program i get this error assigned to this

   «Compile error userdefined type not defined»

   I know i have to do something but not sure what, any help greatly
   received

   Johny

   ---

2. 01-21-2005, 08:06 AM

   
   

   #2

   RE: Dim Appword As word.application
   

   Use:

   Set AppWord=CreateObject(«Word.Application»)

   OR:

   Add the Word object library reference to your project

   «john.9.williams@bt.com» wrote:

   
   > Hi
   >
   > I am using this daclaration in a program
   >
   > «Dim Appword As word.application»
   >
   > when i run my program i get this error assigned to this
   >
   > «Compile error userdefined type not defined»
   >
   > I know i have to do something but not sure what, any help greatly
   > received
   >
   > Johny
   >
   >

   ---

3. 01-21-2005, 09:06 AM

   
   

   #3

   john.9.williams@bt.com

   
   Guest
   

   Re: Dim Appword As word.application
   

   Where would i use the Set appWord = CreateObject(«Word.Application»)
   syntax

   AA2e72E wrote:

   
   > Use:
   >
   > Set AppWord=CreateObject(«Word.Application»)
   >
   > OR:
   >
   > Add the Word object library reference to your project
   >
   > «john.9.williams@bt.com» wrote:
   >
   > > Hi
   > >
   > > I am using this daclaration in a program
   > >
   > > «Dim Appword As word.application»
   > >
   > > when i run my program i get this error assigned to this
   > >
   > > «Compile error userdefined type not defined»
   > >
   > > I know i have to do something but not sure what, any help greatly
   > > received
   > >
   > > Johny
   > >
   > >

   ---

4. 01-21-2005, 09:06 AM

   
   

   #4

   Re: Dim Appword As word.application
   

   Have you created a reference to the Word type library? Go to
   Tools>References, scroll down to Microsoft Word, and check it.

   —
   HTH

   Bob Phillips

   <john.9.williams@bt.com> wrote in message
   news:1106306463.949876.325750@c13g2000cwb.googlegroups.com…

   
   > Hi
   >
   > I am using this daclaration in a program
   >
   > «Dim Appword As word.application»
   >
   > when i run my program i get this error assigned to this
   >
   > «Compile error userdefined type not defined»
   >
   > I know i have to do something but not sure what, any help greatly
   > received
   >
   > Johny
   >

   ---

5. 01-21-2005, 09:06 AM

   
   

   #5

   Re: Dim Appword As word.application
   

   «AA2e72E» <AA2e72E@discussions.microsoft.com> wrote in message
   news:BA99EFE0-24A1-4168-82BF-364B1BDAA6BA@microsoft.com…
   > Use:
   >
   > Set AppWord=CreateObject(«Word.Application»)
   >

   You would also need

   Dim AppWord As Object

   ---

6. 01-21-2005, 10:06 AM

   
   

   #6

   Re: Dim Appword As word.application
   

   See
   http://www.erlandsendata.no/english/…baoleolebasics
   http://www.erlandsendata.no/english/…olecontrolword

   HTH. Best wishes Harald

   <john.9.williams@bt.com> skrev i melding
   news:1106309477.009197.74890@z14g2000cwz.googlegroups.com…

   
   > Where would i use the Set appWord = CreateObject(«Word.Application»)
   > syntax

   ---

7. 01-21-2005, 10:06 AM

   
   

   #7

   Re: Dim Appword As word.application
   

   You would do that instead of

   Set AppWord = New Word.Application

   but note my other post.

   —

   HTH

   RP
   (remove nothere from the email address if mailing direct)

   <john.9.williams@bt.com> wrote in message
   news:1106309477.009197.74890@z14g2000cwz.googlegroups.com…

   
   > Where would i use the Set appWord = CreateObject(«Word.Application»)
   > syntax
   >
   >
   > AA2e72E wrote:
   > > Use:
   > >
   > > Set AppWord=CreateObject(«Word.Application»)
   > >
   > > OR:
   > >
   > > Add the Word object library reference to your project
   > >
   > > «john.9.williams@bt.com» wrote:
   > >
   > > > Hi
   > > >
   > > > I am using this daclaration in a program
   > > >
   > > > «Dim Appword As word.application»
   > > >
   > > > when i run my program i get this error assigned to this
   > > >
   > > > «Compile error userdefined type not defined»
   > > >
   > > > I know i have to do something but not sure what, any help greatly
   > > > received
   > > >
   > > > Johny
   > > >
   > > >
   >

   ---

8. 01-21-2005, 11:06 AM

   
   

   #8

   Re: Dim Appword As word.application
   

   Why not spend a few minutes reading the «instructions» and save yourself
   time spent struggling later:

   As I previously posted:

   Microsoft Office 2000 Automation Help File Available (Q260410)
   http://support.microsoft.com/default…b;EN-US;260410

   Microsoft Office XP Automation Help File Available (Q302460)
   http://support.microsoft.com/default…b;EN-US;302460

   —
   Regards,
   Tom Ogilvy

   <john.9.williams@bt.com> wrote in message
   news:1106309477.009197.74890@z14g2000cwz.googlegroups.com…

   
   > Where would i use the Set appWord = CreateObject(«Word.Application»)
   > syntax
   >
   >
   > AA2e72E wrote:
   > > Use:
   > >
   > > Set AppWord=CreateObject(«Word.Application»)
   > >
   > > OR:
   > >
   > > Add the Word object library reference to your project
   > >
   > > «john.9.williams@bt.com» wrote:
   > >
   > > > Hi
   > > >
   > > > I am using this daclaration in a program
   > > >
   > > > «Dim Appword As word.application»
   > > >
   > > > when i run my program i get this error assigned to this
   > > >
   > > > «Compile error userdefined type not defined»
   > > >
   > > > I know i have to do something but not sure what, any help greatly
   > > > received
   > > >
   > > > Johny
   > > >
   > > >
   >

   ---

9. 01-21-2005, 11:06 AM

   
   

   #9

   Re: Dim Appword As word.application
   

   You need to set a reference to the Word object library. In VBA,
   go to the Tools menu, choose References, and scroll down to
   Microsoft Word. Check that box.

   —
   Cordially,
   Chip Pearson
   Microsoft MVP — Excel
   Pearson Software Consulting, LLC
   www.cpearson.com

   <john.9.williams@bt.com> wrote in message
   news:1106306463.949876.325750@c13g2000cwb.googlegroups.com…

   
   > Hi
   >
   > I am using this daclaration in a program
   >
   > «Dim Appword As word.application»
   >
   > when i run my program i get this error assigned to this
   >
   > «Compile error userdefined type not defined»
   >
   > I know i have to do something but not sure what, any help
   > greatly
   > received
   >
   > Johny
   >

   ---