View Single Post
 
Old 03-06-2012, 03:31 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,338
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

OK, if you add the following code to the Normal template's 'ThisDocument' module, you should get the desired prompt:
Code:
Option Explicit
 
Private Sub Document_New()
Call Document_Open
End Sub
 
Private Sub Document_Open()
  If MsgBox("Go to Footer?", vbYesNo, "Destination Selector") = vbYes Then
    ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter
  End If
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote