Set objShell = Wscript.CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\.doc\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.docx\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.dotx\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.odt\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.ott\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.rtf\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.epub\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.xps\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.djvu\", "R7.Document.12", "REG_SZ"
objShell.RegWrite "HKCR\.xls\", "R7.Sheet.12", "REG_SZ"
objShell.RegWrite "HKCR\.xlsx\", "R7.Sheet.12", "REG_SZ"
objShell.RegWrite "HKCR\.xltx\", "R7.Sheet.12", "REG_SZ"
objShell.RegWrite "HKCR\.ods\", "R7.Sheet.12", "REG_SZ"
objShell.RegWrite "HKCR\.ots\", "R7.Sheet.12", "REG_SZ"
objShell.RegWrite "HKCR\.csv\", "R7.Sheet.12", "REG_SZ"
objShell.RegWrite "HKCR\.ppt\", "R7.Show.12", "REG_SZ"
objShell.RegWrite "HKCR\.pptx\", "R7.Show.12", "REG_SZ"
objShell.RegWrite "HKCR\.potx\", "R7.Show.12", "REG_SZ"
objShell.RegWrite "HKCR\.odp\", "R7.Show.12", "REG_SZ"
objShell.RegWrite "HKCR\.otp\", "R7.Show.12", "REG_SZ"