option explicit
sub main() ' {
selection.pageSetup.orientation = wdOrientLandscape
with selection
'
' Make a really big font
'
.font.size = 120
.typeText "This is page number "
.fields.add selection.Range, text := "page"
.typeParagraph
.typeText "This is page number "
.fields.add selection.Range, text := "page"
end with
end sub ' }