Help!

Проблема такая. Есть некоторое количество (много - порядка тысяч) однотипных документов формата .doc - это технологические кары. Требуется в верхнем колонтитуле всех открытых документов (за раз открывается обычно не более 10..15 нужных в настоящий момент) прописать имя файла (оно стандартизировано) и закрыть документы, с сохранением, естественно. Сугубо практическая задача.

В office 2000..2003 с этим легко справлялся макрос:

Sub Packet_Colontitle_Rename()
'
' Packet_Colontitle_Rename Макрос
' Макрос записан 28.04.2009
'
If Application.Documents.Count = 0 Then
MsgBox "Нет открытых документов"
Exit Sub
Else
Do While Application.Documents.Count <> 0
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
ActiveDocument.AttachedTemplate.AutoTextEntries("Имя файла").Insert Where _
:=Selection.Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveWindow.Close
Loop
End If
If Application.Documents.Count = 0 Then
MsgBox "Изменения внесены"
End If
End Sub

Просто и доходчиво, писано макрорекордером Word с небольшими доработками. После добровольно-принудительного перехода организации на MSO2010 произошла неприятность такого плана: в MSO2000..2003 Word открывает документы в одном экземпляре приложения, соответственно VBA видит их все и по очереди обрабатывает. В 2010-м (да и в 2007-м, насколько я имел несчастье с ним работать), количество одновременно открытых документов есть количество запущенных экземпляров приложения... Соответственно, Application.Documents.Count всегда = 1 и весь смысл вышеприведенной конструкции теряется.

Что посоветуете?

kuklp, благодарю за поддержку. Действительно, если открыть файлы не из папки (выделив нужные и нажав Enter), а через Файл > Открыть, то все документы открываются в одном процессе. Если же открыть через Enter, то запускается столько же процессов, сколько выбрано файлов. Как-то через ж... открывается, неудобно (или надо привыкнуть) но макрос теперь работает. MSO2000 открывал все в одном процессе первым способом. Ну и сам код пришлось немного подправить, это уже дело техники.

andreymxbogv167kuklp, благодарю за поддержку. Действительно, если открыть файлы не из папки (выделив нужные и нажав Enter), а через Файл > Открыть, то все документы открываются в одном процессе. Если же открыть через Enter, то запускается столько же процессов, сколько выбрано файловпосмотри в реестре, как вызываются вордовые документы
я уже писал об этом чуть выше

andreymx, пжл, поконкретнее, где именно в реестре?

andreymxbogv167,

точно не помню
что-то вроде веток с названием ...Microsoft Word\shell\edit\command
у меня там
@="\"C:\\Program Files\\Microsoft Office\\Office14\\WINWORD.EXE\" /n \"%1\""
хотя точного значения ключей я так и не нашёл
это было 2 или 3 года назад, не всё помню

OK, попробую

[quot bogv167]andreymx, похоже, дело не в реестре... (в чем - не пойму).
Во-первых, у меня в указанных ветках те же значения, что и у вас.
Во-вторых, проверил на нескольких компах, у всех файлы doc в MSO2007-2010 открываются именно так, как я описывал ранее
Ну и ключи: http://office.microsoft.com/ru-ru/word-help/HP010164010.aspx

[quot bogv167][quot bogv167]andreymx, похоже, дело не в реестре...

или не в этих ветках реестра