closuresWord UserForm

我有从某些目录循环的VBA，打开Word文件，复制一些文本，将复制的文本放入Excel，然后closuresWord。 代码的作品，但我有一些文件里面有一些用户窗体。 当这种types的文件开始popup用户窗体打开。 直到我closures表单的代码正在等待closures。 所以我想（没有成功）closurespopup用户窗体。 我的代码：

Sub copy_from_word_to_excel(ByVal aFilename As String) Dim objWord As Object Dim objDoc As Object Dim i As Integer Dim objLoop As Object Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(aFilename, ReadOnly:=False) objWord.Visible = False For Each objLoop In objDoc.VBA.UserForms If TypeOf objLoop Is UserForm Then Unload objLoop Next objLoop objDoc.ReadOnlyRecommended = False objDoc.RemovePersonalInformation = True j = j + 1 ThisWorkbook.ActiveSheet.Cells(j, 1).Value = aFilename ThisWorkbook.ActiveSheet.Hyperlinks.Add Anchor:=Cells(j, 1), Address:=aFilename, TextToDisplay:=aFilename ThisWorkbook.ActiveSheet.Cells(j, 2).Value = objDoc.Paragraphs(1).Range.Text ThisWorkbook.ActiveSheet.Cells(j, 3).Value = objDoc.Paragraphs(2).Range.Text ThisWorkbook.ActiveSheet.Cells(j, 4).Value = objDoc.Paragraphs(32).Range.Text ThisWorkbook.ActiveSheet.Cells(j, 5).Value = objDoc.Paragraphs(33).Range.Text ThisWorkbook.ActiveSheet.Cells(j, 6).Value = objDoc.Paragraphs(34).Range.Text objDoc.Close SaveChanges:=False Set objDoc = Nothing objWord.Quit Set objWord = Nothing End Sub 

我试图用这段代码从ExcelclosuresWord UserForm（但它不好）：

 For Each objLoop In objDoc.VBA.UserForms If TypeOf objLoop Is UserForm Then Unload objLoop Next objLoop 

可以做什么？