xingzhe

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Doc As Microsoft.Office.Interop.Word.Document
        Dim Docs As Microsoft.Office.Interop.Word.Documents

        Doc = GetObject("D:\19.doc")
        Dim i, j As Single
        i = Doc.PageSetup.PageHeight()
        j = Doc.PageSetup.PageWidth

        Dim Msg1 As String
        Msg1 = i
        Dim Msg2 As String

        Msg2= j

        MessageBox.Show("Height:" + Msg1 + "  " + "Width:" + Msg2, "My Application", _
                 MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Doc.Activate()

    End Sub
End Class
1CM=28.346像素