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

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

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

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

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

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

Для применения одинаковых параметров форматирования ко всей таблице в 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

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

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

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

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 ]

Страницы 1

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

Похожие темы

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

Если у вам часто приходится работать с различными текстами, писать и обрабатывать их, то, скорей всего, у вас установлен редактор 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.

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

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

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

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

Утилита выбора таблиц в Kutools for Word поможет вам легко выбрать все таблицы из выделения или из всего документа Word. См. Снимок экрана:

Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 30 дней. Загрузить и бесплатную пробную версию прямо сейчас!

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

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

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

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

3. Нажмите клавишу F5 , чтобы запустить код.

Затем все таблицы будут немедленно выбраны в текущем документе.

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

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

Kutools for Word : с более чем 100 удобными надстройками Word, можно бесплатно попробовать без ограничений в 60 дней .

Нажмите Kutools > Таблицы > Выбрать таблицы . См. Снимок экрана:

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

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

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

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

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