Применить форматирование ко всем таблицам word

Microsoft Word позволяет применять форматирование к большим фрагментам текста. Вы можете скопировать форматирование, примененное к одному биту текста, и применить его ко всем абзацам и разделам всего за несколько щелчков мышью. К сожалению, это не относится к таблицам. Если вы хотите изменить стиль для всех таблиц в конкретном документе, вам придется выбрать каждую из них отдельно и изменить стиль. Альтернативой является использование макроса для этого.

Найти стиль таблицы

Прежде чем вы сможете создать макрос, вам нужно найти имя стиля таблицы, который вы хотите применить. Это довольно просто. Откройте документ Word, для которого вы хотите изменить стили таблицы. Щелкните внутри таблицы и перейдите на вкладку «Дизайн» на вкладке «Работа с таблицами».

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

Макрос стиля таблицы

Включите вкладку «Разработчик» в Word, выбрав «Файл»> «Параметры»> «Настроить ленту». Включите панель инструментов разработчика, а затем вернитесь к своему документу.

На вкладке Разработчик щелкните Макросы. Дайте ему следующее имя;

ApplyTableStyle

Нажмите «Создать» и введите следующее в поле кода, однако вам необходимо отредактировать эту строку: tbl.Style = «Среднее затенение 2 — Акцент 1». Замените бит внутри кавычек именем стиля таблицы, который вы скопировали на предыдущем шаге. Не удаляйте кавычки из кода. Просто введите имя стиля таблицы и запустите его.

Sub ApplyTableStyle()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.Style = "Medium Shading 2 - Accent 1"
Next
End Sub

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

Если вам когда-нибудь понадобится изменить стиль, к которому применяется макрос, вам нужно будет отредактировать код и заменить имя стиля, который вы хотите применить. Макрос применяет стили ко всем текущим и всем новым таблицам в документе. Очевидно, это было бы проще, если бы в Microsoft Word была встроенная опция для этого. Это кажется странным недостатком для приложения.

Источник

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

Изменить стиль всех таблиц с помощью VBA

Измените стиль всех таблиц с помощью Kutool for Word

Изменить стиль всех таблиц с помощью VBA

Мы можем использовать VBA для изменения стиля всех таблиц.

1, нажмите Alt + F11 открыть окно VBA в Word;

2. Нажмите Модули in Вставить вкладка и вставьте код VBA в Модули окно;

Код VBA: изменить стиль всех таблиц

Sub ApplyTableStyle()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Style = "Light Shading - Accent 3" 
Next 
End Sub

Внимание: В приведенном выше коде Затенение света — Акцент 3 это название стиля, вы можете изменить его по своему усмотрению.

3, нажмите F5 ключ для запуска этого кода, и все таблицы были изменены на ваш указанный стиль.

Измените стиль всех таблиц с помощью Kutool for Word

Если вы не хотите использовать VBA, вы также можете быстро это сделать с помощью Kutools for Word. После того, как вы установили Kutool for Word, вы можете быстро изменить стиль всех таблиц. Сделайте следующее:

1. Пожалуйста, примените эту утилиту, нажав Кутулс > таблицы > Выбрать таблицы. Смотрите скриншот:

Внимание: Если вы хотите использовать Выбрать таблицы возможность выбора всех таблиц во всем текстовом документе, сначала поместите курсор за пределы таблиц.

2. После выбора всех таблиц нажмите Дизайн на ленте, а затем щелкните документ изменить стиль таблицы 2 , чтобы выбрать стиль таблицы, который вы хотите изменить в документе. Смотрите скриншот:

документ изменить стиль таблицы 2

3. После выбора стиля таблицы вы увидите, что стиль таблицы изменен. Смотрите скриншот:

документ изменить стиль таблицы 3

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

Нажмите, чтобы скачать Kutools for Word и бесплатная пробная версия прямо сейчас!

Демо: список и редактирование всех гиперссылок в Word

Рекомендуемые инструменты для повышения производительности Word

выстрел kutools word kutools tab 1180x121

выстрел kutools word kutools plus tab 1180x120

Kutools For Word — Более 100 расширенных функций для Word, сэкономьте 50% времени

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.

Комментарии (3)


Оценок пока нет. Оцените первым!

Источник

Как в Ворде выделить таблицу?

Также статьи о работе с таблицами в Ворде:

Для применения одинаковых параметров форматирования ко всей таблице в Word, ее необходимо полностью выделить, и далее мы рассмотрим, как в Ворде выделить таблицу.

В принципе, вариантов тут немного, а вернее только два, не учитывая применение макросов. Выделить таблицу в Word можно выделив все ячейки таблицы мышкой, либо нажав на крестик в верхнем левом углу, который появляется при наведении курсора на таблицу. При этом сразу появляется вкладка «Работа с таблицами» для настройки таблиц.

Выделение всей таблицы в Ворде для дальнейшей настройки

Выделение же классическим методом комбинацией клавиш «Ctrl+A» позволяет выделить все, включая таблицы, но при этом вкладка «Работа с таблицами» не появится, так как для этого таблица должна быть активна, т.е. курсор должен быть расположен внутри нее.

Массовое выделение элементов докумена (таблиц, рисунков)

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 17 ]

1 Тема от 1st 28.02.2011 12:12:19

  • 1st
  • сержант
  • Неактивен
  • Зарегистрирован: 04.04.2010
  • Сообщений: 10
Тема: Массовое выделение элементов докумена (таблиц, рисунков)

Доброго времени суток!
Имеется документ, элементы которого (таблицы или рисунки) необходимо форматировать определенным образом. Для этого нужно массовое их выделение с последующим применением различных стилей. Пожалуйста помогите с макросами, который позволил бы выделить отдельно рисунки (и отдельно таблицы). Благодарю!

2 Ответ от Ципихович Эндрю 28.02.2011 17:42:47

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23
Re: Массовое выделение элементов докумена (таблиц, рисунков)

если надо несколько таблиц сразу надо узнать начало первой и конец второй и выделить, не смежные части в доке выделить никак

Выделять как таблицы

Отредактировано Ципихович Эндрю (28.02.2011 17:43:49)

3 Ответ от ЮВ 28.02.2011 18:28:06

  • ЮВ
  • генерал-лейтенант
  • Неактивен
  • Зарегистрирован: 28.07.2010
  • Сообщений: 284
  • Поблагодарили: 43
  • За сообщение: 1
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Я не программирую на VBA, поэтому предложение может оказаться неверным.
Подсчитать кол-во таблиц в документе
CountTab=ActiveDocument.Tables.Count
и потом в цикле их выделить
for i=1 to CountTab
ActiveDocument.Tables(i).Select
end

4 Ответ от Ципихович Эндрю 28.02.2011 21:26:56

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23
Re: Массовое выделение элементов докумена (таблиц, рисунков)

да всё верно, смотря что автору нужно

5 Ответ от 1st 01.03.2011 10:31:25

  • 1st
  • сержант
  • Неактивен
  • Зарегистрирован: 04.04.2010
  • Сообщений: 10
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Я не программирую на VBA, поэтому предложение может оказаться неверным.
Подсчитать кол-во таблиц в документе
CountTab=ActiveDocument.Tables.Count
и потом в цикле их выделить
for i=1 to CountTab
ActiveDocument.Tables(i).Select
end

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

Я думал, что можно одним макросом выделить все таблицы (т.е. это как при нажатом ctrl выделяю мышью таблицы в документе) и отформатировать их по своему усмотрению.

Отредактировано 1st (01.03.2011 19:27:36)

6 Ответ от ЮВ 01.03.2011 13:28:05

  • ЮВ
  • генерал-лейтенант
  • Неактивен
  • Зарегистрирован: 28.07.2010
  • Сообщений: 284
  • Поблагодарили: 43
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Я думал, что можно одним макросом выделить все таблицы (т.е. при нажатом ctrl выделяю мышью таблицы в документе) и отформатировать их по своему усмотрению.

Если нажать Ctrl (программно) и запустить макрос — множественное выделение не выполняется?

7 Ответ от Ципихович Эндрю 01.03.2011 19:10:06

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Не парьтесь:
Я думал, что можно одним макросом выделить все таблицы (т.е. при нажатом ctrl выделяю мышью таблицы в документе) и отформатировать их по своему усмотрению.
Макрос это сделает если у Вас не 600-700 таблиц легко просто будет делать циклом или при условии, что эти таблицы идут следом одна за другой всё можно их выделить сразу все

8 Ответ от ЮВ 02.03.2011 22:00:15

  • ЮВ
  • генерал-лейтенант
  • Неактивен
  • Зарегистрирован: 28.07.2010
  • Сообщений: 284
  • Поблагодарили: 43
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Честно говоря, так и не понял — проблема решена или нет?

9 Ответ от Вождь 03.03.2011 06:01:59

  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Если изначально таблицы одного стиля, то делаем так:

Рисунки «в тексте» (InLineShapes) выбрать можно только по одному, а все рисунки «перед текстом» (Shapes) выделяем так:

Для массовой обработки последних не обязательно их выбирать, можно и так:

10 Ответ от 1st 03.03.2011 08:59:06

  • 1st
  • сержант
  • Неактивен
  • Зарегистрирован: 04.04.2010
  • Сообщений: 10
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Честно говоря, так и не понял — проблема решена или нет?

Привет всем!
Вопрос актуален! Разбираюсь — читаю литературу по VBA. Может не понятен вопрос?
Имеется документ с множеством таблиц и рисунков. Мне нужно все таблицы в документе выровнять по ширине, текст в таблице по центру и т.д., т.е. применить определенный стиль для всех таблиц в документе. Искать, выделять и применять стиль для каждой? Очень большой документ, более 300 таблиц. Та же проблема и с рисунками.

Отредактировано 1st (03.03.2011 17:25:57)

11 Ответ от admin 04.03.2011 17:34:39

  • admin
  • Администратор
  • Неактивен
  • Откуда: Земля
  • Зарегистрирован: 15.12.2009
  • Сообщений: 508
  • Поблагодарили: 39
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Мне нужно все таблицы в документе выровнять по ширине

12 Ответ от Defor 25.10.2011 17:16:18

  • Defor
  • рядовой
  • Неактивен
  • Зарегистрирован: 25.10.2011
  • Сообщений: 2
Re: Массовое выделение элементов докумена (таблиц, рисунков)

День добрый.
Для меня сейчас актуален подвопрос текущего топика, а именно обработка параметра spacing для таблиц.
Так сложилось, что текст получен из html и все таблицы пришли с нулевым значением интервала между ячейками. На практике это приводит к появлению двойных границ каждой ячейки в таблице. Дабы этого избежать, параметр «Интервал между ячейками» можно отключить вручную. Однако. Таблиц то море.. А в макрос я могу записать только конкретное число большее либо равное нулю..
Есть ли возможность в VBA «снять галочку» с параметра spacing для каждой страницы?
Пример кода приложу, дабы не быть голословным (кусочно из этой темы):

13 Ответ от Defor 26.10.2011 10:58:45

  • Defor
  • рядовой
  • Неактивен
  • Зарегистрирован: 25.10.2011
  • Сообщений: 2
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Попробовал на чистом документе -> Создал произвольную таблицу (по умолчанию параметр/галочка Интервалы между ячейками отключен) -> Запустил процесс создания макроса -> Сначала активировал интервалы, потом снял.
Автоматический код привожу ниже:

Как видно, единственным отличаем является параметр «Spacing». Однако при выставлении его в 0 = параметр не деактивируется, а выставляется в нулевое значение ==> сдвоенные границы, что визуально сильно «карявит» документ..

14 Ответ от Ципихович Эндрю 26.10.2011 15:54:54

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23
Re: Массовое выделение элементов докумена (таблиц, рисунков)

не пойму кинули в документ 1 таблицу
сделали
ActiveDocument.Tables(1).Spacing = 10
вернули
ActiveDocument.Tables(1).Spacing = 0
Всё делается, всё возвращается, а про ту что с нета скачана ничего не знаю, там могут бытьтакие чудеса

15 Ответ от Slamzor 16.03.2013 19:14:40

  • Slamzor
  • сержант
  • Неактивен
  • Зарегистрирован: 13.12.2012
  • Сообщений: 32
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Рисунки «в тексте» (InLineShapes) выбрать можно только по одному

А как можно такие рисунки отделить и применить к ним форматирование?
Если на примере, то есть в документе такие рисунки: одни крупные к ним идет подпись из названия. Другие мелкие, размещены внутри текста. Нужно крупные рисунки разместить по центру, а мелкие не трогать.

16 Ответ от viter.alex 17.03.2013 01:13:25

  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 1
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Можно отобрать, например, по высоте или ширине

17 Ответ от Slamzor 17.03.2013 10:57:37

  • Slamzor
  • сержант
  • Неактивен
  • Зарегистрирован: 13.12.2012
  • Сообщений: 32
Re: Массовое выделение элементов докумена (таблиц, рисунков)

Спасибо большое!
А как можно тогда с таблицами поступить? Есть в документе два вида таблиц. Первый вид: имеет шапку сбоку, второй шапку сверху. Нужно второй вид вид таблиц изменить: 1) шапку по центру дать 2) Внутри весь текст 12 шрифт задать.

Сообщений [ 17 ]

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Выделение только текста (без таблиц и рисунков)
  • Выделение и редактирование только текста (без таблиц и рисунков)
  • Выделение графических элементов в Word 2010
  • Нумерация рисунков и таблиц по ГОСТу
  • Обновление номеров страниц, рисунков, таблиц и т.д.
  • Отображение рисунков и таблиц в модальном окне
  • Автоматическая нумерация формул/таблиц/рисунков
  • Сбой перекрестных ссылок на названия рисунков и таблиц

Массовое выделение элементов докумена (таблиц, рисунков)

Если у вам часто приходится работать с различными текстами, писать и обрабатывать их, то, скорей всего, у вас установлен редактор Microsoft Word. На портале о Microsoft Office Word вы узнаете про: код активации установки ms offis 2007. Какая бы версия программы у вас ни стояла, вряд ли вы используете больше двадцати процентов того, что эта программа может. На портале о Microsoft Office Word вы узнаете про: как убрать линию из таблицы в ворде. Если желаете узнать больше о работе в редакторе, то посетите форум Ворд Эксперт. Это русскоязычный сайт с доступным интерфейсом, простой регистрацией и множеством полезнейшей информации. Наш сайт о Microsoft Office Word даст ответ про: что сделать чтоб файл в microsoft word повернулся.

Портал разработан специально для пользователей редактора Microsoft Word. Зарегистрировавшись на портале, вы узнаете много новой и нужной информации, даже если вы давно и часто работаете в приложении. Наш сайт о Microsoft Office Word даст ответ про: ворд непечатные символы. На сайте представлена разнообразная литература и ответы на часто возникающие у пользователей Microsoft Word вопросы. На портале о Microsoft Office Word вы узнаете про: отступ первой строки абзаца гост. Вы легко научитесь оптимизировать свою работу и даже писать макросы. Готовые решения часто возникающих проблем вы можете найти в специальных разделах на сайте. На портале о Microsoft Office Word вы узнаете про: сохранить изменения нет.

При трудностях в работе с редактором или создании макросов вы всегда можете обратиться за помощью к опытным пользователям. На портале о Microsoft Office Word вы узнаете про: активация ворда. Можно задать любой вопрос о настройке, форматировании и автоматизации работы Microsoft Word, найти готовое решение или оставить заявку на написание макроса. На портале о Microsoft Office Word вы узнаете про: как подчеркивать пробелы в word.

Как в ворде выделить все таблицы одновременно

Доброе время суток!
Прошу помочь. Я не программист вообще, но уверенный пользователь. Могу очень уверенно переписать чужой код как обезьяна и немножко переделать его под себя.
Написала, перелопатив гору макросов , код, чтобы форматировать все таблицы в документе:

On Error Resume Next

Dim myTable As Table
Dim myCell As Cell
Dim myRange As Range
Dim с As Integer ‘Подсчёт количества столбцов в таблице
Dim i As Long

Application.ScreenUpdating = False ‘Запрет обновления экрана
For Each myTable In ActiveDocument.Tables

‘ Выровнять все столбцы по центру
‘Обрабатываем ячейки во всех столбцах кроме первого
‘Перебор всех ячеек
c = myTable.Columns.Count
For i = 2 To c
myTable.Columns(i).Select
Selection.Find.ClearFormatting
With Selection
For Each myCell In .Cells
myCell.Range.ParagraphFormat.Alignm ent = wdAlignParagraphCenter
myCell.Range.Cells.VerticalAlignmen t = wdCellAlignVerticalCenter
Next myCell
End With
Next i

‘ Применить ко всем таблицам одинаковый стиль
myTable.Style = ActiveDocument.Styles(«Средний список 2 — Акцент 2»)
myTable.Rows.Alignment = wdAlignRowCenter
myTable.AutoFitBehavior wdAutoFitWindow
myTable.Rows.HeightRule = wdRowHeightAuto
myTable.Rows.HeightRule = wdRowHeightAtLeast
myTable.Rows.WrapAroundText = False
myTable.PreferredWidthType = wdPreferredWidthPercent
myTable.PreferredWidth = 99
myTable.Range.Font.Size = 9
myTable.Rows.AllowBreakAcrossPages = False

With myTable.Range
.Find.ClearFormatting
.Find.Text = «^p» ‘Ищем вхождения переводов строк и удаляем их
.Find.Replacement.Text = «»
.Find.Forward = True
.Find.Execute Replace:=wdReplaceAll
For Each myCell In .Cells
Set myRange = myCell.Range
myRange.MoveEnd Unit:=wdCharacter, Count:=-1
myCell.Range.Text = Trim(myRange.Text) ‘Убираем пробелы
myCell.Range.ParagraphFormat.LeftIn dent = CentimetersToPoints(0)
myCell.Range.ParagraphFormat.FirstL ineIndent = 0
Next myCell
End With

With myTable.Rows(1)
.HeadingFormat = True ‘Установка заголовков для 1-х строк таблиц
.HeightRule = wdRowHeightAuto ‘Установка автовысоты первых строк
End With
With myTable.Rows(1)
For Each myCell In .Cells
myCell.Range.ParagraphFormat.Alignm ent = wdAlignParagraphCenter
myCell.Range.Cells.VerticalAlignmen t = wdCellAlignVerticalCenter
myCell.Range.ParagraphFormat.KeepWi thNext = True
Next myCell
End With

With myTable.Range
myTable.Select
Selection.Cells.DistributeWidth
End With
If Err.Number <> 0 Then Err.Clear
Next
Application.ScreenUpdating = True ‘Разрешаем обновление экрана
End Sub

Меня всё устраивает. Но есть одна загвоздка.
Вот это кусок кода делает ширину всех столбцов одинаковой.

With myTable.Range
myTable.Select
Selection.Cells.DistributeWidth
End With

А мне надо выровнять по ширине все столбцы, кроме первого. И с этим я не могу справиться. Ещё раз повторяю — не программист я, может, кто-нибудь подскажет, как исправить эту мелочь и ошибки во всём коде исправит?
Спасибо заранее.

Источник

#1

OFFLINE
 

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 14:07

Нужно всем таблицам в документе присвоить конкретный стиль «Таблица» (до этого у них стилей нет).

как их найти я знаю.. а как привоить стиль ХЗ

Нашел здесь код для автовыравнивания таблиц по границам страницы

Dim MyTbl As Table
For Each MyTbl In ActiveDocument.Tables
MyTbl.AutoFitBehavior wdAutoFitWindow
MyTbl.Style = ActiveDocument.Styles(«Таблица»)
Next MyTbl
End Sub

т.е. таблицу найти я могу, а как присвоить всей таблице стиль? :(

Кстати вот прикольная функция с того же сайта.
Правда мой вопрос она не решает :(

Массовое форматирование документов

Posted By Антон Кокин On августа 28, 2009 @ 21:08 In Макросы, Форматирование, Шаблоны Word | 10 Comments

Время от времени пользователям редактора Word требуется изменить что-то (текст, форматирование) сразу в нескольких документах, без необходимости работы с каждым документом по отдельности. В качестве примера могу привести Макрос пакетной замены (автор: Е.Родыгин), с помощью которого возможно искать и менять какой-то единый текст во многих документах одновременно.

И вот недавно ко мне обратился Дмитрий с просьбой помочь ему в аналогичной ситуации. Он спрашивал:
Дано очень много файлов формата rtf и doc. Необходимо их отформатировать разом, не открывая каждый в отдельности, а именно: изменить во всех размер шрифта на 12, поставить абзацы 1.25, сделать times new roman, изменить поля, покрасить текст в черный, интервал одинарный. Помогите, пожалуйста!

  • 0

  • Наверх

#2

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 14:43

запиши макрос (включаеш запись, присваеваеш стиль таблице, останавливаешзапись) — и посмори как происходит процедура присвоения стиля

  • 0

  • Наверх

#3

OFFLINE
 

Design_Nick

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 14:47

Такой макрос записать не могу :( В режиме записи мне не дает таблицу выделить. Сам в шоке. :(

  • 0

  • Наверх

#4

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 14:58

В режиме записи мне не дает таблицу выделить

гм… потыкался. если поставить запись на паузу — дает выделить таблицу. потом снова запись включаеш (имхо бред сивой кабылы)

вот что на выходе:

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    Selection.Tables(1).Style = "Светлая заливка"
    Selection.Tables(1).Style = "Светлая заливка - Акцент 1"
    Selection.Tables(1).Style = "Светлая заливка - Акцент 2"
    Selection.Tables(1).Style = "Светлая заливка - Акцент 3"
    Selection.Tables(1).Style = "Светлая заливка - Акцент 4"
    Selection.Tables(1).Style = "Светлая заливка - Акцент 3"
End Sub

  • 0

  • Наверх

#5

OFFLINE
 

Design_Nick

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 14:59

хы… ларчик просто открывался..

  • 0

  • Наверх

#6

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:00

получается нужно перебрать массив таблиц в документе и присвоить им истиль.

ps/ я с 1 табл. в доке попробовал

  • 0

  • Наверх

#7

OFFLINE
 

Design_Nick

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:00

Dim MyTbl As Table
For Each MyTbl In ActiveDocument.Tables
Application.Browser.Target = wdBrowseTable
Application.Browser.Next
Selection.Tables(1).Select
Selection.ClearFormatting
Selection.Style = ActiveDocument.Styles(«Таблица»)
Next MyTbl
End Sub

Нужно просто было воспользоваться функцией «Поиск таблицы» и далее через меню, а не через мышку.

На всякий случай я в таблице сначала удаляю форматирование, потом присваиваю.

Вот так вот.

silwer, отдельное спасибо что вернул меня из поиска в Инете решения, к поиску его через запись макроса.

  • 0

  • Наверх

#8

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:02

не.. некорретно.
шас попробую….

  • 0

  • Наверх

#9

OFFLINE
 

ZX_Spectrum

ZX_Spectrum

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:04

Сколько таблиц в документе?
Если не дает выделять таблицу в режиме записи макроса, то можно попробовать по другому: выделить таблицу, а затем записать макрос для применения стиля. После этого выбирать каждую таблицу и применять к ней макрос. Хотя это вариант, если таблиц не очень много и произвести действие нужно разово.

  • 0

  • Наверх

#10

OFFLINE
 

Design_Nick

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:08

от 40 до 300 таблиц :) и таких документов около 40 сейчас… и постоянно появляются.

не.. некорретно.
шас попробую….

Что именно некорректно? Цикл?

  • 0

  • Наверх

#11

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:19

вот так:

Sub Макрос1()

' применение ко всем таблицам документа
' единого стиля
    
    Dim i as integer
    
    For i = 1 To ActiveDocument.Tables.Count
        ActiveDocument.Tables(i).Style = "Светлая заливка - Акцент 1"
    Next i


End Sub

так проще помоему. =)

хотя именно со стилем «Таблица» что-то неканает. ненайден типа такой

есть стиль «Сетка таблицы»

Сообщение отредактировал silwer: 07 Ноябрь 2009 — 15:23

  • 0

  • Наверх

#12

OFFLINE
 

Design_Nick

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:38

хотя именно со стилем «Таблица» что-то неканает. ненайден типа такой

Потому что у тебя такого нет ;) Это созданный мной стиль и его нет в стилях по-умолчанию.

  • 0

  • Наверх

#13

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 15:41

ну тогда понятно. =)
надеюсь все получится

  • 0

  • Наверх

#14

OFFLINE
 

Design_Nick

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 16:57

Пока так оставил:

Dim MyTbl As Table
For Each MyTbl In ActiveDocument.Tables
Application.Browser.Target = wdBrowseTable
Application.Browser.Next
Selection.Tables(1).Select
Selection.ClearFormatting
Selection.Style = ActiveDocument.Styles(«Таблица»)
Selection.Rows.AllowBreakAcrossPages = False
Next MyTbl
End Sub

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

  • 0

  • Наверх

#15

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 17:10

а.. ну тогда дополним нужные дейсвтия

Sub Макрос1()
'
' Макрос1 Макрос
'
    
    Dim i as integer 
    
    For i = 1 To ActiveDocument.Tables.Count
        
        ActiveDocument.Tables(i).Select
        Selection.ClearFormatting
        Selection.Style = ActiveDocument.Styles("Таблица")
        Selection.Rows.AllowBreakAcrossPages = False
        
    Next i


End Sub

хотя может и не принципиально, но зачем юзать поиск, если уже существует массив объектов и его проще перебрать.

  • 0

  • Наверх

#16

OFFLINE
 

Design_Nick

Design_Nick

    Больше информации +

Отправлено 07 Ноябрь 2009 — 20:10

Попробую твою версию.

ПС. Я вообще не знаю VB :)

  • 0

  • Наверх

#17

OFFLINE
 

silwer

silwer

    Больше информации +

Отправлено 07 Ноябрь 2009 — 21:13

зы. я тоже в нем интуитивно =)

  • 0

  • Наверх

Источник

В Microsoft Office Word 2007 отформатировать таблицу после ее создания можно несколькими способами. Применение стилей таблиц позволяет задать формат сразу для всей таблицы, а также выполнить предварительный просмотр, чтобы заранее увидеть, как будет выглядеть таблица с выбранным стилем форматирования.

Таблицы можно изменять путем разбиения или объединения ячеек, добавления и удаления столбцов и строк, а также рисования. При работе с большими таблицами можно задать отображение заголовка таблицы на каждой из страниц, на которых она выводится. Чтобы исключить непредусмотренные разрывы потока данных в таблице, можно указать, в каких местах должны находиться разрывы страницы.

В этой статье

  • Использование стилей таблиц для оформления всей таблицы

  • Добавление или удаление рамок

  • Отображение и скрытие линий сетки

  • Добавление ячейки, строки или столбца

  • Удаление ячейки, строки или столбца

  • Объединение и разбиение ячеек

  • Повторение заголовка таблицы на последующих страницах

  • Управление разбиением таблицы на части

Использование стилей таблицы для форматирования всей таблицы

После создания таблицы можно задать для нее формат при помощи стилей таблицы. Установив указатель мыши на одном из заранее определенных стилей таблицы, можно просмотреть, как будет выглядеть эта таблица в готовом виде.

  1. Щелкните таблицу, для которой требуется задать формат.

  2. В разделе Работа с таблицами откройте вкладку Конструктор.

  3. В группе Стили таблиц наводите указатель мыши на стили таблиц, пока не найдете подходящий вариант.

    Примечание: Чтобы посмотреть другие стили, нажмите кнопку со стрелкой Больше  Кнопка "Дополнительные параметры".

  4. Чтобы применить стиль к таблице, щелкните его.

  5. В группе Параметры стиля таблицы установите или снимите флажки рядом с теми элементами таблицы, которые требуется отобразить или скрыть в выбранном стиле.

К началу страницы

Добавление и удаление рамок

Чтобы придать таблице нужный вид, можно добавить или удалить границы.

Добавление границ в таблицу

  1. В разделе Работа с таблицами откройте вкладку Макет.

  2. В группе Таблица нажмите кнопку Выделить и выберите команду Выделить таблицу.

  3. В разделе Работа с таблицами откройте вкладку Конструктор.

  4. В группе Стили таблиц нажмите кнопку Границыи выберите один из
    Ниже 2010 г.

    • Выберите один из встроенных наборов границ.

    • В группе Границы и заливка нажмите кнопку Границы и выберите нужный вариант.

Удаление границ во всей таблице

  1. В разделе Работа с таблицами откройте вкладку Макет.

  2. В группе Таблица нажмите кнопку Выделить и выберите команду Выделить таблицу.

  3. В разделе Работа с таблицами откройте вкладку Конструктор.

  4. В группе Стили нажмите кнопку Границы и выберите вариант без границы.

Добавление границ к отдельным ячейкам

  1. На вкладке Главная в группе Абзац нажмите кнопку Показать или скрыть.

    Изображение ленты Word

  2. Выделите нужные ячейки вместе со знаками окончания ячейки.

    Выделение ячейки

  3. В разделе Работа с таблицами откройте вкладку Конструктор.

  4. В группе Стили таблиц нажмите кнопку Границы и выберите нужный тип границы.

Удаление границ в определенных ячейках

  1. На вкладке Главная в группе Абзац нажмите кнопку Показать или скрыть.

    Изображение ленты Word

  2. Выделите нужные ячейки вместе со знаками окончания ячейки.

    Выделение ячейки

  3. В разделе Работа с таблицами откройте вкладку Конструктор.

  4. В группе Стили таблиц нажмите кнопку Границы и выберите вариант Без границ.

К началу страницы

Отображение и скрытие линий сетки

Линии сетки отображают границы между ячейками в таблице, не имеющей границ. Если скрыть сетку в таблице с заданными границами, изменения будут незаметны, поскольку линии сетки повторяют линии границы. Чтобы увидеть линии сетки, следует удалить границы.

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

Примечание: Линии сетки не отображаются в веб-браузер и в режиме предварительного просмотра.

Отображение и скрытие линий сетки таблицы в документе

  • В разделе Работа с таблицами на вкладке Макет в группе Таблица нажмите кнопку Отобразить сетку.

К началу страницы

Добавление ячейки, строки или столбца

Вставка ячейки

  1. Щелкните ячейку, расположенную справа или сверху от того места, где вы
    хотите вставить ячейку.

  2. В разделе Работа с таблицами откройте вкладку Макет и нажмите кнопку вызова диалогового окна Строки и столбцы.

  3. Выберите один из указанных ниже параметров.

Параметр

Действие

со сдвигом вправо

Вставка ячейки с перемещением остальных ячеек строки вправо.

Примечание: В результате этого действия в строке может оказаться больше ячеек, чем в других строках.

со сдвигом вниз

Вставка ячейки с перемещением ячеек данного столбца на одну строку вниз. Последняя ячейка помещается в новой строке, добавленной снизу в таблицу.

вставить целую строку

Вставка строки над выделенной ячейкой

вставить целый столбец

Вставка столбца справа от выделенной ячейки

Добавление строки

  1. Щелкните ячейку в строке, над или под которой требуется добавить новую строку.

  2. В разделе Работа с таблицами откройте вкладку Макет.

  3. Выполните одно из указанных ниже действий.

    • Чтобы добавить строку над выделенной ячейкой, в группе строки и столбцы нажмите кнопку Вставить выше.

    • Чтобы добавить строку под выделенной ячейкой, в группе строки и столбцы нажмите кнопку Вставить ниже.

Добавление столбца

  1. Щелкните ячейку в столбце, расположенном справа или слева от того места, куда требуется вставить столбец.

  2. В разделе Работа с таблицами откройте вкладку Макет.

  3. Выполните одно из указанных ниже действий.

    • Чтобы добавить столбец слева от выделенной ячейки, в группе строки и столбцы нажмите кнопку Вставить слева.

    • Чтобы добавить столбец справа от выделенной ячейки, в группе строки и столбцы нажмите кнопку Вставить справа.

К началу страницы

Удаление ячейки, строки или столбца

  1. Выполните одно из указанных ниже действий.

    Чтобы выделить

    Выполните следующие действия

    Ячейка

    Щелкните левый край ячейки.Выделение ячейки.

    Строку

    Щелкните слева от строки. Выделение строки

    Столбец

    Щелкните верхнюю линию сетки (т. е. верхнюю границу) столбца . Выделение столбца

  2. В разделе Работа с таблицами откройте вкладку Макет.

  3. В группе Строки и столбцы нажмите кнопку Удалить и выберите команду Удалить ячейки, Удалить строки или Удалить столбцы.

К началу страницы

Объединение и разбиение ячеек

Объединение ячеек

Две или более ячейки, расположенные в одной строке или в одном столбце, можно объединить в одну. Например, можно объединить несколько ячеек в одной строке для создания заголовка таблицы, общего для нескольких столбцов.

  1. Чтобы выделить ячейки, которые необходимо объединить, щелкните левую границу одной из них и протащите указатель, удерживая нажатой кнопку мыши, по нужным ячейкам.

  2. В группе Работа с таблицами на вкладке Макет в группе Слияние выберите команду Объединить ячейки.

Разделение ячеек

  1. Выделите одну или несколько ячеек, которые требуется разделить.

  2. В группе Работа с таблицами на вкладке Макет в группе Слияние выберите команду Разделить ячейки.

  3. Введите число столбцов и строк, на которое следует разбить выделенные ячейки.

К началу страницы

Повторение заголовка таблицы на последующих страницах

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

Повторяющиеся заголовки таблицы отображаются только в Режим разметки и в напечатанном документе.

  1. Выделите строку (строки), составляющие заголовок. Выделенный фрагмент должен включать первую строку таблицы.

  2. В разделе Работа с таблицами на вкладке Макет в группе Данные выберите команду Повторить строки заголовков.

Примечание:  В Microsoft Word заголовки таблицы повторяются в местах автоматического разрыва страниц. Если разрыв страницы вставлен в таблицу вручную, заголовок не повторяется.

К началу страницы

Управление разбиением таблицы на части

При работе с очень длинными таблицами их приходится разбивать на части в местах разрыв страницы. Если разрыв страницы оказался в длинной строке, часть этой строки по умолчанию переносится на следующую страницу.

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

Предотвращение
Строка таблицы при разрыве страницы

  1. Щелкните в любом месте таблицы.

  2. В разделе Работа с таблицами откройте вкладку Макет.

  3. В группе Таблица нажмите кнопку Свойства и откройте вкладку Строка.

  4. Снимите флажок Разрешить перенос строк на следующую страницу.

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

  1. Выделите строку, которая должна быть напечатана на следующей странице.

  2. Нажмите клавиши CTRL+ENTER.

К началу страницы

Источник

Понравилась статья? Поделить с друзьями:
  • Применить стиль для всех документов word
  • Пример бдсумм в excel примеры
  • Применить разделы word это
  • Пример бдр строительство excel
  • Применить одну формулу для всего столбца excel