Results 1 to 5 of 5

Thread: Word 2000

  1. #1
    cvking
    Guest

    Word 2000

    I am putting together a manual for a product we market. In putting the manual together I have come across the following problems:

    1. Some pages holding tables are in landscape mode so when the manual is printed the page number appears on the right side of the page. How can I get the page number to print at the bottom of the page?

    2. The manual has a table of contents. How do I have the page number reference automatically update as I add and delete pages from the manual?

    I would like to thank anyone who can assist me in these (no doubt simple) problems.
    Regards

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

    Re: Word 2000

    Hello,

    Landscape page numbers: Clicking <A target="_blank" HREF=http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Cat=&Board=wrd&Number=29235&page=& view=&sb=&vc=1#Post29235>here</A> will take you to a thread with a number of different suggestions for how to do this.

    Update TOC: There is no way to have the table of contents automatically update, as far as I know - you need to have the selection in the TOC and then F9 to update fields, or else from any location in the document, Select All and then F9. You can also set fields to update when you print, via Tools>Options>Print.

    It might be possible to write a group of macros that would cause the table of contents to automatically update whenever the page count of the document changed due to adding or deleting content.

    Hope this helps,
    Gary

  3. #3
    5 Star Lounger
    Join Date
    Dec 2000
    Location
    Tallahassee, Florida, USA
    Posts
    901
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Word 2000

    Just a caveat to add to Gary's TOC portion. When you update your table (or if you set your options for update on print), be certain to have Show/Hide (the button on your standard toolbar with a
    Karen

  4. #4
    Silver Lounger Charles Kenyon's Avatar
    Join Date
    Jan 2001
    Location
    Sun Prairie, Wisconsin, Wisconsin, USA
    Posts
    2,049
    Thanks
    124
    Thanked 119 Times in 116 Posts

    Re: Word 2000

    First, see <A target="_blank" HREF=http://www.mvps.org/word/FAQs/Customization/CreateATemplatePart2.htm>How to Create a Template]</A>, an excellent tutorial on the way to create a template that will not corrupt easily and that has a numbering structure tied to styles. If you download the Word version, it comes with a template built to these specifications for a manual or book.

    If you used heading styles for your chapter and sub headings, you can automatically generate a table of contents that is updated. Note that when you update the table of contents you will be given the option to just update the page numbers or to update the entire table. If you update the entire table more than a couple of times, you should use the Insert => Bookmark => Show Hidden Bookmarks (check box) to select and delete all of the hidden TOC bookmarks. This is because Word generates a new set of these each time you refresh the entire table of contents - without deleting the old ones. If a document is heavily edited, these can start to cause problems. For more on the TOC feature see Complex Legal Documents(addbalance.com/usersguide/complex legal documents.htm).

    As to the landscape pages in the middle, see and<A target="_blank" HREF=http://support.microsoft.com/support/kb/articles/q162/2/35.asp> How to Add a Portrait Page Number to a Landscape Page.

    Hope this helps.
    Charles Kyle Kenyon
    Madison, Wisconsin

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

    Re: Word 2000

    Just for curiosity value, here is a way to get the entire TOC to update every time a cut, paste or delete changes the page numbering of the document:

    This relies on 'intercepting' or replacing the built in Word commands for Cut, Delete and Paste (should do also for Backspace but can't find that command <g>).

    Because this is a kind of heavy-handed approach and would slow down the process of cutting, deleting or pasting (particularly in larger documents), it might be wise to use this only for specialized documents where this custom functionality is really needed. The code should be put in the code module for the document's attached template.

    BTW it assumes only one TOC in the document.

    A nod to Karen: this code ensures that the ShowHidden property is set to true, before updating the TOC. <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

    <pre>Public Sub EditPaste()
    Dim lngBefPgCt As Long
    Dim lngAftPgCt As Long
    Dim bShowHiddenState As Boolean
    Dim bShowAllState As Boolean

    lngBefPgCt = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)
    Selection.Paste
    ActiveDocument.Repaginate
    lngAftPgCt = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)

    If lngBefPgCt <> lngAftPgCt Then
    If ActiveDocument.TablesOfContents.Count > 0 Then
    'set hidden
    With ActiveWindow.View
    bShowHiddenState = .ShowHiddenText
    .ShowHiddenText = True
    bShowAllState = .ShowAll
    .ShowAll = True
    End With
    ActiveDocument.TablesOfContents(1).Update
    'reset hidden
    With ActiveWindow.View
    .ShowHiddenText = bShowHiddenState
    .ShowAll = bShowAllState
    End With
    End If
    End If
    End Sub
    '========================
    Public Sub EditCut()
    Dim lngBefPgCt As Long
    Dim lngAftPgCt As Long
    Dim bShowHiddenState As Boolean
    Dim bShowAllState As Boolean

    lngBefPgCt = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)
    Selection.Cut
    ActiveDocument.Repaginate
    lngAftPgCt = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)

    If lngBefPgCt <> lngAftPgCt Then
    If ActiveDocument.TablesOfContents.Count > 0 Then
    'set hidden
    With ActiveWindow.View
    bShowHiddenState = .ShowHiddenText
    .ShowHiddenText = True
    bShowAllState = .ShowAll
    .ShowAll = True
    End With
    ActiveDocument.TablesOfContents(1).Update
    'reset hidden
    With ActiveWindow.View
    .ShowHiddenText = bShowHiddenState
    .ShowAll = bShowAllState
    End With
    End If
    End If
    End Sub
    '==============================
    Public Sub EditClear()
    'Equivalent to "Delete"
    Dim lngBefPgCt As Long
    Dim lngAftPgCt As Long
    Dim bShowHiddenState As Boolean
    Dim bShowAllState As Boolean

    lngBefPgCt = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)
    Selection.Delete
    ActiveDocument.Repaginate
    lngAftPgCt = ActiveDocument.BuiltInDocumentProperties(wdPropert yPages)

    If lngBefPgCt <> lngAftPgCt Then
    If ActiveDocument.TablesOfContents.Count > 0 Then
    'set hidden
    With ActiveWindow.View
    bShowHiddenState = .ShowHiddenText
    .ShowHiddenText = True
    bShowAllState = .ShowAll
    .ShowAll = True
    End With
    ActiveDocument.TablesOfContents(1).Update
    'reset hidden
    With ActiveWindow.View
    .ShowHiddenText = bShowHiddenState
    .ShowAll = bShowAllState
    End With
    End If
    End If
    End Sub
    'Still missing: substitute for "Backspace"
    </pre>


Posting Permissions

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