T
turner
I have written a "Help' file for my application. I have gotten everything to
work, but I would like it to do one more thing. I have set "Bookmarks" in my
Word Document so I can display the correct page. Which is working. My
problem is when I open Word in "PrintPreview" it opens with whatever NUMBER
of pages that were last viewed in PrintPreview. I want it to ALWAYS open
with ONE Page.
Any Help Would be Appreciated!!
I am using Office 97. Not my choice it's what the users have.
Dean
Public Function OpenHelp(stBookMark As String)
On Error GoTo err_OpenHelp
Dim objWord As Word.Document
Set objWord = GetObject("c:\Tc_Appl\UserHelp.doc", "Word.document")
objWord.Bookmarks(stBookMark).Select
objWord.Application.Visible = True
objWord.Application.WindowState = wdWindowStateMaximize
objWord.Application.ActiveDocument.PrintPreview
exit_OpenHelp:
Exit Function
err_OpenHelp:
Select Case Err.number
Case 287
MsgBox "A Copy of the 'Help' Document is already Open - Please,
Close It an Re-Submit"
Case Else
MsgBox Err.number & "-" & Err.Description
End Select
Resume exit_OpenHelp
End Function
work, but I would like it to do one more thing. I have set "Bookmarks" in my
Word Document so I can display the correct page. Which is working. My
problem is when I open Word in "PrintPreview" it opens with whatever NUMBER
of pages that were last viewed in PrintPreview. I want it to ALWAYS open
with ONE Page.
Any Help Would be Appreciated!!
I am using Office 97. Not my choice it's what the users have.
Dean
Public Function OpenHelp(stBookMark As String)
On Error GoTo err_OpenHelp
Dim objWord As Word.Document
Set objWord = GetObject("c:\Tc_Appl\UserHelp.doc", "Word.document")
objWord.Bookmarks(stBookMark).Select
objWord.Application.Visible = True
objWord.Application.WindowState = wdWindowStateMaximize
objWord.Application.ActiveDocument.PrintPreview
exit_OpenHelp:
Exit Function
err_OpenHelp:
Select Case Err.number
Case 287
MsgBox "A Copy of the 'Help' Document is already Open - Please,
Close It an Re-Submit"
Case Else
MsgBox Err.number & "-" & Err.Description
End Select
Resume exit_OpenHelp
End Function