Программно создать поле в колонтитуле

[madster]

Записал макрос:

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
 
    Selection.TypeText Text:="Стр. "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "PAGE  ", PreserveFormatting:=True
    Selection.TypeText Text:=" из "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "NUMPAGES  ", PreserveFormatting:=True
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

При его выполнении в колонтитул каждой страницы документа добавляется номер текущей страницы и количество страниц в документе.
Но при попытке использовать макрос в VB получаю ошибку.
Как нужно переделать макрос, чтобы в колонтитулы добавлялись номера страниц?

Заранее спасибо.

[viter.alex]

Естественно, если использовать этот макрос в VB совершенно не переделав, то будут ошибки, т.к. макрос подразумевает, что он выполняется из-под Word'a, а ты его выполняешь из-под VB, значит доработать. Лучше всего, подключить соответствующую библиотеку Microsoft Word 11.0 Object Library или другой версии. Тогда код должен выглядеть как-то так:

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application 'Создаём новое приложение Word
Set wdDoc = wdApp.Documents.New() 'Новый документ
With wdApp    
    If .ActiveWindow.View.SplitSpecial <> .WdSpecialPane.wdPaneNone Then
        .ActiveWindow.Panes(2).Close
    End If
    If .ActiveWindow.ActivePane.View.Type = wdNormalView Or .ActiveWindow. _
        ActivePane.View.Type = .WdViewType.wdOutlineView Then
        .ActiveWindow.ActivePane.View.Type = .WdViewType.wdPrintView
    End If
 
    .Selection.TypeText Text:="Стр. "
    .Selection.Fields.Add Range:=.Selection.Range, Type:=.WdFieldType.wdFieldEmpty, Text:= _
        "PAGE  ", PreserveFormatting:=True
    .Selection.TypeText Text:=" из "
    .Selection.Fields.Add Range:=.Selection.Range, Type:=.WdFieldType.wdFieldEmpty, Text:= _
        "NUMPAGES  ", PreserveFormatting:=True
    .ActiveWindow.ActivePane.View.SeekView = .WdSeekView.wdSeekMainDocument
End With

[Ципихович Эндрю]

а смысл создавать wdDoc, если к нему не обращаемся?

[viter.alex]

Во-первых, обращаемся к нему: wdSeekMainDocument, во-вторых Selection работает не в вакууме, а в-третьих это только часть кода, вряд ли задача стоит только во вставке поля в колонтитул. И всё же, если переменная для документа не нужна, то её можно не объявлять. Но документ открыть или создать нужно!

[madster]

viter.alex, спасибо!
Но на строке "Set wdDoc = wdApp.Documents.New() 'Новый документ" возникает ошибка.
Забыл уточнить, эти манипуляции нужно произвести для 2007 офиса.
Вот так у меня для 2003 офиса:

Public wrd As Object
Set wrd = CreateObject("Word.Document")
NormalTemplate.AutoTextEntries("Стр. <№> из <всего>").Insert Where:= _
     '   wrd.Sections(1).Footers(wdHeaderFooterPrimary).Range, RichText:=False

[Ципихович Эндрю]

доля правды есть, а как насчёт wdDoc As Word.Document - тип не определён

[madster]

Неужели такой сложный вопрос, что больше нет ответов?

[Казанский]

Вот так у меня для 2003 офиса
Попробуйте - работает даже в VBS

With CreateObject("Word.Document")
  .Application.NormalTemplate.AutoTextEntries("Стр. <№> из <всего>").Insert .Sections(1).Footers(1).Range, False
  .Application.Visible = True
End With

[Казанский]

Правильнее, конечно, вводить отдельные поля, иначе в другой локали "Стр. <№> из <всего>" не сработает:

With CreateObject("Word.Document")
  Set ptr = .Sections(1).Footers(1).Range
  ptr.InsertAfter "Стр. "
  ptr.MoveEnd 6         'wdStory
  ptr.Collapse 0        'wdCollapseEnd
  .Fields.Add ptr, 33   'wdFieldPage
  ptr.MoveEnd 6
  ptr.InsertAfter " из "
  ptr.MoveEnd 6
  ptr.Collapse 0
  .Fields.Add ptr, 26   'wdFieldNumPages
  .Application.Visible = True
End With

Наверно, можно сдвигать и коллапсировать Range в одно действие. Кто-нибудь знает, как?

[madster]

Сообщение от Казанский

Попробуйте - работает даже в VBS

В новосозданном excel файле (2007 офис), запускаю и получаю ошибку:
Run-time error '5941':
Запрашиваемый номер семейства не существует