Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 5 ]
- Зарегистрирован: 21.09.2014
- Сообщений: 3
Тема: Таблица. Фиксированная ширина по всему тексту
Нашел тут макрос для изменения ширины всех таблиц в документе по ширине страницы.
Удобно, но при этом границы самой таблицы выходят за границы текста. Не красиво, а иногда выпадают из области печати.
Основные решения: зафиксировать ширину таблицы или потом делать отступы ячеек справа и слева по 0 мм и мудрить с абзацами. Все это сводит прелесть макроса на нет.
Можно ли сделать макрос, чтоб заменял внешние размеры всех таблиц в тексте по ширине текста или по одинаковой для всех ширине (которую я сам подберу, зная ширину текста)
- shanemac51
- генерал-полковник
- Неактивен
- Зарегистрирован: 05.03.2012
- Сообщений: 467
- Поблагодарили: 119
Re: Таблица. Фиксированная ширина по всему тексту
я постоянно применяю макрос, автоподбирающий ширину таблицы по странице
и проблем нет
каким макросом пользуетесь вы?
- Зарегистрирован: 21.09.2014
- Сообщений: 3
Re: Таблица. Фиксированная ширина по всему тексту
Нашел вот этот макрос http://wordexpert.ru/page/kak-vyirovnya … irine-okna
Работает отлично, но как уже говорил, границы таблицы получаются шире границ текста на величину отступов в ячейке 0,19 см (по умолчанию если, слева и справа). Хотелось бы чтоб границы таблицы совпадали или были чуть меньше границ текста (т.е. размеров листа минус поля).
- shanemac51
- генерал-полковник
- Неактивен
- Зарегистрирован: 05.03.2012
- Сообщений: 467
- Поблагодарили: 119
Re: Таблица. Фиксированная ширина по всему тексту
попробуйте так
Sub tableAutoFit_140923()
' Выравнивает все таблицы в документе по ширине окна
Dim myTable As Table
For Each myTable In ActiveDocument.Tables
''myTable.AutoFitBehavior wdAutoFitWindow
'''''''''''''''''''''''''''''''''
With myTable
.Spacing = 0
.AllowAutoFit = False
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 97
.Rows.LeftIndent = CentimetersToPoints(0.3)
End With
'''''''''''''''''''''''''''''''''
Next myTable
End Sub
- Зарегистрирован: 21.09.2014
- Сообщений: 3
Re: Таблица. Фиксированная ширина по всему тексту
Спасибо, пробую.
Почему-то не не на все таблицы действует одинаково (некоторые иногда наоборот уменьшает), но изначально это то что я и хотел.
Разбираюсь.
Сообщений [ 5 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Таблица. Фиксированная ширина по всему тексту
Людям, работающим с большими объемами различных текстов, освоив основы работы с текстовым редактором, необходимо двигаться дальше, чтобы использовать его возможности и функции по максимуму. На портале о Microsoft Office Word вы узнаете про: wordpad инструкция.
О скрытых функциях, тонких настройках и инструментах автоматизации приложения Microsoft Word самую полную информацию можно найти на сайте форума Ворд Экперт. Наш сайт о Microsoft Office Word даст ответ про: word 2010 ограничение по количеству столбцов.
Здесь уделяется место созданию шаблонов, написанию макросов, особенностям работы с различными видами текстов, таблиц и иллюстраций во всех версиях программы. На портале о Microsoft Office Word вы узнаете про: как текст капслоком перевести в нормальные буквы.
Предлагаются и готовые решения для различных задач по оформлению, редактированию и набору текста.
Также есть возможность оставить заявку в разработку. На портале о Microsoft Office Word вы узнаете про: как сделать диагональную надпись в ворде.