Операции с документом в невидимом режиме

[Vadim39]

Доброго времени суток!
Подскажите, пожалуйста, возможно ли не запуская дополнительную аппликацию word, добавить новый документ с атрибутом Visible:=False получить к нему доступ и произвести какие-либо операции? Спрашиваю потому, что команда

Set oDoc = Documents.Add Visible:=False

выдадает ошибку. А если написать так:

Application.ScreenUpdating = False
Set oDoc = Documents.Add
'действия
ActiveDocument.Close wdDoNotSaveChanges
Application.ScreenUpdating = True

экран все равно "моргает".
ЗарСпасБол!

[Скрипт]

Если при создании объекта, объекту даётся VBA-имя, то нужно параметры заключать в скобки:

Sub Procedure_1()

    Dim myNewDocument As Word.Document

    'Создаём документ и делаем его невидимым.
    'Даём документу VBA-имя "myNewDocument". Через это
        'имя можно дальше в коде что-нибудь делать с документом.
    Set myNewDocument = Documents.Add(Visible:=False)
    
    'Отображаем документ на мониторе.
    myNewDocument.ActiveWindow.Visible = True

End Sub

[Скрипт]

Чтобы не моргало, можно попробовать такой вариант:

Sub Procedure_2()
    
    'Сворачиваем окно программы "Word".
    Application.Windows(1).WindowState = wdWindowStateMinimize
    
    'Разворачиваем окно программы "Word".
    Application.Windows(1).WindowState = wdWindowStateMaximize

End Sub

[Вождь]

Сообщение от Скрипт

...WindowState = wdWindowStateMinimize...

Тогда можно и так: Activedocument.Windows(1).Visible = False

[Vadim39]

Большое спасибо! (как всегда )
Вообще-то я задавал этот вопрос, надеясь решить следующее затруднение: Нужно выполнить поиск-замену с использованием регулярных выражений Word внутри небольших текстовых отрывков, не относящихся к редактируемому файлу , причем желательно, чтобы содержимое последнего при этом никак не менялось. Указанный выше способ в принципе решает проблему, но каждая процедура занимает ок. 50 милисекунд. То есть, в длинный цикл ее не вставишь. Может быть существуют какие-нибудь более оптимальные пути решения?