我在WORD2003的宏下看到是直接..... = CentimetersToPoints(0.3),
我VB.NET引用了Microsoft WORD Object 11.0,但不能直接引用
然后看宏中CentimetersToPoints()的定义:
“Function CentimetersToPoints(Centimeters As Single) As Single
Word.Global 的成员”
于是我在.net上引用Word.Global.CentimetersToPoints(...),它提示说“对非共享成员引用”请问应该怎么解决,或者还有什么方法解决Centimeter和Point的换算?
我VB.NET引用了Microsoft WORD Object 11.0,但不能直接引用
然后看宏中CentimetersToPoints()的定义:
“Function CentimetersToPoints(Centimeters As Single) As Single
Word.Global 的成员”
于是我在.net上引用Word.Global.CentimetersToPoints(...),它提示说“对非共享成员引用”请问应该怎么解决,或者还有什么方法解决Centimeter和Point的换算?
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
wordApp.Documents.Add DocumentType:=wdNewBlankDocument
With wordApp.ActiveDocument.PageSetup
.TopMargin = CentimetersToPoints(0.3)
.BottomMargin = CentimetersToPoints(0.3)
.LeftMargin = CentimetersToPoints(0.3)
.RightMargin = CentimetersToPoints(0.3)
End With
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wordApp As Object
wordApp = CreateObject("Word.Application")
wordApp.Visible = False
Const wdNewBlankDocument = 0
wordApp.Documents.Add(DocumentType:=wdNewBlankDocument)
With wordApp.ActiveDocument.PageSetup
.TopMargin = wordApp.CentimetersToPoints(0.3)
.BottomMargin = wordApp.CentimetersToPoints(0.3)
.LeftMargin = wordApp.CentimetersToPoints(0.3)
.RightMargin = wordApp.CentimetersToPoints(0.3)
End With
wordApp.visible = True
End Sub
End Class
原来Global 是这个意思啊,谢谢解答的各位