Sub GetPageDimensions()
' Define the variables
Dim Orientation As String, PageHeight As Single, PageWidth As Single
Dim MirrorMargins As Single, TopMargin As Single, BottomMargin As Single
Dim LeftMargin As Single, RightMargin As Single
With Selection.Sections.First.PageSetup
  If .Orientation = wdOrientPortrait Then
    Orientation = "Portrait"
  Else
    Orientation = "Landscape"
  End If
  PageHeight = .PageHeight
  PageWidth = .PageWidth
  MirrorMargins = .MirrorMargins
  TopMargin = .TopMargin
  BottomMargin = .BottomMargin
  LeftMargin = .LeftMargin
  RightMargin = .RightMargin
End With
' Inform the user
MsgBox "Orientation = " & Orientation & vbCr & _
  "PageHeight = " & PageHeight & vbCr & _
  "PageWidth = " & PageWidth & vbCr & _
  "MirrorMargins = " & MirrorMargins & vbCr & _
  "TopMargin = " & TopMargin & vbCr & _
  "BottomMargin = " & BottomMargin & vbCr & _
  "LeftMargin = " & LeftMargin & vbCr & _
  "RightMargin = " & RightMargin
End Sub