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

Форматирование таблицы

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

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

В этой статье

• Использование стилей таблиц для оформления всей таблицы
• Добавление или удаление рамок
• Отображение и скрытие линий сетки
• Добавление ячейки, строки или столбца
• Удаление ячейки, строки или столбца
• Объединение и разбиение ячеек
• Повторение заголовка таблицы на последующих страницах
• Управление разбиением таблицы на части

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

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

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

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

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

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

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

1. В разделе Работа с таблицами откройте вкладку Макет.
2. В группе Таблица нажмите кнопку Выделить и выберите команду Выделить таблицу.
3. В разделе Работа с таблицами откройте вкладку Конструктор.
4. В группе Стили таблиц нажмите кнопку Границыи выберите один из Ниже 2010 г.
   • Выберите один из встроенных наборов границ.
   • В группе Границы и заливка нажмите кнопку Границы и выберите нужный вариант.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1. Щелкните ячейку в строке, над или под которой требуется добавить новую строку.
2. В разделе Работа с таблицами откройте вкладку Макет.
3. Выполните одно из указанных ниже действий.
   • Чтобы добавить строку над выделенной ячейкой, в группе строки и столбцы нажмите кнопку Вставить выше.
   • Чтобы добавить строку под выделенной ячейкой, в группе строки и столбцы нажмите кнопку Вставить ниже.

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

1. Щелкните ячейку в столбце, расположенном справа или слева от того места, куда требуется вставить столбец.
2. В разделе Работа с таблицами откройте вкладку Макет.
3. Выполните одно из указанных ниже действий.
   • Чтобы добавить столбец слева от выделенной ячейки, в группе строки и столбцы нажмите кнопку Вставить слева.
   • Чтобы добавить столбец справа от выделенной ячейки, в группе строки и столбцы нажмите кнопку Вставить справа.

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

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

Чтобы выделить	Выполните следующие действия
Ячейка	Щелкните левый край ячейки.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1. Щелкните в любом месте таблицы.
2. В разделе Работа с таблицами откройте вкладку Макет.
3. В группе Таблица нажмите кнопку Свойства и откройте вкладку Строка.
4. Снимите флажок Разрешить перенос строк на следующую страницу.

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

1. Выделите строку, которая должна быть напечатана на следующей странице.
2. Нажмите клавиши CTRL+ENTER.

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

Мне нужно ко всем таблицам в документе применить единое форматирование.
Сейчас я это делаю выделяя каждую таблицу вручную и используя макрос — форматирования таблицы.
Но таблиц иногда бывает очень много — до 150 листов. Напряжно)

Потому надо в начало макроса форматирования добавить строки:
«выделить все таблицы в документе»)))

Привет, shadowbeast! Только так.

 Dim oTable As Table For Each oTable In ThisDocument.Tables 'пишем нужное форматирование Next

Лучше день потерять — потом за пять минут долететь!©
Пользователь
Регистрация: 11.02.2009
Сообщений: 29

Привет, viter.alex!

Спасибо, так и сделал.) Посмотрел на те макросы, что ты мне написал по анализу ячеек, разобрался как работает)
Всё отлично!

Только почему-то объявление в одном из случаев не сработало, а потом получилось)

shadowbeast

Посмотреть профиль

Найти ещё сообщения от shadowbeast

Регистрация: 25.09.2009
Сообщений: 3

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

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

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

Последний раз редактировалось Vera111; 18.04.2011 в 17:32 .

покупка

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

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

Нажмите Кутулс > таблицы > Выбрать таблицы. Смотрите скриншот:

Выделите все таблицы в документе Word одним щелчком мыши

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

1. Выведите курсор из любой таблицы и примените эту утилиту, нажав Кутулс > таблицы > Выбрать таблицы.

2. В появившемся диалоговом окне Kutools for Word щелкните значок OK .

3. Затем будут выбраны все таблицы, как показано на скриншотах ниже.

Выбрать все таблицы из выбранного текущего документа

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

1. Выберите часть документа, в которой вы хотите выделить все таблицы.

2. Затем примените эту утилиту, нажав Кутулс > таблицы > Выбрать таблицы.

3. В появившемся диалоговом окне Kutools for Word щелкните значок OK .

4. После этого вы увидите, что все выбранные таблицы выбраны сразу.

Связанные функции

• Быстро форматируйте диагональные заголовки и пишите диагональный текст в таблицах в Word
• Быстрое удаление пустых строк и столбцов таблиц в Word
• Быстрый выбор однострочных таблиц в Word

Лучшие инструменты для офисной работы

Kutools for Word — Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

Преобразуйте свои задачи Word с помощью Kutools. �� Загрузите 30-дневную пробную версию прямо сейчас ��.

покупка

В Word легко выбрать таблицу, нажав кнопку в верхнем левом углу таблицы, как показано на скриншоте ниже. Вы также можете выбрать таблицу с помощью функции «Выбрать таблицу». Однако есть ли способ быстро выбрать все таблицы сразу в документе Word? Методы, описанные в этой статье, помогут вам пройти через это.

Easily select all tables from selection or the whole document:

The Select Tables utility of Kutools for Word helps you easily select all tables from a selection or from the whole Word document. See screenshot:

Kutools for Word: with more than 100 handy Word add-ins, free to try with no limitation in 30 days. Download and free trial Now!

Выбрать все таблицы в Word с кодом VBA

1, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В открытии Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, Затем скопируйте и вставьте следующий код VBA в окно модуля;

Код VBA: выберите все таблицы в текущем документе:

Sub selecttables() Dim mytable As Table For Each mytable In ActiveDocument.Tables mytable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) End Sub

3. нажмите F5 ключ для запуска кода

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

Легко выбрать все таблицы в Word с помощью Kutools for Word

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

Нажмите Кутулс > таблицы > Выбрать таблицы. Смотрите скриншот:

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

Тогда вы можете увидеть результаты следующим образом.

Выберите таблицы в выборе:

Выделите таблицы во всем документе:

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