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

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

amigo browser

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

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

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

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

Шаг 1.

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

Шаг 2.

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

Шаг 3.

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

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

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

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

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

Как пользоваться скриптами 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

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

3 − два =