Windows 7 Forums

Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.


Windows 7: Re-Installing O/S: Do I lose programs such as WORD?

26 May 2013   #1
Chaim613

Windows 7 Pro 64 bit
 
 
Re-Installing O/S: Do I lose programs such as WORD?

Hello,
My Windows 7 is out of warranty, so I will have to pay for the answer to this problem if I go to Microsoft Support:

PROBLEM:
I would like to re-install my Windows 7 Pro O/S but I am afraid if I do so I will lose the Microsoft WORD program.

I donít want to re-purchase WORD.

Is there some way to have WORD on my system after I re-install the O/S without paying for a new WORD installation disk?


If I lose WORD I know I can go to Open Office.

Thanx


My System SpecsSystem Spec
.

26 May 2013   #2
derekimo

Microsoft Community Contributor Award Recipient

 
 

My System SpecsSystem Spec
26 May 2013   #3
Ztruker

Windows 8.1 Pro X64
 
 

Download and run this script. It will show you your key without needing Belarc, though Belarc is a very good progrm to have around.

https://dl.dropboxusercontent.com/u/...24/ShowKey.vbs

Or create a ShowKey.vbs from the following code:

Code:
Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")

ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductID = ProductName & ProductID & ProductKey

If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
   Save ProductID
End if

Function ConvertToKey(Key)
    Const KeyOffset = 52
    isWin8 = (Key(66) \ 6) And 1
    Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
    i = 24
    Chars = "BCDFGHJKMPQRTVWXY2346789"
    Do
        Cur = 0
        X = 14
        Do
            Cur = Cur * 256
            Cur = Key(X + KeyOffset) + Cur
            Key(X + KeyOffset) = (Cur \ 24)
            Cur = Cur Mod 24
            X = X -1
        Loop While X >= 0
        i = i -1
        KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
        Last = Cur
    Loop While i >= 0
    If (isWin8 = 1) Then
        keypart1 = Mid(KeyOutput, 2, Last)
        insert = "N"
        KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
        If Last = 0 Then KeyOutput = insert & KeyOutput
    End If
    a = Mid(KeyOutput, 1, 5)
    b = Mid(KeyOutput, 6, 5)
    c = Mid(KeyOutput, 11, 5)
    d = Mid(KeyOutput, 16, 5)
    e = Mid(KeyOutput, 21, 5)
    ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Function Save(Data)
    Const ForWRITING = 2
    Const asASCII = 0
    Dim fso, f, fName, ts
    fName = "Windows Key.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile fName
    Set f = fso.GetFile(fName)
    Set f = f.OpenAsTextStream(ForWRITING, asASCII)
    f.Writeline Data
    f.Close
End Function
I don't remember who posted this originally so I can't provide proper attribution, sorry.
My System SpecsSystem Spec
.


26 May 2013   #4
derekimo

Microsoft Community Contributor Award Recipient

 
 

That works great for the OS, can you get it to grab office keys too?
My System SpecsSystem Spec
27 May 2013   #5
gregrocker
Microsoft MVP

 
 

Like Win7 you own Office for life, to be reinstalled as often and wherever you like.

Everything that needs to be considered for backing up and then getting and keeping a perfect reinstall is in Clean Reinstall - Factory OEM Windows 7 and are the same steps for retail.
My System SpecsSystem Spec
27 May 2013   #6
Ztruker

Windows 8.1 Pro X64
 
 

I have Office 2007, and this script shows the correct key on my Windows 8 Pro X64 system:

Code:
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\12.0\Registration\{91120000-0031-0000-0000-0000000FF1CE}\DigitalProductID"))
 
Function ConvertToKey(Key)
    Const KeyOffset = 52
    i = 28
    Chars = "BCDFGHJKMPQRTVWXY2346789"
    Do
        Cur = 0
        x = 14
        Do
            Cur = Cur * 256
            Cur = Key(x + KeyOffset) + Cur
            Key(x + KeyOffset) = (Cur \ 24) And 255
            Cur = Cur Mod 24
            x = x -1
        Loop While x >= 0
        i = i -1
        KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
        If (((29 - i) Mod 6) = 0) And (i <> -1) Then
            i = i -1
            KeyOutput = "-" & KeyOutput
        End If
    Loop While i >= 0
    ConvertToKey = KeyOutput
End Function
The reg key path will be different for X86 systems, but I don't have any to check with. Open regedit and search for DigitalProductID, that should get you to the right key to use.

Above script found here: http://forums.mydigitallife.info/pri...0&pp=10&page=2
My System SpecsSystem Spec
Reply

 Re-Installing O/S: Do I lose programs such as WORD?




Thread Tools





Similar help and support threads
Thread Forum
All programs open with Word
Hey everyone, all my programs and icons look like and open in word. i tried system restore and a few .exe file association reg fixes but nothing works. trying sfc/ scannow but does anyone else know how to fix this i think uninstalling word will be the only way
General Discussion
Need to do a clean install but don't want to lose my programs
I have Alureon.H on my system and nothing I do seems to be able to remove it, so I've decided that I'm going to have to do a clean install of Windows 7. The problem is that I don't know which program files, settings, drivers, etc. to back up. There is one group of programs in particular (Vocaloid,...
Backup and Restore
Reinstalling Windows on C Drive, will I lose my programs on E?
So this is probably a silly question that has been answered a hundred times already, but I couldn't find any specifics in my search. I'm doing a clean erase and a reinstall of Windows 7 on my 80g SSD. It's basically just my boot drive. I was wondering how this will effect all the programs I have...
Installation & Setup
Installing XP with VirtualBox, Then Installing Programs to Virtual OS?
I have 7 Ultimate right now, I want to install XP through VirtualBox, which is all well and fine, I know how to do that. But my question is; can I install programs that will be using XP? Say I give the virtual OS like 30gb of space, around 2gb of RAM, then while running XP in VirtualBox, can I...
Installation & Setup
UAC suddenly asking for ALL programs (ie: Word, Excel, notepad, AV)
Have a computer that was brought to me that may have been infected with some Malware. There was, and we were able to remove it. But now there's a problem were UAC is popping up and asking for all programs to run. and I do mean ALL. When you start up a computer, as soon as you log into the...
System Security
Installing Programs
When installing programs using a x64 bit operating system, does it matter where I install the program, in the Program Files (x86) folder or the normal Programs Files folder? Thanks
Software

Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

© Designer Media Ltd

All times are GMT -5. The time now is 20:29.

Twitter Facebook Google+



Windows 7 Forums

Seven Forums Android App Seven Forums IOS App