Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте, как сделать как таблицу № 2 в приложенном файле?
??
ответ очевиден
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1
ActiveDocument.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(21.2)
но это не то, получается как в приложенном файле таблица № 1 спасибо
А где файл?
странно, не прикрепился в первый раз, а надо было жать - Загрузить, сорри
Вот код
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спасибо, и для полного счастья как указать ширину таблицы - 21,2??
tbl.PreferredWidth = CentimetersToPoints(21.2)
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться