I have a macro which I'd like to extract data from a sheet, copy the
resultant array to a bookmark in an open Word template and it falls over
(before it gets started) with 'Compile error: user-defined type not defined'.

Here's the relevant part:
Sheets("2.1. ").Select
Application.Goto Reference:="Totals"
Application.Run "'ET Utilities.xls'!xtractFromStd"
Selection.CurrentRegion.Select
Selection.Cut
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("I:\I:\ET\Report Template.dot")
With wrdDoc
Dim BmkNm As String
BmkNm = "S1"
End With

The crunch seems to be in wrdApp As Word.Application.

I'm sure it's very basic to you guys but any clues gratefully received by a
raw beginner.
Thanks

Hi Jimbob,

apart form other issues,
which will be addressed in the next question, IMHO,

Dim wrdApp As Word.Application

alone is not sufficient.

There has to be 'getobject' or 'createobject' in addition,
like for an already running instance of Word:

Dim wrdApp As Word.Application
set wrdApp = getobject(, "Word.Application")

With wrdDoc
Dim BmkNm As String
BmkNm = "S1"
End With

Doesn't affect Word at all.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Try Tools - References

Select Microsoft Word 11.0 Object Librarty

(At least that's what I have on my machine)

HTH,
Barb Reinhardt

"Jimbob" wrote:

I have a macro which I'd like to extract data from a sheet, copy the
resultant array to a bookmark in an open Word template and it falls over
(before it gets started) with 'Compile error: user-defined type not defined'.

Here's the relevant part:
Sheets("2.1. ").Select
Application.Goto Reference:="Totals"
Application.Run "'ET Utilities.xls'!xtractFromStd"
Selection.CurrentRegion.Select
Selection.Cut
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("I:\I:\ET\Report Template.dot")
With wrdDoc
Dim BmkNm As String
BmkNm = "S1"
End With

The crunch seems to be in wrdApp As Word.Application.

I'm sure it's very basic to you guys but any clues gratefully received by a
raw beginner.
Thanks

Thanks Barb. I had this selected as I saw other postings with this
recommendation so I think the answer lies elsewhere but thanks for your
response.
Jimbob

"Barb Reinhardt" wrote:

Try Tools - References

Select Microsoft Word 11.0 Object Librarty

(At least that's what I have on my machine)

HTH,
Barb Reinhardt

"Jimbob" wrote:

I have a macro which I'd like to extract data from a sheet, copy the
resultant array to a bookmark in an open Word template and it falls over
(before it gets started) with 'Compile error: user-defined type not defined'.

Here's the relevant part:
Sheets("2.1. ").Select
Application.Goto Reference:="Totals"
Application.Run "'ET Utilities.xls'!xtractFromStd"
Selection.CurrentRegion.Select
Selection.Cut
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("I:\I:\ET\Report Template.dot")
With wrdDoc
Dim BmkNm As String
BmkNm = "S1"
End With

The crunch seems to be in wrdApp As Word.Application.

I'm sure it's very basic to you guys but any clues gratefully received by a
raw beginner.
Thanks

Helmut Grüss from Lincolnshire.
Thanks for your response I have been away since you posted but I'll try this
tomorrow.
Thanks again
Jimbob

"Helmut Weber" wrote:

Hi Jimbob,

apart form other issues,
which will be addressed in the next question, IMHO,

Dim wrdApp As Word.Application

alone is not sufficient.

There has to be 'getobject' or 'createobject' in addition,
like for an already running instance of Word:

Dim wrdApp As Word.Application
set wrdApp = getobject(, "Word.Application")

With wrdDoc
Dim BmkNm As String
BmkNm = "S1"
End With

Doesn't affect Word at all.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Grüss from Lincolnshire again.
Helmut, that works a treat and my data is inserted. Unfortunately now it
falls over later, as I want to do some action on the matrix inserted but the
cursor is still marking the position in the Word document where it was
opened. I've tried GoTo Bookmark again but without success.
Any clues?

"Helmut Weber" wrote:

Hi Jimbob,

apart form other issues,
which will be addressed in the next question, IMHO,

Dim wrdApp As Word.Application

alone is not sufficient.

There has to be 'getobject' or 'createobject' in addition,
like for an already running instance of Word:

Dim wrdApp As Word.Application
set wrdApp = getobject(, "Word.Application")

With wrdDoc
Dim BmkNm As String
BmkNm = "S1"
End With

Doesn't affect Word at all.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"