从wordvbE中导出WORDvba模块代码

大公臻信

各位老师：
      我想从word vbe窗口将所有模块的代码导出放到一个文件夹中，代码如下：
      Dim ExportPath As String, ExtendName As String
Dim vbc As VBComponent
'ExportPath = ThisDocument.Path
ExportPath = "C:\桌面\word文档处理模块\"
For Each vbc In Application.VBE.ActiveVBProject.VBComponents
    Select Case vbc.Type
    Case vbext_ct_ClassModule, vbext_ct_Document    '组件属性为类模块、EXCEL对象
        ExtendName = ".Cls"    '设置导出文件的扩展名
    Case vbext_ct_MSForm    '组件属性为窗体
        ExtendName = ".frm"
    Case vbext_ct_StdModule    '组件属性为模块时
        ExtendName = ".Bas"
    End Select
    If ExtendName <> "" Then
         On Error Resume Next
        vbc.Export ExportPath & vbc.Name & ExtendName
'        Debug.Print ExportPath & "\" & vbc.Name & ExtendName
    End If
Next
但在指定的文件夹中未见导出的模块，请指点，谢谢

大公臻信

问题找到了，是ExportPath = "C:\桌面\word文档处理模块\"不正确