Vba word как удалить пустые строки

Updated: Below is a modified version of your code that will spin thru all rows of a table (in MS-Word) and delete every row that contains only a ‘$’ in column 3 and column 4 is empty.

Option Explicit

' This subroutine will spin thru all rows of data in a table in MS-Word (except the first row, which is the header).
' If column 3 contains only a '$' AND column 4 is empty, the row will be deleted.
' All rows with only the '$' in column 3 and empty cell 4 will be deleted.

Sub TEST()
Dim i       As Long
'Dim char    As String

    With Selection.Tables(1)
        For i = .Rows.Count To 1 Step -1
            'char = .Cell(i, 3).Range.Text
            'Debug.Print Asc(Mid(char, 1, 1)) & vbTab & Asc(Mid(char, 2, 1)) '& vbTab & Asc(Mid(char, 3, 1))
            'Debug.Print ">" & .Cell(i, 2).Range.Text & "<"
            If Len(.Cell(i, 4).Range.Text) = 2 And Left(.Cell(i, 3).Range.Text, 1) = "$" Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

В документе, загруженном из Интернета, слишком много пустых строк (перенос строк вручную). Чтобы сэкономить бумагу и место, нам нужно удалить все пустые строки. Есть ли более простой способ удалить все пустые строки вместо того, чтобы удалять каждую вручную? В этом руководстве будут перечислены три доступных метода для удаления всех пустых строк в целом или для выбора документов:

Удалите все пустые строки с помощью параметра Найти и заменить

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

Удалите все пустые строки с помощью Kutools for Word

Удалите все пустые строки с помощью параметра Найти и заменить

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

1. Нажмите Замените на Главная таб. Смотрите скриншот:

2. Когда Найти и заменить появится диалоговое окно, нажмите Подробнее >> кнопку, чтобы отобразить дополнительные параметры. Затем поместите курсор в Найдите то, что поле и выберите Ручной разрыв строки из Особый выпадающее меню, см. снимок экрана:

3. Там будет «^l”Персонаж в Найдите то, что поле и нажмите Заменить все. Все ручные разрывы строк были удалены сразу, см. Снимок экрана:

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

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

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

2. Нажмите Вставить > Модули, а затем скопируйте приведенный ниже код VBA в окно модуля.

Код VBA: удаление всех ручных разрывов строк в документе:

Sub Deleemptylines()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

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

Удалите все пустые строки с помощью kutools for Word

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

1. Пожалуйста, примените эту утилиту, нажав Кутулс > Пустые параграфы > Удалить пустые разрывы строк вручную. Смотрите скриншот:

2. Затем появится диалоговое окно с напоминанием об удалении всех пустых строк, нажмите Да кнопку, см. снимок экрана:

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

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

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

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

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: PetalBot и гости: 5

Код:

Sub DeleteEmptyRows()

  On Error Resume Next
  
  Dim oSelRng As Range 'Область из которой обрабатывать таблицы
  Dim oTbl As Table 'Текущая таблица
  Dim oCell As Cell 'Ячейка в таблице
  Dim oRowRng As Range 'Диапазон для строки
  Dim iStart As Long 'Начало первой пустой ячейки в строке
  Dim iEnd As Long 'Конец последней пустой ячейки в строке
  Dim i As Long 'Счетчик строк в таблице
  Dim j As Long 'Счетчик таблиц
  Dim sEmptyString As String 'Служебная строка
  
  Set oSelRng = Selection.Range 'Запоминаем диапазон выделения
  'Перебираем таблицы в выделении, начиная с конца
  For j = oSelRng.Tables.Count To 1 Step -1
    Set oTbl = oSelRng.Tables(j) 'Запоминаем таблицу
    'Перебираем ячейки в первом столбце
    For i = oTbl.Rows.Count To 1 Step -1
      If Len(oTbl.Cell(i, 1).Range.Text) = 2 Then 'Если ячейка пустая, т.е. содержит только конец абзаца и конец ячейки
        If Err.Number <> 5941 Then 'Если такая ячейка существует
          Set oCell = oTbl.Cell(i, 1) 'Запоминаем первую ячейку в строке
          If Not oCell Is Nothing Then 'Если ячейка запомниалась
            iStart = oCell.Range.Start 'Запоминаем ее начало
            Do While Len(oCell.Next.Range.Text) = 2 'Теперь ищем последнюю пустую ячейку в этой же строке
              iEnd = oCell.Next.Range.End 'Запоминаем ее конец
              Set oCell = oCell.Next
            Loop
            Set oRowRng = oSelRange.Document.Range(iStart, iEnd) 'Запоминаем диапазон от начала первой пустой ячейки до конца последней
            'Удаляем из строки знаки абзаца и конца ячейки
            sEmptyString = Replace(oRowRng.Text, ChrW(13) & ChrW(7), "")
            If Len(sEmptyString) = 0 Then 'Если строка пустая,
              oRowRng.Cells.Delete ' то ячейки удаляем
            End If
          End If
        Else: Err.Clear 'очищаем ошибку
        End If
      End If
    Next i
  Next j
End Sub