Using Word 2000

31 Mar 2005 8:41 AM

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

31 Mar 2005 8:56 AM

Crouchie1998

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

31 Mar 2005 9:08 AM

Helen Trim

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

Show quoteHide quote

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

31 Mar 2005 10:10 AM

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

31 Mar 2005 11:54 AM

Marcel

Show quote Hide quote

"Helen Trim" <helen.t***@REMOVEporthosp.nhs.uk> schreef in bericht
news:0fd001c535cd$6c4360d0$a601280a@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 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