-
2009-01-06
获取word页面的高度和宽度 - [VB]
版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
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.DocumentsDoc = GetObject("D:\19.doc")
Dim i, j As Single
i = Doc.PageSetup.PageHeight()
j = Doc.PageSetup.PageWidthDim Msg1 As String
Msg1 = i
Dim Msg2 As StringMsg2= j
MessageBox.Show("Height:" + Msg1 + " " + "Width:" + Msg2, "My Application", _
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Doc.Activate()End Sub
End Class
1CM=28.346像素随机文章:
vb.net 2009-10-09自定义窗口的回调函数--鼠标处理 2009-03-27如何删除从CWnd或者CView派生类申请的内存。 2008-08-21delete this 2007-11-29RDF and template 2007-07-31
收藏到:Del.icio.us








评论