The following VBA example displays the current resolution.Sub Test() MsgBox "Current document resolution is " & _ ActiveDocument.Resolution & " dpi"End Sub