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
