Если вам приходится работать с таблицами в Ворде, то, думаю, вы ни раз задавались вопросом: Как удалить строку или столбец в таблице? Давайте разберем два метода удаления: вручную и автоматически.
В ручную мы можем удалить любые строчку или столбец в таблице. Также можно удалить пустые строки и столбы в Ворде с помощью скрипта VBA, который сделает это самостоятельно.
Удалить вручную строку или столбец
Данный метод проверялся в Word 2007, 2010, 2013, 2016, 2019.
Шаг 1.
Выделите левой кнопкой мыши строку или столбец, который вы желаете убрать. Подведите курсор к краю таблицы, чтобы он изменил свой вид. Смотрите на скриншот, как это сделать.
Шаг 2.
В ленте в разделе «Работа с таблицами» откройте вкладку «Макет».
Шаг 3.
В разделе «Строки и столбцы» найдите кнопку «Удаление», и в выпадающем списке выберите нужное вам действие.
В Word 2010, 2013 в выплывающем окне есть этот же список по удалению столбцов и строк из таблицы. Лишние ячейки можно убрать таким же образом.
Удалить с помощью скрипта VBA все пустые строки и столбцы
Если вы желаете подчистить таблицу в Ворде от пустых строк и столбцов, то ручной метод может быть довольно утомительным, если, скажем, у вас большая таблица. Для этого можно прибегнуть к помощи VBA, который сделает все это за вас.
Как пользоваться скриптами VBA в Word читайте здесь >>>
Скопируйте этот скрипт и запустите его выполнение.
Sub DeleteEmptyTablerowsandcolumns()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Columns.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Columns(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Columns(i).Delete
Next i
Next Tbl
End With
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Rows.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Rows(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Rows(i).Delete
Next i
Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True
End Sub
Немного юмора:
Мир конечно сошел с ума от технологий… но было бы неплохо если бы после уборки в квартире можно было бы нажать на «Сохранить»
