这段话在VBA中能运行，但在VB中不能运行

Question

Dim i As Integer
 Dim AppWord
    Dim wordDoc
    Set AppWord = CreateObject("Word.Application")
    AppWord.Visible = True
    Set wordDoc = AppWord.Documents.Add
    With wordDoc
         .Content.InsertAfter "工程概况"
        .Paragraphs(wordDoc.Paragraphs.Count).style = wdStyleHeading1
        .Paragraphs(wordDoc.Paragraphs.Count).Range.Font.Size = 14
        Dim tt As Integer          
    End With        tt = wordDoc.Paragraphs.Count
        Set rng = wordDoc.Range(Start:=wordDoc.Paragraphs(tt).Range.Start, End:=wordDoc.Range.End)
         If rng.ListFormat.ListType = wdListNoNumbering Then
            Dim temp3 As ListTemplates
            
            rng.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(1)                 
        End If

Answer 1

end if 上面的那句话在VB中不能运行，实时错误’430’，类不支持或不支持期望的接口，怎样修改，谢谢！

Answer 2

有些枚举值,比如wdOutlineNumberGallery,如果你再VB的环境里面没有引用WORD库的话,VB是不知道这些值所代表的数值的

Answer 3

将wdOutlineNumberGallery改为它对应的数值3再试试。