Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Option Explicit Dim objWord Dim objDoc Dim objSection Dim objSelection Dim objPageNumbers Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("C:\Documents and Settings\lspaz\Desktop\Test XXX.docx") Set objSection = objDoc.Sections(1) Set objSelection = objWord.Selection Set objPageNumbers = objSection.Footers(1).PageNumbers Const wdPageBreak = 7 Const wdPageNumberStyleUppercaseRoman = 1 HeaderAdjuster Sub HeaderAdjuster() add code End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.