怎样让office2003中的visual basic写的程序每次都在新打开的office中运行

新打开的word和excel在任务栏只会显示microsoft excel-文本名称，看起来很不方便，后来我找到一种方法，就是在visual basic编写一段语言
Private Sub Workbook_Open()
Application.Caption = Me.Name
ActiveWindow.Caption = vbNullString
End Sub
这样就可以显示文件名在任务栏，但是每个文本都要这么改很麻烦，有没有什么方法让我这边所有的office都这样运行呢？

以Word为例：
1. 新建一个Word文档，Alt+F11，调出VBA编辑器；
2. 左侧双击ThisDocument，右侧在EditView的上部Combox中选择Document（原来显示的是通用），这时EditView中显示出以下内容：
Private Sub Document_New()

End Sub
3. 在中间加入你的代码，即：
Private Sub Document_New()
Application.Caption = Me.Name
ActiveWindow.Caption = vbNullString
End Sub
4. Ctrl+S，弹出保存对话框，注意保存类型选择：文档模板(*.dot），保存为Normal.dot（注意不要改变它的缺省路径）。【注意：这个文件原路径已经有了，你可以需要先将其备份一个，再进行覆盖，这样当你想恢复原样时，可以将其改回来即可】

5. 关闭Word，再进去时，你会看到，缺省创建的空白文档仍然后Microsoft Word名称，但你在工具栏点击新建图标时，新建的空白文档就不带了。

可以的