Как разбивать документ на колонки?(не таблица)

[Diego__]

Пишу на плюсах.
Хочу узнать как разбить страницу на колонки. Как вообще создавать их программным путем? Буду рад ссылке на ресурс или простенькому примеру.

Хочется реализовать что то на подобии: разбить страницу сначала на 3 колонки, а затем, эту же страницу на 2 колонки. Можно ли в колонке создавать подколонки?

Буду рад ссылке на ресурс или любим сложным / простенькому примерам на любых языках программирования.

[Busine2009]

Вот так можно разбить весь документ на 3 колонки. Я этот код добыл с помощью макрорекордера. Затем в VBA убрал лишнее.

Sub РазбивкаНаКолонкиОднако ()
With ActiveDocument.PageSetup.TextColumns
        .SetCount NumColumns:=3
        .EvenlySpaced = True
        .LineBetween = False
        .Width = CentimetersToPoints(4.67)
        .Spacing = CentimetersToPoints(1.25)
    End With
End Sub

[Diego__]

Спасибо, немного разобрался.
На плюсах это выглядит где то так:

CComVariant width(m_AppWord->CentimetersToPoints(3));
CComVariant spacing(m_AppWord->CentimetersToPoints(0.5f));

m_WordDocument->PageSetup->TextColumns->Add(&width, &spacing);

Теперь не могу понять, я добавляю еще одну колонку к уже имеющейся. Как мне удалить первую, которая создается в документе изначально?
Или как изменить ее width и spacing?

Пробую
m_WordDocument->PageSetup->TextColumns->Item(2)->PutWidth(m_AppWord->CentimetersToPoints(5));

бросается исключение. Как правильно задать ширину уже имеющейся колонке?

[Busine2009]

Вы адресом ошиблись: здесь союз VBA и Word.

Кстати не в курсе как с помощью плюсов зайти в свойства принтера? В Word есть диалоговое окно Печать (Файл - Печать), а в нём есть кнопка свойства (это программа драйвера принтера).
Может сталкивался, дай ссылку куда-нибудь.

[viter.alex]

А откуда взялся метод PutWidth? У элемента коллекции Columns есть свойство Width, его и нужно задавать
Расстояние между колонками можно задавать либо через Spacing для всей коллекции Columns, либо через SpaceAfter для элемента этой коллекции. Если расстояния между колонками неодинаковые, то свойство ActiveDocument.PageSetup.TextColumn s.EvenlySpaced будет установлен в значение False

[Diego__]

в плюсах у коллекции колонок и у каждой колонки есть методы PutWidth, put_Width и свойство Width при использовании любого из них результат печальный