Нумерация листов ворд-документа, запущенного из экселя??

[wolf05632]

Привет!
Из экселя запускаю ворд и пытаюсь макросом пронумеровать его листы. Если включить запись макроса в ворде, то код такой:

 ' Если активное окно - нормальное или ? то ?
    If Word.ActiveWindow.ActivePane.View.type = wdNormalView Or Word.ActiveWindow.ActivePane.View.type = wdOutlineView Then
        Word.ActiveWindow.ActivePane.View.type = wdPrintView
    End If
    
    ' Активируем верхний колонтитул
    Word.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
    ' Нумеруем листы простым номером в центре
    Word.Application.Templates( _
        "C:\Users\Пупкин\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("Простой номер 2").Insert Where:=Word.Selection.Range, _
        RichText:=True
    
    ' Активируем главное окно документа
    Word.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

ЗЫ: подредактировал код для экселя добавив

Word.

при попытке запуска макроса пишет ошибку времени выполнения 5941 "запрашиваемый номер семейства не существует".
Помогите разобраться, где собака зарыта?
ЗЗЫ: ворд и эксель - десятые. ОС - семерка
СПАСИБО!

[slan]

ничем не должно отличаться..


но на всякий случай выложите весь код, желательно в файле иксель

[wolf05632]

макрос запускается из екселя

Private Sub CommandButton1_Click()
Dim obj_Word As New Word.Application      ' Объектная переменная для хранения ссылки на MS Word и его запуска
obj_Word.Visible = True               ' Делаем его видимым

Dim obj_WDoc As Word.Document         ' -"- на документ
Set obj_WDoc = obj_Word.Documents.Add ' Создаем новый документ в MS Word
obj_WDoc.Activate                     ' Делаем его активным

' нумеруем страницы(по крайней мере пытаемся)
 Если активное окно - нормальное или ? то ?
    If Word.ActiveWindow.ActivePane.View.type = wdNormalView Or Word.ActiveWindow.ActivePane.View.type = wdOutlineView Then
        Word.ActiveWindow.ActivePane.View.type = wdPrintView
    End If
    
    ' Активируем верхний колонтитул
    Word.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
    ' Нумеруем листы простым номером в центре
    Word.Application.Templates( _
        "C:\Users\Пупкин\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries("Простой номер 2").Insert Where:=Word.Selection.Range, _
        RichText:=True
    
    ' Активируем главное окно документа
    Word.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
'''''''''''''''''''''''''''''''''''''''''''''''''''
'вывод текста, выдранного из екселя.

end sub

ЗЫ: еще такая проблема с этими объектными переменными: если уже открыт вордовский документ(любой), то при запуске макроса создается новый документ в новом окне, НО УПРАВЛЕНИЕ НОВОМУ ДОКУМЕНТУ НЕ ПЕРЕДАЕТСЯ! и текст печатается в предыдущем открытом документе! Как поправить??? (и как сделать активным окно эксель?)

ЗЗЫ: И еще ваще проблема проблем. макрос я писал непосредственно в редакторе и запускал его через ф5. Вот решил повесить его на кнопку. Создал новый макрос с именем "проект", а как в него впиндюрить инициализацию формы и реакцию на клики по кнопкам вообще не втыкаю! как сделать?

[wolf05632]

Народ! Нашел, где собака порылась! (к сожалению, дома 2007 ворд, но, думаю принцип будет понятен):
открываю вордовский документ, жму кнопку "записать макрос", делаю нумерацию страниц, останавливаю макрос. Открываю макроредактор. И что я там вижу?: добавляется проект templateProject(Bilding Blocks), который, как я понимаю, и отвечает за шаблоны с нумерацией. (в 2010м ворде добавляется еще один проект:templateProject(Built-In Building Blocks)).
почему-то не могу вставить картинку! загрузил на хранилище:
http://www.imagepost.ru/?v=pctojrtih...zmoponnpuj.png

Так вот: если из экселя запускать вордовский файл с нумерацией, то вылетает ошибка, т.к. в макроредакторе открывшегося ворда нет этих проектов!
Соответственно, мне видится два варианта: 1. либо подключать эти проекты при запуске ворда, 2. либо подключить их в экселевском макроредакторе.

Как это сделать, ни в первом, ни во втором случае я не представляю. ПРОШУ ПОМОЩИ ПРОФЕССИОНАЛОВ!!!