Цикл по строкам в word

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10

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

Есть на форуме похожие задачи, но под свою не получилось оптимизировать их.
Буду рад, если поможете!
Спасибо!

344 / 206 / 78

Регистрация: 16.07.2020

Сообщений: 591

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10

344 / 206 / 78

Регистрация: 16.07.2020

Сообщений: 591

. Враньё, ничего ты не смотрел, за такое короткое время это невозможно сделать. Картина ясная — типичный лентяй и халявщик. Я пас — таким наглецам я не помогаю.

AndyChamin

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

    Dim oTable As Word.Table
    Dim lRowLength As Long
    Dim sRowText As String
    Dim i As Long
 
    For d = 1 To 400
         Set oTable = ActiveDocument.Tables(d)
         lRowLength = oTable.Columns.Count + 1
              Application.ScreenUpdating = False
               For i = oTable.Rows.Count To 1 Step -1
                   sRowText = oTable.Rows(i).Range.Text
                  sRowText = Replace(sRowText, Chr(13), "")
                  If Len(sRowText) = lRowLength Then
                  oTable.Rows(i).Delete
            End If
        Next i
        Application.ScreenUpdating = True
        Next d
        MsgBox "Код завершил работу", vbInformation
    
End Sub

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

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

Punkt5

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

Так вроде там всё прозрачно — это код как раз для удаления пустых строк, но не строк, в которых среди непустых значений есть хотя бы одно пустое. И правится вроде элементарно — добавлением цикла перебора ячеек в строке:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Dim oTable As Word.Table
Dim lRowLength As Long
Dim sRowText As String
Dim i As Long, j As Long
 
Application.ScreenUpdating = False
For d = 1 To ActiveDocument.Tables.Count 'только по таблицам текущего документа
  Set oTable = ActiveDocument.Tables(d)
  lRowLength = oTable.Columns.Count' число колонок
  For i = oTable.Rows.Count To 1 Step -1 'перебор строк снизу вверх
    For j = 1 To lRowLength Step 1 перебор ячеек слева направо в выбранной строке
      sRowText = Trim(Replace(Replace(oTable.Cell(i, j).Range.Text, Chr(13), ""), Chr(7), "")) 'текст в ячейке без спецсимволов
      If Len(sRowText) = 0 Then 'если встретилась пустая ячейка
        oTable.Rows(i).Delete ' удалим строку
        Exit For 'прервём цикл по ячейкам строки
      End If
    Next j
  Next i
Next d
Application.ScreenUpdating = True
MsgBox "Код завершил работу", vbInformation

P.S. Данный код вроде должен работать только если в таблицах нет объединения ячеек. Если же есть объединённые ячейки — надо сначала определиться с логикой:
1. Нужно ли удалять все строки, через которые эта ячейка проходит, или только верхнюю?
2. Нужно ли удалять нижние строки, которые захватывает объединённая ячейка с непустым значением (поскольку в них её значение пустое, а не пусто только в верхней из объединённых), оставляя только верхнюю?

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10

Спасибо. Однако при запуске в документе выдает ошибку «5941, Запрашиваемый номер семейства не найден» с ссылкой на «sRowText = Trim(Replace(Replace(oTable.Cell(i, j).Range.Text, Chr(13), «»), Chr(7), «»)) ‘текст в ячейке без спецсимволов»

Может, конечно я что-то не то делаю

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

Всё просто: Значит в этой таблице есть объединённые ячейки. И простой перебор строк, с последующим перебором ячеек строки к данной таблице неприменим. Нужен более изощрённый перебор собственно ячеек таблицы, с анализом .RowIndex и .ColumnIndex с удалением/оставлением в зависимости от выбранной логики (одной из вышеупомянутых или какой-то своей).

11343 / 4661 / 749

Регистрация: 07.08.2010

Сообщений: 13,512

Записей в блоге: 4

AndyChamin,

у вас же в таблицах множество объединенных ячеек, по крайней мере в шапках таблиц

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10

А можно при проверке ячеек их не учитывать?
Мне нужна корректировка необъединенных ячеек в строке 020 и 030

Punkt5

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

Ну, пропишите номера этих строк в цикле по строкам, если эти строки определимы заранее

10

For i =  ... To ...

Или внутри цикла по строкам — проверяйте сначала нужную ячейку на значение sRowtext = «020» или «030» и только для нужных затем начинайте цикл перебора ячеек в строке по j.

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10

020 и 030 это названия таблицы, это не сам номер строки) Немного лишней информации написал)

Добавлено через 15 минут

Если указываю номера строк, то выдает ошибку со ссылкой на строку
14. oTable.Rows(i).Delete

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

Номера строк, надеюсь, в цикле от наибольшего к наименьшему? А то, при удалении строки выше, для удаления последующих надо пересчитывать как i, так и ограничение цикла сверху, с учётом количества удалённых строк — гемор тот ещё, да и вот такие ошибки вылезают.

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10

Punkt5

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

AndyChamin, давайте попробуем такую логику:
1. Обрабатываем таблицу только если в в ней число ячеек = числу строк * число колонок. (то есть все таблицы, где есть объединённые ячейки — пропускаем)
2. В строке таблицы начинаем проверку ячеек на пустоту не с первой колонки, а СО ВТОРОЙ. (потому что, если в первой стоит автонумерация, то текста в данной ячейке нет — возвращает пустоту)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Dim oTable As Word.Table
Dim i As Long, j As Long, d As Long, xStr As String
 
Application.ScreenUpdating = False
For d = 1 To ActiveDocument.Tables.Count 'только по таблицам текущего документа
  Set oTable = ActiveDocument.Tables(d)
  If (oTable.Columns.Count * oTable.Rows.Count) = oTable.Range.Cells.Count Then ' ячеек = колонок * строк
    For i = oTable.Rows.Count To 1 Step -1 'перебор строк снизу вверх
      For j = 2 To oTable.Columns.Count Step 1 'перебор ячеек со ВТОРОЙ в выбранной строке
        xStr = Trim(Replace(Replace(oTable.Cell(i, j).Range.Text, Chr(13), ""), Chr(7), ""))
        If Len(xStr) = 0 Then
          oTable.Rows(i).Delete ' если встретилась пустая ячейка - удалим строку
          Exit For 'прервём цикл по ячейкам строки
        End If
      Next j
    Next i
  End If
Next d
Application.ScreenUpdating = True
MsgBox "Код завершил работу", vbInformation

0 / 0 / 0

Регистрация: 18.12.2021

Сообщений: 10