Excel 2002 VBA: Chpy 19

scooble · January 29th, 2013, 06:18 AM

I purchased the book in the title above, and was working through some of the code and found that following code from chapter 19 does not work;

Code:

Sub CopyTableToWordDocument()
   'Example of Word automation using early binding
   'Copies range from workbook and appends it to existing Word document
   Dim wdApp As Word.Application

   'Copy A1:B6 in Table sheet
   ThisWorkbook.Sheets("Table").Range("A1:B6").Copy

   'Establish link to Word
   Set wdApp = New Word.Application
   With wdApp
      'Open Word document
      .Documents.Open Filename:="C:\VBS\Books\WROX Excel 2002 VBA\MyDoc.doc"
      With .Selection
         'Go to end of document and insert paragraph
         .EndKey Unit:=wdStory
         .TypeParagraph
         'Paste table
         .Paste

      End With
      .ActiveDocument.Save
      'Exit Word
      .Quit
   End With
   'Release object variable
   Set wdApp = Nothing
End Sub

I get the following runtime error;

Run-time error '-2417417851 (80010105)':
Automation Error
The server threw an exception

The debuger stops at the line with the code;

Code:

.Documents.Open Filename:="C:\VBS\Books\WROX Excel 2002 VBA\MyDoc.doc"

Does anyone know what this error means and what I can do to stop it?

scooble · January 29th, 2013, 06:33 AM

#i would just like to point out that the above code was downloaded from the Wrox website in the spreadsheet format and ran from the spreadsheet that contained it.

However, since then, I have copied and pasted the same section of code above into another independent spreadsheet and run from there.

This time, though, I get another error message that says;
Compile Error
User-defined type not defined

The debuger stops at this line of code;

Code:

Dim wdApp As Word.Application

The code looks Ok to me.
Am I missing something obvious?

Dieter(Munich) · February 14th, 2013, 11:16 AM

Hi scooble,

have you referenced the Word Object library in VBA?

In VBA go to Tools-->References. Look for and apply a check next to
Microsoft Word xx.x Object Library.

hope this helps