Слетает форматирование страниц

[ArtNeoX]

Создаю новый документ, устанавливаю свою ширину полей. Запуск все ок.
При работающей программе закрываю word [x]
Запускаю свою программу на выполнение повторно - поля по программе в word не устанавливаются.

Код: Выделить всё

Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Visible = False
Dim DocWord As Word.Document
Set DocWord = WordApp.documents.Add
DocWord.Activate

With DocWord.Application.Selection.PageSetup
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(1.5)
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(2)
End With
WordApp.Visible = True
End Sub


[Хакер] :: Переношу в раздел по VBA.

[Qwertiy]

поля по программе в word не устанавливаются.

А что содержит Selection? B вообще, если выполнять по шагам, то в каком месте начинается разное поведение или различаются значения переменных?

[Хакер] :: Переношу в раздел по VBA.

Почему? Это же VB6.