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 WordCreateLetterClass
Public WithEvents WordApp As Word.Application

Public Sub New()

WordApp = New Word.Application
Me.WordApp.WindowState =
Word.WdWindowState.wdWindowStateMaximize

End Sub
End Class

and instantiate it with:

Letter = New WordCreateLetterClass
Letter.WordApp.Documents.Open(FileName:=gstrTemplate,
ReadOnly:=True, AddToRecentFiles:=False)

Letter.WordApp.ActiveWindow.View.Type = 3 ' PrintPreview
Letter.WordApp.Visible = True
Letter.WordApp.Application.Activate()


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!

 

[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.public.office.developer.x

there are a lot.

Cor

 

[Marcel]

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 WordCreateLetterClass
Public WithEvents WordApp As Word.Application

Public Sub New()

WordApp = New Word.Application
Me.WordApp.WindowState =
Word.WdWindowState.wdWindowStateMaximize

End Sub
End Class

and instantiate it with:

Letter = New WordCreateLetterClass
Letter.WordApp.Documents.Open(FileName:=gstrTemplate,
ReadOnly:=True, AddToRecentFiles:=False)

Letter.WordApp.ActiveWindow.View.Type = 3 ' PrintPreview
Letter.WordApp.Visible = True
Letter.WordApp.Application.Activate()
Letter.WordApp.Application.ScreenUpdating



Thanks in advance
Helen

Try a screenupdate.

Marcel