Using Word 2000

[Helen Trim]

I have an application that allows users to edit documents
using Word 2000. Sometimes it opens Word but the toolbars
are missing. Users find this very frustrating. I can't
track it down as it is intermittent.

Has anyone else had this problem? Any ideas?

I create the class with:

Public Class WordCreateLette rClass
Public WithEvents WordApp As Word.Applicatio n

Public Sub New()

WordApp = New Word.Applicatio n
Me.WordApp.Wind owState =
Word.WdWindowSt ate.wdWindowSta teMaximize

End Sub
End Class

and instantiate it with:

Letter = New WordCreateLette rClass
Letter.WordApp. Documents.Open( FileName:=gstrT emplate,
ReadOnly:=True, AddToRecentFile s:=False)

Letter.WordApp. ActiveWindow.Vi ew.Type = 3 ' PrintPreview
Letter.WordApp. Visible = True
Letter.WordApp. Application.Act ivate()
Thanks in advance
Helen

[Crouchie1998]

Didn't you ask this same question within the past few days?

[Helen Trim]

Yes, but the only answer I got was another question. Not
very helpful!

-----Original Message-----
Didn't you ask this same question within the past few days?

.

[Cor Ligthert]

Helen,

Yes, but the only answer I got was another question. Not
very helpful!

Probably because this is not about the language vb, however more about the
classes from Word that it uses. About that you probably can get more
information in an office developers newsgroup like

microsoft.publi c.office.develo per.x

there are a lot.

Cor

[Marcel]

"Helen Trim" <he********@REM OVEporthosp.nhs .uk> schreef in bericht
news:0f******** *************** *****@phx.gbl.. .

I have an application that allows users to edit documents
using Word 2000. Sometimes it opens Word but the toolbars
are missing. Users find this very frustrating. I can't
track it down as it is intermittent.

Has anyone else had this problem? Any ideas?

I create the class with:

Public Class WordCreateLette rClass
Public WithEvents WordApp As Word.Applicatio n

Public Sub New()

WordApp = New Word.Applicatio n
Me.WordApp.Wind owState =
Word.WdWindowSt ate.wdWindowSta teMaximize

End Sub
End Class

and instantiate it with:

Letter = New WordCreateLette rClass
Letter.WordApp. Documents.Open( FileName:=gstrT emplate,
ReadOnly:=True, AddToRecentFile s:=False)

Letter.WordApp. ActiveWindow.Vi ew.Type = 3 ' PrintPreview
Letter.WordApp. Visible = True
Letter.WordApp. Application.Act ivate()
Letter.WordApp. Application.Scr eenUpdating


Thanks in advance
Helen

Try a screenupdate.

Marcel