VBA Code


Application.Presentations(1).PrintOut 


ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Modifying

With ActiveDocument.Sections(1).Footers(wdheaderfooterprimary) 
   .Delete
   .Fields.Add range := Selection, type := wdfieldname, text := "\p"
   .InsertAfter text := vbTab
   .InsertAfter text := vbTab
   .Collapse direction := wdcollapsestart
   .Fields.Add range := Selection, type := fieldauthor
End With



© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrev