Clean View of document?

Topic

New Reply

I occasionally make word documents available from an Internet page. I’ve been berating a friend who uses tabs instead of tables, but when I replace all those tabs with tables, there seems to be no way to remove the table grid lines from the screen view (I know how to remove the borders). Also, if the document opens with paragraph marks showing, that looks tacky. I do not want to control the view with macros, since I don’t want people to feel they’re assuming any risk by opening the documents. Other than converting to Acrobat, is there any way to make sure a document opens with paragraph marks off (is there a non-macro-controlled setting that stays with the document) and is there a way to make the grid lines invisible – such as they (don’t) appear in print preview?

Reply | Quote

Replies

Yes, the white borders do it nicely. Thanks very much. I just tried printing it on yellow paper and I don’t see white borders. That’s nice, but I obviously don’t understand what ‘white’ means.

Reply | Quote

You may notice there is no white ink/toner in your colour printer. When the printer is told to print white it is actually being told not to put any ink on the page there and thats what it does. No printer can print white on non-white paper (other than a spot colour offset print).

Reply | Quote

Andrew, exactly what I wanted to understand. Thanks. And I’m entired pleased with the white lines.

Gary and Crudd, thanks for the suggestions. Since the readers could be people I don’t know, I wanted to avoid depending on a macro (which might cause them to not open the document or to disable the macro), and I couldn’t depend on their having a particular configuration on their computer.

Reply | Quote

Hi Wendy,

Last fall I played around with developing code to do this (never got implemented though). If I recall it correctly, what it would do was: on Document_Open store all of the user’s View preferences as DocVariables, and apply the “clean view” settings, and on Document_Close restore all the View settings back to what the user originally had. I believe the idea was that this code had to sit in the document’s attached template (which means we would have needed to atach a special ‘Web View’ template to these documents).

This never got implemented or developed further but you’re welcome to make any use of this (if it’s of any use) (it does work though!):

Private Sub Document_Open()
Dim bShowAnimText As Boolean
Dim bShowPictHolders As Boolean
Dim bShowFieldCodes As Boolean
Dim bShowBmks As Boolean
Dim bShowTabs As Boolean
Dim bShowSpaces As Boolean
Dim bShowParaMarks As Boolean
Dim bShowOptHyph As Boolean
Dim bShowHiddenTxt As Boolean
Dim bShowAll As Boolean
Dim bShowDrawings As Boolean
Dim bShowObjAnch As Boolean
Dim bShowTextBounds As Boolean
Dim nUserView As Integer


Dim objDocVar As Variable
If LCase$(Right$(ActiveDocument.FullName, 4))  ".dot" Then

    With ActiveDocument
        For Each objDocVar In .Variables
            objDocVar.Delete
        Next objDocVar
    
        With .ActiveWindow.View
            bShowAnimText = .ShowAnimation
            bShowPictHolders = .ShowPicturePlaceHolders
            bShowBmks = .ShowBookmarks
            bShowTabs = .ShowTabs
            bShowSpaces = .ShowSpaces
            bShowParaMarks = .ShowParagraphs
            bShowOptHyph = .ShowHyphens
            bShowHiddenTxt = .ShowHiddenText
            bShowAll = .ShowAll
            bShowDrawings = .ShowDrawings
            bShowObjAnch = .ShowObjectAnchors
            bShowTextBounds = .ShowTextBoundaries
        
            nUserView = .Type
            .Type = wdPageView
        End With
        
        With .Variables
            .Add "UserView", nUserView
            .Add "AnimText", bShowAnimText
            .Add "PictHolders", bShowPictHolders
            .Add "Bmks", bShowBmks
            .Add "Tabs", bShowTabs
            .Add "Spaces", bShowSpaces
            .Add "ParaMarks", bShowParaMarks
            .Add "OptHyph", bShowOptHyph
            .Add "HiddenTxt", bShowHiddenTxt
            .Add "ShowAll", bShowAll
            .Add "Drawings", bShowDrawings
            .Add "ObjAnch", bShowObjAnch
            .Add "TextBounds", bShowTextBounds
        End With
    
        With ActiveWindow.View
            .ShowAnimation = False
            .ShowPicturePlaceHolders = False
            .ShowBookmarks = False
            .ShowTabs = False
            .ShowSpaces = False
            .ShowParagraphs = False
            .ShowHyphens = False
            .ShowHiddenText = False
            .ShowAll = False
            .ShowDrawings = True
            .ShowObjectAnchors = False
            .ShowTextBoundaries = False
            .ShowHighlight = True
        End With
        .Saved = True
    End With
End If

End Sub
'==========================
Private Sub Document_Close()
Dim objDocVar As Variable
    
If LCase$(Right$(ActiveDocument.FullName, 4))  ".dot" Then
    With ActiveDocument
        With ActiveWindow.View
            .Type = ActiveDocument.Variables("UserView")
            .ShowAnimation = ActiveDocument.Variables("AnimText")
            .ShowPicturePlaceHolders = ActiveDocument.Variables("PictHolders")
            .ShowBookmarks = ActiveDocument.Variables("Bmks")
            .ShowTabs = ActiveDocument.Variables("Tabs")
            .ShowSpaces = ActiveDocument.Variables("Spaces")
            .ShowParagraphs = ActiveDocument.Variables("ParaMarks")
            .ShowHyphens = ActiveDocument.Variables("OptHyph")
            .ShowHiddenText = ActiveDocument.Variables("HiddenTxt")
            .ShowAll = ActiveDocument.Variables("ShowAll")
            .ShowDrawings = ActiveDocument.Variables("Drawings")
            .ShowObjectAnchors = ActiveDocument.Variables("ObjAnch")
            .ShowTextBoundaries = ActiveDocument.Variables("TextBounds")
        End With

        For Each objDocVar In .Variables
            objDocVar.Delete
        Next objDocVar
        .Saved = True
    End With
End If
End Sub

Reply | Quote