Sub Document_New() ActiveDocument.VBProject.VBComponents.Import ThisDocument.Path & "\Module1.bas" End Sub