updated word query

[Vicky]

Hi,

Further to a reply I recieved earlier I tested what was
written and produced the following

Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button2.Click

Dim appWord As New Word.Application
appWord.Visible = True 'Makes Word
visible
appWord.Documents.Add() 'Creates
New Blank Doc

Dim str As String = "Text"
Dim rng As Word.Range = appWord.Range(Start:=0, End:=0)

rng.Text = str
rng.Select=()
End Sub

the script itself will open word, however it wont paste and
throws out the following:

An unhandled exception of type
'System.MissingMemberException' occurred in
microsoft.visualbasic.dll

Additional information: Public member 'Range' on type
'ApplicationClass' not found.

I was wondering what it was likely I was doing wrong

Many thanks for any help

Vicky
(Learning fast, but not fast enough)

[Robin Tucker]

You need to specify the range on the current document, not the application.
Like this:

Dim theDocument As Word.Document

theDocument = appWord.Documents.Add()

Dim str As String = "Text"
Dim rng As Word.Range = theDocument .Range(Start:=0, End:=0)

rng.Text = str
rng.Select=()

"Vicky" <an*******@discussions.microsoft.com> wrote in message
news:23*****************************@phx.gbl...

Hi,

Further to a reply I recieved earlier I tested what was
written and produced the following

Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button2.Click

Dim appWord As New Word.Application
appWord.Visible = True 'Makes Word
visible
appWord.Documents.Add() 'Creates
New Blank Doc

Dim str As String = "Text"
Dim rng As Word.Range = appWord.Range(Start:=0, End:=0)

rng.Text = str
rng.Select=()
End Sub

the script itself will open word, however it wont paste and
throws out the following:

An unhandled exception of type
'System.MissingMemberException' occurred in
microsoft.visualbasic.dll

Additional information: Public member 'Range' on type
'ApplicationClass' not found.

I was wondering what it was likely I was doing wrong

Many thanks for any help

Vicky
(Learning fast, but not fast enough)

[Vicky]

Hi robin,

thankyou

vicky

-----Original Message-----
You need to specify the range on the current document, not the application.Like this:

Dim theDocument As Word.Document

theDocument = appWord.Documents.Add()

Dim str As String = "Text"
Dim rng As Word.Range = theDocument .Range(Start:=0, End:=0)

rng.Text = str
rng.Select=()

"Vicky" <an*******@discussions.microsoft.com> wrote in message
news:23*****************************@phx.gbl...

Hi,

Further to a reply I recieved earlier I tested what was
written and produced the following

Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button2.Click

Dim appWord As New Word.Application
appWord.Visible = True 'Makes Word
visible
appWord.Documents.Add() 'Creates
New Blank Doc

Dim str As String = "Text"
Dim rng As Word.Range = appWord.Range(Start:=0, End:=0)
rng.Text = str
rng.Select=()
End Sub

the script itself will open word, however it wont paste and
throws out the following:

An unhandled exception of type
'System.MissingMemberException' occurred in
microsoft.visualbasic.dll

Additional information: Public member 'Range' on type
'ApplicationClass' not found.

I was wondering what it was likely I was doing wrong

Many thanks for any help

Vicky
(Learning fast, but not fast enough)

.