Set oDoc = w.Documents.Add

[АлёнаP]

Открыаю документ Word в цикле:
'--------------------------
Set oDoc = w.Documents.Add(fnm & ".dot")
Потом добаляю запись в файле
w.ActiveDocument.FormFields("Цвет") .Result = Color
'------------------------------
Цикл занимает некоторое время и если в этот момент открыть, например, новой сообщение Outlook и начать что-нибудь писать, в создаваемом письме, возникает ошибка: "Запрашиваемый номер семества не существует".
Подскажите, как мне сделать, чтобы цикл выполнялся безошибочно.

[viter.alex]

Алёна, если мы присваиваем переменной ссылку на документ, то нужно ею пользоваться, иначе смысла в операции присваивания я не вижу. Вместо того, чтобы писать

w.ActiveDocument.FormFields("Цвет").Result = Color

Нужно написать

oDoc.FormFields("Цвет").Result = Color

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

Добавлено позже
Ваша ошибка появляется, по всей видимости, тогда, когда активным становится документ, который создан не на основе вашего хитрого шаблона, а значит в нем нет такого поля «Цвет», которому вы присваиваете значение Color.

[АлёнаP]

Сообщение от viter.alex

Добавлено позже
Ваша ошибка появляется, по всей видимости, тогда, когда активным становится документ, который создан не на основе вашего хитрого шаблона, а значит в нем нет такого поля «Цвет», которому вы присваиваете значение Color.

И, значит, мне от этого не избавиться?
Тогда ни чего не открывать, пока не закончится цикл?

Сообщение от viter.alex

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

Конечно я его закрываю.

[viter.alex]

Сообщение от АлёнаP

И, значит, мне от этого не избавиться?
Тогда ни чего не открывать, пока не закончится цикл?…

Почему? Обращайтесь к документу не через ActiveDocument, а через переменную, которая на него ссылается. Т.е. вы открываете новый документ, сразу же запоминаете его переменную

Set oDoc = w.Documents.Add(fnm & ".dot")

и работаете с ним вне зависимости от того, какой документ активен. Закончили работать, закрываете с сохранением изменений:

oDoc.Close True

Либо сохраняете под нужным именем:

oDoc.SaveAs "имя файла"

[АлёнаP]

Спасибо!!!
Как то хитро получилось! При выполнении этого цикла, я просто теперь не могу открыть новое письмо в Outlook, оно тут же закрывается.

[viter.alex]

Казалось бы, причем тут Outlook
Неужели Outlook создает минидокумент для письма?
Зато ошибок нет.

[АлёнаP]

Да.... Ошибок нет!

И пока пользователь будет думать в чем дело.....
Цикл уже закончится!!!
И всё же вопрос открыт

[viter.alex]

Сообщение от АлёнаP

…И всё же вопрос открыт

Так в чем вопрос-то?
А что, пользователю обязательно создавать сообщение во время работы макроса? Если обязательно, то сначала нужно его создать, а потом запускать цикл, хотя сама постановка задачи мне непонятна. Как в анекдоте: «Если по голове ударить, на каком ботинке шнурок развяжется»?

[АлёнаP]

Сообщение от viter.alex

А что, пользователю обязательно создавать сообщение во время работы макроса?

И у меня был тот же вопрос к ним
некоторые поддались, не открывать Outlook, а некоторые "вредные" с одной репликой, что должно РАБОТАТЬ!!!

[viter.alex]

Тогда можно попробовать запустить работу с нашими документами в другом процессе Word и вообще его не показывать, а все делать «строго по закону, то бишь … втихаря». Тогда Outlook, может быть, будет брать открытый процесс Word, а тот, который мы запустили из-под макроса, ему не должен быть виден. Хотя, от мелкомягких всего можно ожидать.