我在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的换算?

解决方案 »

  1.   

    Dim   wordApp   As   Word.Application   
      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   
      
      

  2.   

    Imports Microsoft.Office.Interop.Word
    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
      

  3.   


    原来Global 是这个意思啊,谢谢解答的各位