![]() |
#4
|
||||
|
||||
![]()
Something like this would do the trick:
Code:
Sub SetSinglePageView() On Error GoTo errhandler ActiveWindow.View.Type = 3 'Print Layout ActiveWindow.View.Zoom.PageColumns = 1 ActiveWindow.View.Zoom.Percentage = 100 'specify the zoom you want errhandler: Exit Sub End Sub You'd have to add the macro to the Normal template and also call the macro from Sub AutoOpen() and Sub AutoNew() in the Normal template.
__________________
Stefan Blom Microsoft Word MVP Microsoft 365 apps for business Windows 11 Professional |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Onrzcan | Word | 3 | 07-01-2016 07:42 AM |
Within a table format, a single cell can't automatically flow to the next page? | laurieli | Word | 3 | 12-09-2015 07:09 PM |
![]() |
Patben | Excel | 1 | 11-11-2015 05:04 AM |
How do I create a table in Word where I can single click a cell and it automatically highlights? | QA Inspector | Word | 2 | 05-14-2015 07:22 PM |
![]() |
delboy | Word | 29 | 01-25-2013 06:42 PM |