Results 1 to 7 of 7
  1. #1
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    Vancouver, BC
    Posts
    139
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Clean View of document?

    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?

  2. #2
    BAM
    Guest

    Re: Clean View of document?

    Hi Wendy,

    The screen settings, paragraph marks and table gridlines are user-specific rather than document specific.

    So if they *do* see the paragraph marks then they should know what they are since they are the ones who turned them on.

    The table gridlines are another story. If they haven't worked with tables before then they may not know what they are. The best method for this is to not remove the borders, but to make them white. :-)
    ~~~~~~~~~~~~
    Cheers!

  3. #3
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    Vancouver, BC
    Posts
    139
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Clean View of document?

    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.

  4. #4
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: Clean View of document?

    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).
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  5. #5
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 29 Times in 27 Posts

    Re: Clean View of document?

    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!):

    <pre>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
    </pre>


  6. #6
    crudd
    Guest

    Re: Clean View of document?

    There is a builtin word command called TableGridlines, drag this sucka onto your toolbar, and get the user to do the same. It hides/shows the grids/...

  7. #7
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    Vancouver, BC
    Posts
    139
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Clean View of document?

    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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •