Always open in normal view (Word 2000 SR2; NT4)

Topic

New Reply

One of my attorneys would like to force all documents to always open in normal view. I’m assuming a macro is needed but I have no idea of how to write this one. Any help is appreciated.

As always, thanks.

Reply | Quote

Replies

I’ll assume that you mean the attorney wants to see Normal view whenever he opens a document, and not that he wants to force other people to open his documents in Normal view. (I never underestimate the arrogance of an attorney , but the latter would be a really bad idea.)

Put this macro in the attorney’s Normal.dot, or in a template located in his Word Startup folder:

Public Sub FileOpen()
   If Dialogs(wdDialogFileOpen).Show = -1 Then
      ActiveDocument.ActiveWindow.View.Type = wdNormalView
   End If
End Sub

Reply | Quote

That’s a great idea, ‘cos I prefer to use documents in page layout view but the users I produce documents for use normal view.

Would you mind telling me if there’s an equivalent for when you save/close the docs to return them to normal view? I did have a look but I couldn’t quite get it to work …

Reply | Quote

That’s great. Works like a charm. Thanks so much.

Reply | Quote

Jay, sorry to bug you, but would you mind letting me know if there is a way to do the reverse on closing a document? As I mentioned in my previous post, I have to produce templates for my users in normal view, but prefer to use page layout view myself, so I would love to be able to set my documents to open in page layout view, then save in normal view before closing.

I’ve tried to work it out but can’t get it to work … I really would appreciate it your assistance!

Reply | Quote

Use an AutoOpen macro to set the view.

Reply | Quote

Howard, thanks for that – but do you know of the equivalent one to set it back again when I close the document?

Any help would be appreciated.

Reply | Quote

IN AutoOpen, use a Public variable to save the current view.

Use that variable to reset the view whenever you want to,

Reply | Quote

I think this works in Word 97 and 2000, and for all the ways of closing a document. If you can find a situation where it doesn’t work, let me know.

Sub AutoClose()
   With ActiveDocument
      .ActiveWindow.View.Type = wdNormalView
      .Saved = False
      .Save
   End With
End Sub

Reply | Quote

Thanks, Jay (and BAM) – a combination of your answers has enabled me to sort it. It got a bit more complicated because there are occasions when I want to close the document WITHOUT saving any changes (because I need the edited date to stay as was) but I got round that by adding a yesno msgbox for when the document is currently unsaved …

Many thanks to all!

Reply | Quote