L
Lisa
I've developed some Word forms using macros to check entries, do
calculations, etc.
Included in the forms are some buttons and text that need to display on the
screen, but not print.
After adding the code (see below) to display hidden text, but not print it,
opening the (protected) documents SOMETIMES makes the vertical and horizontal
scroll bars disappear -- and SOMETIMES makes the status bar disappear. It
only happens about 1 in 15 or 20 times, and I haven't figured out a pattern
to when it does and doesn't happen.
My current "fix" is simply to add code to set the status bar and scroll bars
to visible, which seems to override whatever is happening to make them
disappear. However, my preference would be to address the root issue.
Any ideas as to what is going on and what I can do about it?
Many thanks in advance!
CODE THAT SEEMED TO START THE UNPREDICTABLE RESULTS
Private Sub Document_Open()
ActiveWindow.View.ShowHiddenText = True
Options.PrintHiddenText = False
End Sub
CODE FOR THE GIMPY "FIX"
Private Sub Document_Open()
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.View.ShowHiddenText = True
End With
Options.PrintHiddenText = False
End Sub
calculations, etc.
Included in the forms are some buttons and text that need to display on the
screen, but not print.
After adding the code (see below) to display hidden text, but not print it,
opening the (protected) documents SOMETIMES makes the vertical and horizontal
scroll bars disappear -- and SOMETIMES makes the status bar disappear. It
only happens about 1 in 15 or 20 times, and I haven't figured out a pattern
to when it does and doesn't happen.
My current "fix" is simply to add code to set the status bar and scroll bars
to visible, which seems to override whatever is happening to make them
disappear. However, my preference would be to address the root issue.
Any ideas as to what is going on and what I can do about it?
Many thanks in advance!
CODE THAT SEEMED TO START THE UNPREDICTABLE RESULTS
Private Sub Document_Open()
ActiveWindow.View.ShowHiddenText = True
Options.PrintHiddenText = False
End Sub
CODE FOR THE GIMPY "FIX"
Private Sub Document_Open()
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.View.ShowHiddenText = True
End With
Options.PrintHiddenText = False
End Sub