Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 6 ]
- Ципихович Эндрю
- генерал-полковник
- Неактивен
- Зарегистрирован: 04.02.2010
- Сообщений: 506
- Поблагодарили: 23
Тема: добавить таблицу
Здравствуйте, как сделать как таблицу № 2 в приложенном файле?
??
ответ очевиден
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1
ActiveDocument.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(21.2)
но это не то, получается как в приложенном файле таблица № 1 спасибо
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
- Ципихович Эндрю
- генерал-полковник
- Неактивен
- Зарегистрирован: 04.02.2010
- Сообщений: 506
- Поблагодарили: 23
Re: добавить таблицу
странно, не прикрепился в первый раз, а надо было жать - Загрузить, сорри
Post's attachments21,2.doc 24 Кб, 1 скачиваний с 2012-02-19
You don't have the permssions to download the attachments of this post.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
- За сообщение: 1
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
- Ципихович Эндрю
- генерал-полковник
- Неактивен
- Зарегистрирован: 04.02.2010
- Сообщений: 506
- Поблагодарили: 23
Re: добавить таблицу
спасибо, и для полного счастья как указать ширину таблицы - 21,2??
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
- За сообщение: 1
Re: добавить таблицу
tbl.PreferredWidth = CentimetersToPoints(21.2)
Сообщений [ 6 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
добавить таблицу
Большинство пользователей владеет начальными знаниями по работе с текстом в Microsoft Word. Но как невозможно делать сложные расчеты без высшей математики, так и работать с большим объемом текста, обладая только базовыми знаниями, это сизифов труд. Наш сайт о Microsoft Office Word даст ответ про: чем открыть word.
Поэтому, овладев основами, стоит расширять и углублять свои навыки.
Тут хорошим подспорьем служат специализированные сайты. Наш сайт о Microsoft Office Word даст ответ про: поиск слов из текста.
Один из лучших русскоязычных – Ворд Эксперт. На сайте вы найдете необходимую информацию, на форуме сайта можете тренировать свои практические навыки, разобраться с возникающими проблемами. Наш сайт о Microsoft Office Word даст ответ про: как писать тему в ворде без пробелов.
На форуме имеются разделы, посвященные оптимизации и автоматизации работе в Ворде, также вы можете оставить заявку и получить готовое решение проблемы. На портале о Microsoft Office Word вы узнаете про: где в ворде 2003 equashin найти.