The problem is this can happen daily and asking the users to rename or delete
their normal.dotm is something that I can't tell them. (My boss would think
I'm an idiot and probably want to hire someone else.) I need a real solution.
Additionally we have a custom normal.dotm and having to remake that once a
day per user is not a good use of time.
Here are the answers to your questions:
* OS - Windows XP Professional Version 2002 Service Pack 3
* Work environment, the problem is happening to four users, there is a
network but none of the files are on a network. The normal.dotm is stored in
its default location and I've made sure the file is not read only and that
everyone has full permissions to the file.
* Normal.dotm location - it's in the default location for Office 2007 which
I believe is "C:\Documents and Settings\[User Name]\Application
Data\Microsoft\Templates"
* Customizations - There are several macros in the normal.dotm I'll include
them at the end of this post.
* Office version - Microsoft Office Word 2007 (12.0.6331.5000) SP1 MSO
(12.0.6320.5000)
I have confirmed there are no add-ins running, I even disabled the Outlook
add-in just to be safe. I have also confirmed the anti-virus software ignores
the normal.dotm file.
I checked with the users on the possibility of it being related to Word
crashing. They reported it does not appear to happen after a crash so Orphan
locks are not likely the issue. Even if it were, having to delete the
normal.dotm (my understanding of the orphan lock resolution) is not valid.
The users have reported rebooting the computer as a way to resolve the issue
but asking them to reboot every time this happens is not a valid solution. We
need to stop this from happening.
Macros: (Note: I replaced all text with a [text] placeholder. I also removed
all comments. Other than that these are the exact macros in the normal.dotm.
Also I didn't write the macros but they look safe to me.)
Sub Macro1()
Selection.Font.Name = "Arial"
Selection.Font.Name = "Arial"
Selection.Font.Size = 11
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
ActiveWindow.ActivePane.VerticalPercentScrolled = 46
End Sub
Sub Macro2()
Selection.InsertSymbol Font:="WP Greek Century", CharacterNumber:=-4052, _
Unicode:=True
End Sub
Sub Macro3()
Selection.InsertSymbol Font:="Symbol", CharacterNumber:=-3999, Unicode:= _
True
End Sub
Sub Macro4()
Selection.InsertSymbol Font:="Symbol", CharacterNumber:=-3998, Unicode:= _
True
End Sub
Sub Macro5()
Selection.Font.Name = "Arial"
Selection.Font.Name = "Arial"
Selection.Font.Size = 11
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Rows.HeightRule = wdRowHeightAuto
Selection.Rows.Height = InchesToPoints(0)
Selection.Rows.AllowBreakAcrossPages = False
End Sub
Sub Macro6()
With Selection.Tables(1)
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleDouble
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderHorizontal)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderVertical)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
End Sub
Sub Macro7()
End Sub
Sub Macro8()
Selection.Rows.HeightRule = wdRowHeightAuto
Selection.Rows.Height = InchesToPoints(0)
Selection.Rows.AllowBreakAcrossPages = False
Selection.Font.Name = "Arial"
Selection.Font.Name = "Arial"
Selection.Font.Size = 11
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
Sub Macro9()
Selection.TypeText Text:= _
"**[text goes here]."
Selection.TypeText Text:= _
" [more text goes here] "
Selection.TypeText Text:="[text here]."
End Sub
Sub Macro10()
Selection.TypeText Text:="[text]"
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.TypeText Text:="[text]"
End Sub
Sub Macro11()
Selection.TypeText Text:="[text]"
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.TypeText Text:="[text]"
End Sub
Sub Macro12()
Selection.TypeText Text:="[text]"
End Sub
Sub Macro13()
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="[text]"
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.TypeText Text:="[text]"
End Sub
Sub Macro14()
Selection.TypeText "[text]"
End Sub
Sub Macro15()
Selection.Copy
Selection.Paste
End Sub
Sub Macro16()
Selection.TypeText Text:="[text]"
End Sub
Sub QuickPrint()
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Sub Macro17()
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Sub Macro18()
Selection.WholeStory
Options.DefaultHighlightColorIndex = wdNoHighlight
Selection.Range.HighlightColorIndex = wdNoHighlight
End Sub
Sub Macro21()
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
