Подключаю библиотеку MS Word 2000 (9.0) и хочу добавить колонтитул в док, с последующей распечаткой.
Добавляет... и даже печатает... но только один раз! При повторном использовании кода происходит ошибка - ума не приложу, что делать.

Кратко о том, что делает прога.
В опред. папке она в цикле ищет файлы *.doc, добавляет в них колонтитул и отправляет на печать.

Вот код:

'Папка, откуда берём файлы, изменяем, если надо...
Dim MoveFrom As String
MoveFrom = "c:\Mail\In"
fle.Path = MoveFrom
fle.Refresh

Dim xw As New Word.Application

For i = 0 To fle.ListCount - 1
' Если вордовый док, то...
If LCase(Right(fle.List(i), 4)) = ".doc" Then

' открываем
xw.Documents.Open MoveFrom + "\" + fle.List(i)

' и добавляем колонтитул

With xw
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
.Selection.WholeStory
.Selection.Delete wdCharacter, 1
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

With .ActiveDocument.PageSetup
.FooterDistance = CentimetersToPoints(0.6)
.DifferentFirstPageHeaderFooter = True
.RightMargin = CentimetersToPoints(1)
End With

If .ActiveDocument.PageSetup.Orientation = wdOrientLandscape Then
ot = 24.5
Else
ot = 15.8
End if

rf = PointsToCentimeters(.ActiveDocument.PageSetup.LeftMargin)
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

With .Selection
.ParagraphFormat.LeftIndent = CentimetersToPoints(ot - rf)
.ParagraphFormat.RightIndent = CentimetersToPoints(-0.3)
.Borders.Enable = True
.Font.Size = 6
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText Text:="Государственное учреждение" + Chr(11)
.Font.Bold = True
.TypeText Text:="Вх. № "
.TypeText Text:="Дата " & Date
End With

.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End With

' Закончили с колонтитулом
End If

' Печатаем
xw.PrintOut
xw.Documents.Close False
Next i
xw.Quit
Set xw = Nothing

Добавьте на форму FileListBox, обзовите fle
Добавьте на форму кнопку, вставьте код в событие Click

Если у кого-нить есть время и желание помочь, буду очень благодарен!
Гуру VB, отзовитесь...

Удалённый сервер не существует или недоступен. Что-то вроде этого... См. картинку :-)

Картинка... А где же картинка???

Сразу после начала добавления колонтитула, когда начинается установка параметров страницы, т.е. в этом месте

' и добавляем колонтитул

With xw
.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
.Selection.WholeStory
.Selection.Delete wdCharacter, 1
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Попробуй провести живой эксперимент, будет понятней. Даже если опустить установку параметров, прога начнёт ругаться на след строки и так далее, пока не уберёшь весь код добавления колонтитула.
Что делать? Хэээээлп!!!

Да я о чём и говорю!!! Работает нормально! Но только один раз! Не завершая прогу, повтори операцию - вылетит ошибка! Что за дела?

Блин, как просто и как гениально!
Я уже все копья поломал - думал, кранты...
Спасибо РА, спасибо Magnus23
Всё фунциклирует!!! Ура!!!

Тема закрыта...