解决办法:
WScript.Echo "Try to repair registry key..."
'verify Office version
Set objshell = CreateObject("wscript.shell")
If version = 12 Then
objshell.Run "reg add HKCU\Software\Microsoft\Office\12.0\Word\Options /v NoReReg /t REG_DWORD /d 1",1, True
ElseIf version = 14 Then
objshell.Run "reg add HKCU\Software\Microsoft\Office\14.0\Word\Options /v NoReReg /t REG_DWORD /d 1",1, True
ElseIf version = 15 Then
objshell.Run "reg add HKCU\Software\Microsoft\Office\15.0\Word\Options /v NoReReg /t REG_DWORD /d 1",1, True
Else
WScript.Echo "Not support office version"
WScript.StdOut.Write "Press enter to exit"
WScript.StdIn.ReadLine()
WScript.Qui
End If