Как установить настраиваемые поля программно в MS Office Word?

[Slap]

Необходимо установить поля (не по умолчанию): верхнее (1см), нижнее(1см), левое(1.27), правое(1.27) (под полями подразумевается границы страницы, отступы от краев). С помощью каких методов это можно сделать? Реализовать задачу с помощью JScript (желательно) или VBA

[viter.alex]

VBA пожалуйста

With ActiveDocument.PageSetup
	.TopMargin = CentimetersToPoints(1)
	.BottomMargin = CentimetersToPoints(1)
	.LeftMargin = CentimetersToPoints(1.27)
	.RightMargin = CentimetersToPoints(1.27)
End With

А для JScript, думаю, нужно смотреть работу с COM-объектами, а остальное всё так же