解决办法:
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