Спасибо!
Разобрался.

Тема закрыта.

Приветствую!
Вопрос.
Из Excel в Word рисую "шапку" документа.
Использую позднее связывание:




Выравнивать по центру - wdAlignParagraphCenter не хочет.
ошибки не выдает.

на строчке .EndKey Unit:=wdLine выдает ошибку


при включении библиотеки word через references (не меняя код) все работает.

Подскажите, где ошибка!

Приветствую!
Вопрос.
Из Excel в Word рисую "шапку".
Использую позднее связываение:

Dim oWord As Object, oDoc As Object

Set oWord = CreateObject("Word.Application"
oWord.Visible = True
Set oDoc = oWord.Documents.Add()
oDoc.Activate

oWord.Selection.PageSetup.TopMargin = oWord.CentimetersToPoints(1.5)
   oWord.Selection.PageSetup.BottomMargin = oWord.CentimetersToPoints(1.5)
   oWord.Selection.PageSetup.LeftMargin = oWord.CentimetersToPoints(2.5)
   oWord.Selection.PageSetup.RightMargin = oWord.CentimetersToPoints(2)
   oWord.Selection.PageSetup.Gutter = oWord.CentimetersToPoints(0)
   oWord.Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
 wdAlignPageNumberRight, FirstPage:=True

 With oWord.Selection
 .Font.Bold = True
 .ParagraphFormat.Alignment = wdAlignParagraphCenter
 .Font.Size = 11.5
 .TypeText Text:="Текст"
 .TypeParagraph
 .TypeText Text:="Текст"
 .TypeParagraph
 .TypeText Text:="Текст"
 .TypeParagraph
 .TypeParagraph
 .Font.Size = 11.5
 .ParagraphFormat.Alignment = wdAlignParagraphLeft
 .Font.Bold = wdToggle
 .Font.Color = wdColorBlack
 .Font.Underline = wdUnderlineSingle
 .TypeText Text:="Текст"
 .Font.Underline = wdUnderlineNone
 .TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab
 .TypeParagraph
 .TypeParagraph
 .Font.Underline = wdUnderlineSingle
 .TypeText Text:="Текст"
 .Font.Underline = wdUnderlineNone
 .EndKey Unit:=wdLine
End With



Выравнивать по центру - wdAlignParagraphCenter не хочет.
ошибки не выдает.

на строчке   .EndKey Unit:=wdLine выдает ошибку


при включении библиотеки word через references (не меняя код) все работает.

Подскажите, где ошибка!