xingzhe

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://xingzhesun.blogbus.com/logs/33485925.html

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像素