1

Тема: добавить таблицу

Здравствуйте, как сделать  как таблицу № 2 в приложенном файле?
??
ответ очевиден

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1
    ActiveDocument.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(21.2)

но это не то, получается как в приложенном файле таблица № 1 спасибо

2

Re: добавить таблицу

А где файл?

3

Re: добавить таблицу

странно, не прикрепился в первый раз, а надо было жать  - Загрузить, сорри

Post's attachments

21,2.doc 24 Кб, 1 скачиваний с 2012-02-19 

You don't have the permssions to download the attachments of this post.

4

Re: добавить таблицу

Вот код

Dim tbl As Table
Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, NumColumns:=1)
    tbl.PreferredWidth = Selection.PageSetup.PageWidth
    With tbl.Rows
        .WrapAroundText = True
        .HorizontalPosition = wdTableCenter
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .DistanceLeft = MillimetersToPoints(0)
        .DistanceRight = MillimetersToPoints(0)
        .VerticalPosition = MillimetersToPoints(0)
        .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
        .DistanceTop = MillimetersToPoints(0)
        .DistanceBottom = MillimetersToPoints(0)
        .AllowOverlap = False
    End With

5

Re: добавить таблицу

спасибо, и для полного счастья как указать ширину таблицы - 21,2??

6

Re: добавить таблицу

tbl.PreferredWidth = CentimetersToPoints(21.2)