Question

引用microsoft word object library 后还是用户定义类型未定义

Dim MyWord As Object
Dim NewDoc As Object
Dim NewObj As Worksheet
Dim astr As String

Private Sub Command1_Click()
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = True
MyWord.Caption = "This word sample"
Set NewDoc = Nothing
End Sub

Private Sub Command2_Click()
Set NewDoc = MyWord.Documents.Add
NewDoc.Paragraphs(1).Range.Text = "Ok,This is my first samples"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MyWord.Quit
End Sub

VB 总显示Dim NewObj As Worksheet 用户类型未定义

我按照网上说的在工程——引用——Microsoftword 14.0 Object Library 可是还是不行。求教大神。

Answer 1

你的函数据都没用上NewObj 这个变量，直接删了吧，另外Worksheet应该是EXCEL的工作区吧，试试引用MicrosoftExcel 14.0 Object Library