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

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

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

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

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

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

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

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.PreferredW > myTable.PreferredW > 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

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

Program Word

Пояснения к программе

• Главная
• Таблица
• Выделение таблицы

ВЫДЕЛЕНИЕ ТАБЛИЦЫ

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

• выделение содержимого таблицы;
• выделение элемента таблицы.

А определить, что выделено можно по внешнему виду.

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

• щелкнуть мышкой
• нажать клавишу перемещения курсора.

Кстати. Если, выделив текст, нажать какую-нибудь клавишу, то текст заменится на этот знак. Не сотрите нужное.

ВЫДЕЛЕНИЕ ЭЛЕМЕНТА ТАБЛИЦЫ С ПОМОЩЬЮ ЛЕНТЫ

1. Поставьте курсор в нужную ячейку таблицы. На ленте появится комплект вкладок Работа с таблицами.
2. На вкладке Макет нажмите кнопку Выделить.
3. Выберите в списке нужное.

ВЫДЕЛЕНИЕ ТАБЛИЦЫ С ПОМОЩЬЮ МЫШКИ

• • Основной метод выделения мышкой.
    Поставив курсор в начало, нажать на левую кнопку и тянуть мышь до окончания фрагмента. Так выделять не очень удобно.
    А можете попробовать так

• • Курсор слева от таблицы и на левой линии рамки столбца примет вид стрелки. С её помощью тоже можно выделять.

Выделение элемента таблицы	Эскиз курсора	Одинарный щелчок мышкой
wordprogram.ru
Строка* таблицы		Левее строки таблицы
Ячейка*		По левой линии рамки ячейки
Столбец*		Сверху столбца
Таблица		По квадрату со стрелками в левом верхнем углу таблицы

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

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

А при выделении только текста, даже в соседних ячейках, тоже нажмите клавишу CTRL.

ВЫДЕЛЕНИЕ ТАБЛИЦЫ С ПОМОЩЬЮ СОЧЕТАНИЙ КЛАВИШ

РЕЖИМ ВЫДЕЛЕНИЯ

Для удобства пользования этим методом нужно нажать правой кнопкой мышки на строке состояния и в контекстном меню поставить напротив Режим выделения галочку. Тогда при включении выделения будет видно название.
Если передумали форматировать текст, не забудьте отключить режим выделения.

Расширяемое выделение

1. Включение расширяемого выделения.
   Нажмите клавишу F8. В строке состояния появится надпись Режим выделения.
2. Выделение текста.
   Выделять текст от курсора до нужного места в документе можно мышкой, а можно клавишами.

Уменьшение и отключение режима выделения.
Для уменьшения выделения нажмите SHIFT+F8.
Для отключения режима выделения.

• Нажмите клавишу ESC.
• Щелкнув мышкой на названии Расширяемое выделение в строке состояния.

Как в Word выделить целую таблицу или её часть

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

Выделяем одну ячейку

Чтобы выделить одну ячейку, наведите указатель мыши на левый край ячейки, он должен превратиться в чёрную стрелку, направленную вправо вверх. Кликните в этом месте ячейки, и она будет выделена.

Чтобы выделить ячейку при помощи клавиатуры, поставьте курсор в любое место ячейки. Затем, зажав и удерживая клавишу Shift, нажимайте стрелку вправо до тех пор, пока не будет выделена вся ячейка, включая символ конца ячейки справа от её содержимого (см. рисунок ниже).

Выделяем строку или столбец

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

Замечание: В определённом положении указателя появляется иконка со знаком “+“. Если нажать на эту иконку, то в позицию, на которую она указывает, будет вставлена новая строка. Если Ваша цель – выделить строку, то кликать по иконке со знаком плюс не нужно.

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

Замечание: Это делается так же, как выделение нескольких не смежных файлов в Проводнике (Windows 7, 8 или 10).

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

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

Замечание: Если Вы решили использовать клавиатуру для выделения строк, то помните, что с помощью клавиш-стрелок можно выделять только смежные строки.

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

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

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

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

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

Выделяем таблицу целиком

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

Кликните по иконке – таблица будет выделена полностью.

Выделяем всю таблицу или её часть при помощи Ленты меню

Вы можете выделить любую часть таблицы или всю таблицу полностью при помощи Ленты меню. Поставьте курсор в любую ячейку таблицы и откройте вкладку Работа с таблицами | Макет (Table Tools | Layout).

В разделе Таблица (Table) нажмите кнопку Выделить (Select) и в выпадающем меню выберите подходящий вариант.

Замечание: Кнопка Выделить (Select) на вкладке Макет (Layout) и все входящие в нее команды позволяют выделить только одну ячейку, строку или столбец, в которых на этот момент находится курсор. Чтобы выделить несколько строк, столбцов или ячеек, воспользуйтесь способами, описанными ранее в этой статье.

Ещё один способ выделить таблицу – дважды кликнуть в ней при нажатой клавише Alt (в русской версии Word – Ctrl+Alt). Учтите, что это действие одновременно открывает панель Справочные материалы (Research) и ищет слово, по которому Вы дважды кликнули.

7 трюков с таблицами в Word, о которых вы могли не знать

Бытует мнение, что таблицы Microsoft Word — самая неприятная часть текстового редактора. Они неуклюжи, ими трудно управлять, их тяжело форматировать. После прочтения этой статьи у вас не останется таких предубеждений.

Предвзятое отношение к таблицам имеет свои глубокие корни. Чего греха таить, дюжину лет назад таблицы в Word не могли похвастаться удобством из-за несовершенства программы в целом. Но с тех пор прошло много времени. Microsoft прекрасно поработала над своими ошибками и сделала всё возможное для удобства пользователей. Жаль, конечно, что многие из тех самых пользователей об этом не знают и до сих пор работают в 2003-й редакции офисного пакета. Историю про ёжиков и кактусы не напоминает? 🙂

Всем застрявшим в прошлом просто по-человечески рекомендую обновиться как минимум до 2013-й версии Microsoft Office, а лучше — сразу до свежей, 2016-й. Поверьте, вам только кажется, что вы работаете в ставшей классикой среде, на самом деле она уже давно поросла мхом и плесенью.

Используйте шаблоны

Офисные будни полны однообразных документов, в том числе и таблиц. Берём одну электронную бумажку, вырезаем её часть, вставляем в новый документ и правим детали. Хорошая методика, но, как мне кажется, работа с шаблонами немного проще и быстрее. К слову, в самом Word шаблоны величают экспресс-таблицами.

Кликните по закладке «Вставка», щёлкните по «Таблице» и перейдите к «Экспресс-таблицам». Обратите внимание на пункт «Сохранить выделенный фрагмент в коллекцию».

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

Рисуйте таблицы

Помните медведя, который в детстве прошёлся по вашим ушам и рукам в безудержном цыганском танце? Именно с тех пор вы не любите пение и кисточки и именно с тех пор вы упорно игнорируете опцию «Нарисовать таблицу» в Word. Встряхнись, взрослый человек! Пора подавить мохнатое чудовище! Это проще, чем кажется.

Кликните по закладке «Вставка», щёлкните по «Таблице» и перейдите к пункту «Нарисовать таблицу».

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

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

Начиная с Word 2013 добавление строк и столбцов из зубодробительной пытки превратилось в увлекательную забаву. Не подумайте, архаичные «Вставить столбцы слева/справа» и «Вставить строки сверху/снизу» никуда не делись, но о них теперь можно забыть.

Наведите курсор на пространство между строками или столбцами за пределами таблицы и нажмите на появившийся плюс.

В будущем хотелось бы видеть что-то похожее и для функции удаления.

Применяйте линейку

У каждого человека есть любимые и отталкивающие цифры, которые он без разбору использует или избегает в своей жизни. Даже в параметрах своих таблиц. Знаю таких. 🙂

Если вы привыкли точно выставлять значения отступов, ширину и высоту ячеек через свойства таблицы, попробуйте альтернативу — линейку.

Наведите курсор на границу столбцов или строк, схватите её, зажмите клавишу Alt и пользуйтесь удобством сантиметровой линейки.

Такой же трюк можно провернуть и с маркерами отступов и выступов. Наведите на них курсор и зажмите всё ту же клавишу Alt.

Используйте горячие клавиши

Будь я разработчиком программного обеспечения, я бы нарёк горячие клавиши душевными кнопками. Ведь порой так и хочется обняться с ноутбуком только потому, что они есть. Что же касается таблиц Word, я наиболее часто использую тройку комбинаций:

1. Alt + Shift + «Вверх/Вниз» быстро перемещает текущую строку на одну позицию выше или ниже (просто незаменимая вещь).
2. Ctrl + Shift + A мгновенно превращает прописные буквы в заглавные, что очень полезно для заголовков.
3. Ctrl + Tab добавляет табуляцию в ячейке, в то время как обычный Tab переносит курсор на следующую ячейку.

Преобразуйте текст в таблицу

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

• Массивы ячеек, скопированные из Excel, вставляютcя в Word как таблица с невидимыми границами.
• Хорошо структурированный текст легко преобразуется в таблицу штатными средствами Word.

Выделите текст, кликните по закладке «Вставка», щёлкните по «Таблице» и выберите пункт «Преобразовать в таблицу».

Обратите внимание на вспомогательные параметры: качество преобразования зависит от них напрямую.

Контролируйте размеры ячеек

Хочешь узнать человека, подкинь ему таблицу с текстом-самодуром. Немного свободная интерпретация известного мнения, конечно, но бьёт в точку. Только взгляните на скриншот, а точнее на первую колонку и слово «филологический» — безобразное бельмо.

По моим наблюдениям, в таких случаях люди сначала неприлично выражаются, а затем прибегают к не самому оптимальному выходу — уменьшают размер шрифта. Но лучше вместить текст другим путём.

Щёлкните в ячейке правой клавишей, выберите пункт «Свойства таблицы», переключитесь на закладку «Ячейка», перейдите к «Параметрам» и проставьте галочку в графе «Вписать текст».

Word поднатужится и вернёт убежавшую букву на место, а в мире снова воцарится мир. К слову, для наглядности «вписанный» текст будет подчёркиваться голубой линией.

А ещё, бывает, позаимствуешь чью-то таблицу и довольно напеваешь себе под нос: «Только ты, рыба моей мечты»! Хорошая работа чужими руками! Начинаешь заливать её своими данными, и тут происходит неконтролируемая чертовщина: одни столбцы расползаются за счёт похудения других. Голова отрезвляется, и реальность перестаёт радовать. Как быть?

Шутки шутками, но случается, что вам присылают таблицу строгого формата, с которой нельзя оплошать. Как минимум не поленитесь отправить её обратно с прежними размерами. Так получатель увидит то, что ожидает увидеть. А для этого отключите автоподбор размеров по содержимому.

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

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