Отображение работы макроса word при пакетной обработке.

[moshkov_aleshka]

Не судите строго в программировании не особо силен.
По специфике работы нужен макрос который чистит колонтитулы документов. Макрос кое как криво сварганил - вроде работает. Но возникла проблема поскольку макрос работает в пакете он постоянно открывает новые окна документа. Можно как то сделать чтоб макрос выполнялся в фоне при закрытом мс word либо чтоб был открыт только один ворд и не было миганий.

Текст макроса:

Sub ProcessFiles2()
Application.ScreenUpdating = False
Dim mypath As String
Dim MyFile As String
Dim adoc As Document
mypath = "D:\Temp\Files\"
MyFile = Dir(mypath)
Do While MyFile <> ""
If MyFile Like "*.doc*" Then
Set adoc = Nothing
On Error Resume Next
Set adoc = Documents.Open(mypath & MyFile)
On Error GoTo 0
If Not (adoc Is Nothing) Then
Dim sec As Section
Dim hf As HeaderFooter
Dim rng As Range
For Each sec In ActiveDocument.Sections
For Each hf In sec.Headers
hf.Range.Delete
Next hf
For Each hf In sec.Footers
hf.Range.Delete
Next hf
Next sec
End If
adoc.Close savechanges:=wdSaveChanges
End If
MyFile = Dir
Loop
End Sub

Изначально был в двух макросах
Sub ProcessFiles()
Dim mypath As String
Dim MyFile As String
Dim adoc As Document
mypath = "D:\Temp\Files\"
MyFile = Dir(mypath)
Do While MyFile <> ""
If MyFile Like "*.doc*" Then
Set adoc = Nothing
On Error Resume Next
Set adoc = Documents.Open(mypath & MyFile)
On Error GoTo 0
If Not (adoc Is Nothing) Then
ProcessFile
End If
adoc.Close savechanges:=wdSaveChanges
End If
MyFile = Dir
Loop
End Sub
Sub ProcessFile()
Dim sec As Section
Dim hf As HeaderFooter
Dim rng As Range
For Each sec In ActiveDocument.Sections
For Each hf In sec.Headers
hf.Range.Delete
Next hf
For Each hf In sec.Footers
hf.Range.Delete
Next hf
Next sec
End Sub

Но и в том и в том варианте мигание просто выносит мозг особенно когда нужно обработать большое количество документов.

[Sasha_Smirnov]

Сообщение от moshkov_aleshka

выносит мозг

А мозгу невдомёк, что тело можно на перерыв увести?!

Посмотрите, как включать/выключать обновление экрана: http://yandex.ru/search/?text=screenupdating

(Можно и прямо здесь на форуме, но там установки поиска надо менять.)

[moshkov_aleshka]

Спасибо что направили в нужном направлении. Более менее разобрался.