Results 1 to 3 of 3
  1. #1
    5 Star Lounger
    Join Date
    Mar 2001
    Location
    New York, NY
    Posts
    861
    Thanks
    0
    Thanked 10 Times in 9 Posts

    Zoom test VBA (Word XP)

    I have a template which misbehaves if it happens to open on a monitor large enough to allow it to display two pages side by side. I have saved the template at "Page Width" zoom, but it's hard to control how it might be saved if someone else edits the "document" portion of the template. The document consists of several tables, one of which has rows added to accomodate additional information. If the document is displayed across two pages, there is a consistent problem with the way text is added to the cells in the last row. This never occurs when the zoom allows the document to display only one page. This would be the typical display, but I'd like to be able to test to be sure two pages are not displayed side by side, thus avoiding the sure problem. Is there a way to test the document as AutoNew begsin to ensure that only a single page width is displayed?

    Thanks,
    Richard Barrett

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 18 Times in 18 Posts

    Re: Zoom test VBA (Word XP)

    Does something like this work?

    With ActiveWindow.ActivePane.View.Zoom
    .PageColumns = 1
    .PageRows = 1
    ' Optional
    .Percentage = 100
    End With

  3. #3
    5 Star Lounger
    Join Date
    Mar 2001
    Location
    New York, NY
    Posts
    861
    Thanks
    0
    Thanked 10 Times in 9 Posts

    Re: Zoom test VBA (Word XP)

    Yes, it does. Thanks very much.

    Regards,
    Richard

Posting Permissions

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