normal.dot

День добрый!
Пишу программу формирования вордовых справок и столкнулся с одной проблемой - когда я пытаюсь закрыть созданное окно, меня постоянно спрашивают не желаю ли я сохранить изменившийся Normal.dot! Кто-нибудь может мне подсказать каким местом моя программа изменяет этот файл???


Dim objWord As Object
Set objWord = CreateObject("Word.Application")

objWord.Documents.Add

With objWord.ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(6)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1)
.FooterDistance = CentimetersToPoints(1)
.PageWidth = CentimetersToPoints(40)
.PageHeight = CentimetersToPoints(19)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
End With

With objWord.ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=2
.EvenlySpaced = True
.LineBetween = False
.Width = CentimetersToPoints(15.5)
.Spacing = CentimetersToPoints(4)
End With

'бла-бла-бла
'здесь идет формирование страницы
'от которого не зависит появление ошибки

objWord.Visible = True