I am trying to insert some excel data into a word doc & have never done
this before (and still a newbie at VBA). In order to get started I
have been playing at getting the basics right.

Have set up bookmarks in the Word doc ("test") called "customer" and
"solution". I have set up a commandbutton on the worksheet to open the
word document. When the commandbutton is activated, apart from opening
the word document, I want the document to automatically insert text
into the word doc.

Have used the following code:

Sub Commandbutton6_Click()

Dim wdApp As Word.Application
Dim wdDoc As Document
Dim wdRng As Word.Range

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("C:\test")
wdApp.Visible = True

Dim myArray()
Dim wdBkmk As String

myArray = Array("customer", "solution")

SetwdRng = wdApp.ActiveDocument.Bookmarks(myArray(0)).Range
wdRng.InsertBefore ("test")

SetwdRng = wdApp.ActiveDocument.Bookmarks(myArray(1)).Range
wdRng.InsertBefore ("test again")


SetwdApp = Nothing
SetwdRng = Nothing

End Sub

The document opens ok, but keep getting an error:

"Runtime 91 error - Object variable or With block variable no set"

Tried many things without success -any help on this to get me started
with the basics would be most appreciated.




Cheers

Peter


--
peter.thompson
------------------------------------------------------------------------
peter.thompson's Profile: http://www.excelforum.com/member.php...o&userid=29686
View this thread: http://www.excelforum.com/showthread...hreadid=499647

Hi

Try
Set wdRng
instead of SetwdRng.

HTH. Best wishes Harald

"peter.thompson"
<peter.thompson.21eqaq_1136877015.9814@excelforu m-nospam.com skrev i
melding news:peter.thompson.21eqaq_1136877015.9814@excelfo rum-nospam.com...

I am trying to insert some excel data into a word doc & have never done
this before (and still a newbie at VBA). In order to get started I
have been playing at getting the basics right.

Have set up bookmarks in the Word doc ("test") called "customer" and
"solution". I have set up a commandbutton on the worksheet to open the
word document. When the commandbutton is activated, apart from opening
the word document, I want the document to automatically insert text
into the word doc.

Have used the following code:

Sub Commandbutton6_Click()

Dim wdApp As Word.Application
Dim wdDoc As Document
Dim wdRng As Word.Range

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("C:\test")
wdApp.Visible = True

Dim myArray()
Dim wdBkmk As String

myArray = Array("customer", "solution")

SetwdRng = wdApp.ActiveDocument.Bookmarks(myArray(0)).Range
wdRng.InsertBefore ("test")

SetwdRng = wdApp.ActiveDocument.Bookmarks(myArray(1)).Range
wdRng.InsertBefore ("test again")


SetwdApp = Nothing
SetwdRng = Nothing

End Sub

The document opens ok, but keep getting an error:

"Runtime 91 error - Object variable or With block variable no set"

Tried many things without success -any help on this to get me started
with the basics would be most appreciated.




Cheers

Peter


--
peter.thompson
------------------------------------------------------------------------
peter.thompson's Profile:
http://www.excelforum.com/member.php...o&userid=29686
View this thread: http://www.excelforum.com/showthread...hreadid=499647

Incidentally, this kind of typo will be caught by the compiler if
you use Option Explicit. Set "Require Variable Declaration" in
Tools/Options from the VBA window to ensure it's there
by default . (And while you're in there, you might want to turn
off the annoying "Auto Syntax Check"..)

Harald Staff wrote:
Hi

Try
Set wdRng
instead of SetwdRng.

HTH. Best wishes Harald

"peter.thompson"
<peter.thompson.21eqaq_1136877015.9814@excelforu m-nospam.com skrev i
melding news:peter.thompson.21eqaq_1136877015.9814@excelfo rum-nospam.com...

I am trying to insert some excel data into a word doc & have never done
this before (and still a newbie at VBA). In order to get started I
have been playing at getting the basics right.

Have set up bookmarks in the Word doc ("test") called "customer" and
"solution". I have set up a commandbutton on the worksheet to open the
word document. When the commandbutton is activated, apart from opening
the word document, I want the document to automatically insert text
into the word doc.

Have used the following code:

Sub Commandbutton6_Click()

Dim wdApp As Word.Application
Dim wdDoc As Document
Dim wdRng As Word.Range

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("C:\test")
wdApp.Visible = True

Dim myArray()
Dim wdBkmk As String

myArray = Array("customer", "solution")

SetwdRng = wdApp.ActiveDocument.Bookmarks(myArray(0)).Range
wdRng.InsertBefore ("test")

SetwdRng = wdApp.ActiveDocument.Bookmarks(myArray(1)).Range
wdRng.InsertBefore ("test again")


SetwdApp = Nothing
SetwdRng = Nothing

End Sub

The document opens ok, but keep getting an error:

"Runtime 91 error - Object variable or With block variable no set"

Tried many things without success -any help on this to get me started
with the basics would be most appreciated.




Cheers

Peter


--
peter.thompson
------------------------------------------------------------------------
peter.thompson's Profile:
http://www.excelforum.com/member.php...o&userid=29686
View this thread: http://www.excelforum.com/showthread...hreadid=499647

Thanks for the help and tips guys -now works fine!

Cheers

Peter


--
peter.thompson
------------------------------------------------------------------------
peter.thompson's Profile: http://www.excelforum.com/member.php...o&userid=29686
View this thread: http://www.excelforum.com/showthread...hreadid=499647