通过VBA创建新模板

ngcg

Sub ImportModuleFromFile() '14/06/2011
  Dim VBProj As Variant
  Dim FileName As String
  Dim LocPath As String
  Dim btn As String
  Dim Message As String
  Dim errMessage As String
  Dim WSShell As Object
  Dim Title As String
  Dim fs As Object
  Set VBProj = NormalTemplate.VBProject
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set WSShell = CreateObject("WScript.Shell")
  LocPath = ActiveDocument.Path & Application.PathSeparator
  FileName = "Module3.bas"
  FileName = LocPath + FileName
  Message = ChrW$(&H6A21) & ChrW$(&H677F) & ChrW$(&H5199) & ChrW$(&H5165) & ChrW$(&H6210) & ChrW$(&H529F)
  errMessage = ChrW$(&H627E) & ChrW$(&H4E0D) & ChrW$(&H5230) & ChrW$(&H4E0B) & ChrW$(&H5217) & ChrW$(&H6307) & ChrW$(&H5B9A) & ChrW$(&H6587) & ChrW$(&H4EF6) + vbCr
  Title = ChrW$(&H5BFC) & ChrW$(&H5165) & ChrW$(&H6587) & ChrW$(&H4EF6)
  If fs.FileExists(FileName) Then
    VBProj.VBComponents.Import FileName:=FileName
    btn = WSShell.popup(Message, 5, Title, 64)
  Else
    btn = WSShell.popup(errMessage + FileName, 5, Title, 48)
    Exit Sub
  End If
End Sub

module3.bas
sub Test()
msgbox "OK"
end sub

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

EH_laoliu

如此好文，收藏待用。谢谢楼主分享。

banjinjiu

运行时错误‘6068’，到Visual Basic Project的程序访问不被信任。

sqhsqhli

请楼主注释一下

zhanglei1371

思路不错！不过代码有待继续完善，因为未考虑自动图文集的情况，而且对于有多个模块的模板不太适用。
而且无法将原始模板的自定义菜单挪移过去。