Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 3 ]
- Monty65
- рядовой
- Неактивен
- Зарегистрирован: 06.01.2016
- Сообщений: 1
Тема: Форматирование таблиц по левому краю
Добрый день!
Есть файлик на 2 тысячи страниц, в нем порядка 10 000 таблиц в перемешку с обычным текстом.
Нужен макрос на выравнивание всех таблиц - слева
Именно таблиц, а не текста внутри них!
Зарание спасибо!
- yshindin
- генерал-полковник
- Неактивен
- Откуда: Москва
- Зарегистрирован: 12.05.2012
- Сообщений: 447
- Поблагодарили: 171
Re: Форматирование таблиц по левому краю
Monty65 пишет:Добрый день!
Есть файлик на 2 тысячи страниц, в нем порядка 10 000 таблиц в перемешку с обычным текстом.
Нужен макрос на выравнивание всех таблиц - слева
Именно таблиц, а не текста внутри них!
Зарание спасибо!
Попробуйте этот макрос. Здесь в переменной leftpos следует указать значение отступа левого края для всех таблиц в документе.
-------------------------------------------------------
Sub SetTablesPosInDoc()
Dim tbl As Word.Table
Dim leftpos As Variant
leftpos = 0.5
For Each tbl In ActiveDocument.Tables
tbl.Rows.LeftIndent = CentimetersToPoints(leftpos)
Next
-------------------------------------------------------
- yshindin
- генерал-полковник
- Неактивен
- Откуда: Москва
- Зарегистрирован: 12.05.2012
- Сообщений: 447
- Поблагодарили: 171
Re: Форматирование таблиц по левому краю
yshindin пишет:Попробуйте этот макрос.
Забыл указать End Sub:
'---------------------------------------------
Sub SetTablesPosInDoc()
Dim tbl As Word.Table
Dim leftpos As Variant
leftpos = 0.5
For Each tbl In ActiveDocument.Tables
tbl.Rows.LeftIndent = CentimetersToPoints(leftpos)
Next
End Sub
'---------------------------------------------
Сообщений [ 3 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форматирование таблиц по левому краю
Такому мощному редактору текстов, как Microsoft Word, посвящено очень много литературы. Эта программа настолько многогранна и многозадачна, что изучить все тонкости работы с ней очень сложно. Наш сайт о Microsoft Office Word даст ответ про: не печатает рамку до конца.
Можно долгое время пользоваться Вордом и не подозревать о многих его скрытых возможностях.
На форуме сайта Ворд Эксперт собрана наиболее полная информация о функциях и нюансах работы различных версий приложения. На портале о Microsoft Office Word вы узнаете про: смарт-теги ворд.
Посетив форум, пользователь Ворда сможет не только найти готовые решения многих проблем, но и обсудить трудности и интересующие операции. На портале о Microsoft Office Word вы узнаете про: редактор normal.dot.
Самые часто задаваемые вопросы (такие, как удаление лишних пробелов, абзацев, написание макросов в автоматическом режиме, назначение горячих клавиш для макросов и многое другое) собраны в один подраздел. Наш сайт о Microsoft Office Word даст ответ про: антоним к слову замереть.
На форуме большое внимание уделено автоматизации различных операций. Предложены шаблоны и макросы для написания списков, печати больших текстовых массивов, работы с таблицами и иных часто повторяющихся операций. На портале о Microsoft Office Word вы узнаете про: слетела система как узнать ключ активации microsoft office 2007.
В своем подразделе обсуждается форматирование и редактирование текста, настройки различных версий программы. Наш сайт о Microsoft Office Word даст ответ про: как поставить нумерацию в ворде не с первого листа.
Здесь вы найдете сведения о любой версии Ворда.
Наконец, вы просто можете оставить заявку на выполнение любой операции, описав проблему в подразделе «Заявки на разработку». На портале о Microsoft Office Word вы узнаете про: как сделать что и 2 страницу в ворде не нумеровал.
Для свободного общения предусмотрена «Курилка».