Omdøbning af Normal.dot i runtime

Kan det lade sig gøre at omdøbe Normal.dot i runtime, dvs. mens den er aktiveret og indlæst i word.

Jeg har forsøgt med nedenstående kode (2 varianter) men det virker ikke.

Public Sub autoexit()
    Dim var, k As String
   
    var = MsgBox("Do want to change too Education-template?", vbYesNo + vbInformation, "Education-template")
   
    If var = vbYes Then
'        MsgBox "Klar til omdaabing"
'        k = Shell("C:\Documents and Settings\kial\Application Data\Microsoft\Word\usertemplates\omdaab.bat", vbMaximizedFocus)
'        'call ("C:\Documents and Settings\kial\Application Data\Microsoft\Word\usertemplates\omdaab.bat", vbMaximizedFocus)
'        Sleep (5000)
'        MsgBox "Har kørt omdoeb.bat"


        FileCopy "C:\Documents and Settings\kial\Application Data\Microsoft\Word\usertemplates\normal.dot", "C:\Documents and Settings\kial\Application Data\Microsoft\Word\usertemplates\xnormal.dot"
        FileCopy "C:\Documents and Settings\kial\Application
Data\Microsoft\Word\usertemplates\znormal.dot", "C:\Documents and Settings\kial\Application Data\Microsoft\Word\usertemplates\normal.dot"
        FileCopy "C:\Documents and Settings\kial\Application Data\Microsoft\Word\usertemplates\xnormal.dot", "C:\Documents and Settings\kial\Application Data\Microsoft\Word\usertemplates\znormal.dot"
    End If
End Sub

KIAL