Удалить пустые строки в таблице word макрос

Студворк — интернет-сервис помощи студентам

Здравствуйте!

У меня есть документ, в котором много таблиц (на каждой странице — новая таблица, и каждая страница представляет собой новый раздел). В каждой таблице количество строк — одинаковое (37 строк).
Но заполнено разное количество строк. В одной таблице остались пустыми 15 строк, в другой — 11 строк, в третьей — 7 строк. И т.д., и т.д. — вариаций множество.

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

Подскажите, пожалуйста, макрос, который удалит все пустые строки во всех таблицах в пределах этого файла.

Файл с таблицами прикладываю.

Спасибо!

Источник

Как удалить все пустые строки и столбцы из таблиц в Word? В этом руководстве показано несколько способов удаления пустых строк и столбцов из таблиц в документе Word.

Вручную удалить все пустые строки и столбцы из таблиц

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

Удалите все пустые строки и столбцы из таблиц одним щелчком мышихорошая идея3

Вручную удалить все пустые строки и столбцы из таблиц

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

Шаг 1: Выберите пустую строку или пустой столбец, который вы хотите удалить. Смотрите скриншот:

doc-removerowsandcols-1

Шаг 3: Под Настольные Инструменты, щелкните значок макет вкладка;

doc-removerowsandcols-2

Шаг 4: в Строки и столбцы группу, нажмите Удалить строки или Удалить столбцы.

doc-removerowsandcols-3

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

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

Шаг 1: нажмите «Alt-F11» открыть окно Microsoft Visual Basic для приложений;

Шаг 2: нажмите Модули на Вставить вкладку, скопируйте и вставьте следующий код VBA в окно модуля;

Шаг 3: Затем нажмите Runдок-обратный знак-6 кнопку, чтобы применить VBA.

Код VBA для удаления всех пустых строк и столбцов из таблиц:

Sub DeleteEmptyTablerowsandcolumns ()
Приложение.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
С ActiveDocument
Для каждого тбл в. Таблицах
n = Таблица.Столбцов.Количество
Для i = n To 1 Шаг -1
fПусто = Истина
Для каждой ячейки в Tbl.Columns (i) .Cells
Если Len (cel.Range.Text)> 2, то
fEmpty = Ложь
Выход для
End If
Следующий чел
Если fEmpty = True, то Tbl.Columns (i) .Delete
Затем я
Следующая таблица
Конец с
С ActiveDocument
Для каждого тбл в. Таблицах
n = Tbl.Rows.Count
Для i = n To 1 Шаг -1
fПусто = Истина
Для каждой ячейки In Tbl.Rows (i) .Cells
Если Len (cel.Range.Text)> 2, то
fEmpty = Ложь
Выход для
End If
Следующий чел
Если fEmpty = True, то Tbl.Rows (i) .Delete
Затем я
Следующая таблица
Конец с
Set cel = Nothing: Set Tbl = Nothing.
Application.ScreenUpdating = True
End Sub

Удалите все пустые строки и столбцы из таблиц одним щелчком мыши

Kutools for Word предоставляет вам наиболее удобный способ удалить все пустые строки и столбцы из таблиц в документе. Вам просто нужно нажать один раз, и Kutools for Wordс Delete Rows/Columns Утилита быстро удалит все пустые строки и столбцы из всех или выбранных таблиц.

После установки Kutools for Word, пожалуйста, сделайте следующее:(Бесплатная загрузка Kutools for Word Сейчас!)

1. Нажмите Кутулс Плюс > Delete Rows/Columns на Table панель.

doc удалить пустые столбцы строк из таблицы 1

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

Появится диалоговое окно, напоминающее вам, сколько таблиц было обработано, щелкните OK чтобы закрыть, а пустые строки и столбцы были удалены из таблиц.
doc kutools удалить пустые строки 4

Наконечник.Если вы хотите удалить пустые строки с листа Excel, Удалить пустые строки полезности Kutools for Excel могу помочь тебе.

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

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

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

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

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

I been struggling with a word macro that deletes Empty lines where a «$» exists. The code below works but only for the selected table, how can I have the code loop through the entire document and delete empty lines from all pages.

Document

Option Explicit

Sub TEST()
Dim i       As Long
    With Selection.Tables(1)
        For i = .Rows.Count To 1 Step -1
            If Len(.Cell(i, 2).Range.Text) = 3 And Left(.Cell(i, 2).Range.Text, 1) = "$" Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

M--'s user avatar

M—

24.4k7 gold badges58 silver badges92 bronze badges

asked Apr 14, 2017 at 15:00

user7675421's user avatar

2

This is not tested on the same data-set as OP has since it is not provided.

Option Explicit

Sub TEST() 


Dim tbl As Table
Dim mDoc As Document
Dim oRow As Row

Set mDoc = ActiveDocument


    For Each tbl in mDoc.Tables

        For Each oRow In tbl.Rows

                 If Len(oRow.Cells(2).Range.Text) = 3 And _
                    Left(oRow.Cells(2).Range.Text, 1) = "$" Then 

                        oRow.Delete 

                 End If 
              Next oRow 
    Next tbl

End Sub

answered Apr 14, 2017 at 15:09

M--'s user avatar

M—M—

24.4k7 gold badges58 silver badges92 bronze badges

10

Источник

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Удалить строки в таблице с пустой ячейкой

Страницы 1

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

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

1 04.07.2012 11:22:57

  • Lohmatiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.07.2012
  • Сообщений: 4

Тема: Удалить строки в таблице с пустой ячейкой

Имеется большая таблица, в некоторых строках которой в 6 столбце есть пустая ячейка. Нужно найти такие ячейки и удалить строки, в которых они есть. Поможете макросом?

2 Ответ от aap77 04.07.2012 11:40:09

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Удалить строки в таблице с пустой ячейкой

Вот макрос

Public Sub DeleteCells()
Dim Doc As Document
Dim Table As Table
    Set Doc = ActiveDocument
        For Each Table In Doc.Tables
        Table.Range.Select
            Selection.Find.ClearFormatting
            Selection.Find.Replacement.ClearFormatting
                With Selection.Find
                    .Text = "[^0013]{1;}"
                    .Replacement.Text = ""
                    .Forward = True
                    .Wrap = wdFindContinue
                    .MatchWildcards = True
                End With
            Selection.Find.Execute Replace:=wdReplaceAll
        Next Table
End Sub

3 Ответ от Lohmatiy 04.07.2012 12:35:40

  • Lohmatiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.07.2012
  • Сообщений: 4

Re: Удалить строки в таблице с пустой ячейкой

неа, не работает. Удаляет пробелы кое-где, и все

4 Ответ от aap77 04.07.2012 12:51:28

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Удалить строки в таблице с пустой ячейкой

Все работает, в этом макросе вообще нет ссылок на пробелы, вышлите таблицу

5 Ответ от aap77 04.07.2012 12:59:54

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Удалить строки в таблице с пустой ячейкой

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

6 Ответ от Lohmatiy 04.07.2012 13:27:25

  • Lohmatiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.07.2012
  • Сообщений: 4

Re: Удалить строки в таблице с пустой ячейкой

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

Post’s attachments

1111.doc 61 Кб, 8 скачиваний с 2012-07-04 

You don’t have the permssions to download the attachments of this post.

7 Ответ от aap77 04.07.2012 16:41:07

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Удалить строки в таблице с пустой ячейкой

Вот теперь понятно сделаем

8 Ответ от aap77 04.07.2012 18:37:35

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

Re: Удалить строки в таблице с пустой ячейкой

Вот попробуйте макрос по Вашим условиям

Public Sub DeleteCells()
Dim Doc As Document
Dim Table As Table
Dim Rw As Row
Dim Cell As Cell
    Set Doc = ActiveDocument
        For Each Table In Doc.Tables
        Table.Range.Select
            Selection.Find.ClearFormatting
            Selection.Find.Replacement.ClearFormatting
                With Selection.Find
                    .Text = "[^0013]{1;}"
                    .Replacement.Text = ""
                    .Forward = True
                    .Wrap = wdFindContinue
                    .MatchWildcards = True
                End With
            Selection.Find.Execute Replace:=wdReplaceAll
            For Each Rw In Table.Rows
                    i = 0
                        For Each Cell In Rw.Cells
                            i = i + 1
                            If Cell.Range.Characters.Count = 1 And i = 6 Then
                                Rw.Delete
                            End If
                        Next Cell
                Next Rw
        Next Table
End Sub

9 Ответ от Lohmatiy 04.07.2012 21:48:19

  • Lohmatiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.07.2012
  • Сообщений: 4

Re: Удалить строки в таблице с пустой ячейкой

Вот спасибо! Весь инет перерыл в поисках того. как делать макросы в ворде. Один эксель. А вы выручили.

10 Ответ от aap77 04.07.2012 22:31:07

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243

Re: Удалить строки в таблице с пустой ячейкой

А на работу взять слабо? Я Вам весь производственный процесс обеспечу?

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

Страницы 1

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

Похожие темы

  • Задать значение «Пустой строки»
  • Удалить строки, где имеются повторяющиеся символы
  • Высота строки в таблице
  • Как отключить в таблице функцию добавления строки
  • Как отвязать строки столбцов в таблице друг от друга?
  • Не отображается нижняя граница каждой строки в таблице
  • определение номера строки в таблице и подстановка в адрес ячейки
  • Word как удалить текст в файле, закрыть и удалить макросом файл?

Удалить строки в таблице с пустой ячейкой

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

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

Здесь вам подскажут оптимальные настройки программы в зависимости от стоящей задачи и помогут разобраться с тонкостями и отличиями различных версий. На портале о Microsoft Office Word вы узнаете про: ворд 2007 не печатает формулы.
Для ленивых или очень занятых пользователей существуют готовые решения и возможность оставить заявку. Наш сайт о Microsoft Office Word даст ответ про: 1,25 см это сколько в ворде 2010.

Источник

Как в офисе.

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

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

  • Удалить вручную строку или столбец
  • Удалить с помощью скрипта VBA все пустые строки и столбцы
  • 1 Удалить вручную строку или столбец
  • 2 Удалить с помощью скрипта VBA все пустые строки и столбцы

Удалить вручную строку или столбец

Данный метод проверялся в Word 2007, 2010, 2013.

Шаг 1.

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

Шаг 2.

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

Шаг 3.

В разделе «Строки и столбцы» найдите кнопку «Удаление», и в выпадающем списке выберите нужное вам действие.

В Word 2010-2013 в выплывающем окне есть этот же список по удалению столбцов и строк из таблицы.

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

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

Данный метод проверялся в Word 2007, 2010, 2013

Как пользоваться скриптами VBA в Word читайте здесь >>>

Скопируйте этот скрипт и запустите его выполнение.

Как удалить все пустые строки в ворде?

Но если Вы столкнулись с таким файлом, или скачали его из Интернета, и отступы между тестом не нужны, то сразу возникает вопрос: как удалить в Ворде лишние пустые строки? Ответ очевиден: поставьте курсор в конец первого абзаца и нажмите «Delete» необходимое количество раз, пока не удалится пустота.

Как убрать пустые заголовки в ворде?

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

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

При вставке таблицы в колонтитулы или врезки, пустой абзац(строка) после нее могут быть лишними. Для их удаления необходимо: установить курсор в последнюю ячейку таблицы; нажать комбинацию клавиш Ctrl + ⇧ Shift + Delete.

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

Простой способ удаления пустых строк

  1. Отмечаем область пустых ячеек в строках, которые предстоит удалить.
  2. Щелкаем по любому месту выделенной области правой кнопкой мыши и в появившемся контекстном меню кликаем по функции “Удалить…”.
  3. Откроется окно с опциями удаления, в котором ставим отметку “строку” и нажимаем OK.

Как убрать разрывы строк в ворде?

Для удаления разрывов строк в MS Word вы можете выполнить следующие простые действия:

  1. Ctrl+A выделить весь текст.
  2. Ctrl+H открывает диалоговое окно Найти & Заменить. В «Найти», вводим «^p^p». …
  3. Нажмите «Заменить Все».
  4. Еще раз вызываем диалог найти и заменить. …
  5. Наконец , возвращаем пустые строки, которые были в тексте.

Как в ворде убрать все заголовки?

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

Как убрать сноски в ворде?

Чтобы удалить обычную сноску (в нижней части страницы), удалите число 1 в тексте. После этого сноска исчезнет. Эту задачу можно выполнить и другим способом: щелкните внизу страницы сноску, которую хотите удалить, правой кнопкой мыши, выберите команду Перейти к концевой сноске и удалите ее номер.

Как убрать абзац после таблицы?

Удаление Для удаления абзаца после таблицы необходимо поместить курсор в последнюю ячейку таблицы после любого содержимого ячейки и нажать Ctrl + ⇧ Shift + Del .

Как убрать пустую ячейку в ворде?

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

  1. Щелкните правой кнопкой мыши ячейку, строку или столбец, которые вы хотите удалить.
  2. На мини-панели инструментов нажмите Удалить.
  3. Выберите Удалить ячейки, Удалить столбцы или Удалить строки.

Как вставить пустую строку после таблицы?

Единственный способ добавить новый абзац после таблицы (но до этого Heading 1b ) — поместить курсор в начало Heading 1b и нажать Enter .
…

  1. Создайте абзац перед таблицей.
  2. Выберите всю таблицу.
  3. Теперь у вас будет абзац после таблицы. Вы можете написать в нем.
  4. Обновите поля, чтобы увидеть, что вы сделали.

Как быстро удалить ненужные строки в Эксель?

Нажмите ОК. Выделите все отфильтрованные строки: нажмите Ctrl+Home, затем стрелку вниз, чтобы перейти к первой строке с данными, а затем нажмите Ctrl+Shift+End. Кликните правой кнопкой мыши по любой выделенной ячейке и из контекстного меню выберите Delete row (Удалить строку) или просто нажмите Ctrl+-(знак минус).

Как уменьшить количество пустых строк в Excel?

Нажмите сочетание клавиш Ctrl+Shift+стрелка вниз – выделятся все пустые строки до конца листа. Удалите их, нажав на клавиатуре Ctrl+знак минус или выбрав на вкладке Главная – Удалить – Удалить строки с листа (Home – Delete – Delete rows). Повторите то же самое со столбцами.

Как удалить большое количество строк в Excel?

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

Как сделать текст без разрывов?

Если в документе разрешен (но пока еще не установлен) перенос слов, в таком случае уменьшить пробелы между словами в Word можно следующим образом:

  1. Выделите весь текста, нажав “Ctrl+A”.
  2. Перейдите во вкладку “Макет” и в группе “Параметры страницы” выберите пункт “Расстановка переносов”.
  3. Установите параметр “Авто”.

Как убрать абзацы в тексте?

Если Вам нужно просто удалить лишний абзац на странице в Ворде, выделите его мышкой – для этого достаточно кликнуть по нему три раза левой кнопкой мыши. Затем нажмите кнопку «Delete» или «Backspace» на клавиатуре.

Как убрать висячие строки в Индизайн?

Запрет висячих строк в InDesign

  1. Выделяю весь текст (Ctrl + A).
  2. Нажимаю Alt + Ctrl + K или Абзац — Параметры удержания.
  3. Ставлю «Удержать 2 строки в начале и в конце».

Удаление строк и столбцов из таблицы

Существует два способа быстрого удаления строк и столбцов из таблиц в Word в Интернете.

Если вы еще не перешли в режим правки, щелкните редактировать документWord в Интернете изменить в Word в Интернете.

Редактирование в Word Online

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

Если вы хотите удалить несколько строк или столбцов, выделите ячейку в каждой строке или столбце, которые нужно удалить.

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

Команды

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

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

Источник

Like this post? Please share to your friends:
  • Удалить пустые строки в таблице word vba
  • Удалить пустые строки в документе excel
  • Удалить пустые строки excel python
  • Удалить пустые символы в excel
  • Удалить пустые пробелы в excel