word打开时始终执行一个函数解决方案

word打开时始终执行一个函数
我的一个文档，需要在每次打开时读取同级目录下的const.dat，输入里面的数据，请问我这段代码我想写在一个函数里，这个函数怎么调用啊？

[解决办法]
应该是写一个过程，这个过程执行打开dat文件，并读入到word。在

Private Sub Document_Open()
End Sub

里调用。