Возникла такая проблема - из экселевского файла делаю выгрузку в Word - необходимо добавить номер страницы в верхний колонтитул. При отработке код выдаёт ошибку на попытке вставить поле - выделил красным.
Кто-нибудь может подсказать в чём проблема?
[vba]
Код
Sub cr() Dim WordApp As Object Set WordApp = CreateObject("Word.Application") With WordApp .Visible = True .Documents.Add .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader .ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=1, NumColumns:= _ 1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed .ActiveDocument.Tables(1).Cell(1, 1).Select .Selection.TypeText Text:="Страница " [color=red] .Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "PAGE ", PreserveFormatting:=True[/color=red] .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument .Activate End With End Sub
[/vba]
Здравствуйте, коллеги.
Возникла такая проблема - из экселевского файла делаю выгрузку в Word - необходимо добавить номер страницы в верхний колонтитул. При отработке код выдаёт ошибку на попытке вставить поле - выделил красным.
Кто-нибудь может подсказать в чём проблема?
[vba]
Код
Sub cr() Dim WordApp As Object Set WordApp = CreateObject("Word.Application") With WordApp .Visible = True .Documents.Add .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader .ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=1, NumColumns:= _ 1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed .ActiveDocument.Tables(1).Cell(1, 1).Select .Selection.TypeText Text:="Страница " [color=red] .Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "PAGE ", PreserveFormatting:=True[/color=red] .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument .Activate End With End Sub