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

Программирование на Visual Basic for Applications
ArtNeoX
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 17.02.2014 (Пн) 18:41

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

Сообщение ArtNeoX » 01.03.2014 (Сб) 10:27

Создаю новый документ, устанавливаю свою ширину полей. Запуск все ок.
При работающей программе закрываю 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
Доктор VB наук
Доктор VB наук
 
Сообщения: 2751
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 01.03.2014 (Сб) 18:12

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

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

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

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


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 5

    TopList