Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/54: Рейтинг темы: голосов - 54, средняя оценка - 4.63
361 / 38 / 2
Регистрация: 16.03.2013
Сообщений: 186
1

Word: макрос для таблиц. Отформатировать определенный вид таблиц

17.03.2013, 20:17. Показов 10670. Ответов 4
Метки нет (Все метки)

В документе два вида таблиц. Первый тип таблиц имеет вертикальную шапку сбоку (левый столбец) и состоит она всегда из двух столбцов. Второй тип таблиц имеет горизонтальную шапку.
Необходимо, отформатировать второй тип таблиц: шапку по центру задать жирную и текст - 12 Таймз Роман.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2013, 20:17
Ответы с готовыми решениями:

Оптимизировать макрос, сравнивающий значения в столбцах двух различных таблиц Word
Sub sravnenie() Dim i,j,iCount9, iCountn As integer ...

Макрос: Написать макрос по сравнению двух таблиц для нахождения несоответствий...
знатоки, прошу помощи в еще одном деле: есть два листа, --в одном список: яблоко, груша, слива, ...

Макрос для сверки таблиц (VBA)
Добрый день, помогите решить один вопрос. Нужен макрос для сверки таблиц (см. файл). В файле...

Макрос для создания и заполнения таблиц
Всем доброго времени суток! Необходимо сделать так, чтобы при запуске макроса открывались окошки...

4
15019 / 6347 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
17.03.2013, 20:46 2
Цитата Сообщение от Slamzor Посмотреть сообщение
Первый тип таблиц ... состоит она всегда из двух столбцов
Если полагать, что таблица второго типа состоит из большего числа столбцов, а "шапка" - это первая строка таблицы, то так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Макрос1()
Dim t As Table
For Each t In ActiveDocument.Tables
    If t.Columns.Count > 2 Then 'таблица второго типа?
        With t.Rows(1).Range
            .Font.Name = "Times New Roman"
            .Font.Bold = True
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
        End With
    End If
Next
End Sub
1
361 / 38 / 2
Регистрация: 16.03.2013
Сообщений: 186
17.03.2013, 20:55  [ТС] 3
В принципе, может так случится, что второй тип будет из двух столбцов, но это редкость и как исключение.
У меня только шапка по центру не форматируется - во втором типе соответственно. Можно это как то подкрутить ?
0
15019 / 6347 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
17.03.2013, 21:18 4
Приложите файл с таблицами обоих типов (Расширенный режим - Управление вложениями).
Надо понять, как устроена "шапка".
0
361 / 38 / 2
Регистрация: 16.03.2013
Сообщений: 186
17.03.2013, 21:35  [ТС] 5
Пардон, работает. Что то тут со стилями какая то "шляпа" творится. Очистить стиль и применить "Таблица" помогает.
Если вот такие разношерстные таблицы попадаются можно их как то под единый стиль причесать? Если внести очистить стиль и применить "Таблица" может помочь сие действие в данном случае?
0
Вложения
Тип файла: docx Пример_таблицы.docx (34.0 Кб, 62 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2013, 21:35

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Макрос не работает для множества таблиц
Если создать новый документ и поместить в него две таблицы, то этот макрос работает, а в...

Изменить макрос для обновления сводных таблиц
Привет! Срочно нужна помощь! У меня был Excel файл, в котором все сводные таблицы были на 1...

Макрос для больших таблиц по отбору нужной информации
Из файла нужно отобрать строки. И скопировать их в новую книгу. Критерии отбора нужных строк...

Подкорректировать макрос для удаления/вставки названия таблиц
Добрый день. Имею два макроса. один удаляет, а другой вставляет названия таблиц. Первый макрос...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.