Размеры документа Word

[Amed]

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

Private wrd As New Word.Application

'...

'Единицы измерения - миллиметры
wrd.Options.MeasurementUnit = wdMillimeters
'Добавляем документ
wrd.Documents.Add
'Устанавливаем поля документа
With wrd.ActiveDocument.PageSetup
    .PaperSize = wdPaperA4
    .leftMargin = 15
    .rightMargin = 15
    .topMargin = 15
    .bottomMargin = 15
End With

После этого в пропертях документа поля получаются не по 1,5 сантиметра, а по 0,53. В чём ошибка?

[GSerg]

Дык это.
Ты ставишь, в чём отображать по дефолту. А проперти как были в пойнтах. так в них и остались

[Amed]

Спасибо, действительно. Всё очень просто:

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

Dim PTS As Single
PTS = wrd.Application.CentimetersToPoints(1.5)

'Единицы измерения - миллиметры
wrd.Options.MeasurementUnit = wdCentimeters
'Добавляем документ
wrd.Documents.Add
'Устанавливаем поля документа
With wrd.ActiveDocument.PageSetup
    .PaperSize = wdPaperA4
    .leftMargin = PTS
    .rightMargin = PTS
    .topMargin = PTS
    .bottomMargin = PTS
End With