Если вам приходится работать с таблицами в Ворде, то, думаю, вам ни раз приходил вопрос: Как удалить строку или столбец в таблице? Давайте разберем два метода удаления: вручную и автоматически.
В ручную мы можем удалить любые строку или столбец в таблице. Также можно удалить пустые строки и столбы в Ворде с помощью скрипта VBA, который удалит их самостоятельно.
- Удалить вручную строку или столбец
- Удалить с помощью скрипта VBA все пустые строки и столбцы
- 1 Удалить вручную строку или столбец
- 2 Удалить с помощью скрипта VBA все пустые строки и столбцы
Удалить вручную строку или столбец
Данный метод проверялся в Word 2007, 2010, 2013.
Шаг 1.
Выделите левой кнопкой мыши строку или столбец, который вы желаете удалить. Подведите курсор к краю таблицы, чтобы курсор изменил свой вид. Смотрите на скриншот, как это сделать.
Шаг 2.
В ленте в разделе «Работа с таблицами» откройте вкладку «Макет».
Шаг 3.
В разделе «Строки и столбцы» найдите кнопку «Удаление», и в выпадающем списке выберите нужное вам действие.
В Word 2010-2013 в выплывающем окне есть этот же список по удалению столбцов и строк из таблицы.
Удалить с помощью скрипта VBA все пустые строки и столбцы
Если вы желаете подчистить таблицу в Ворде от пустых строк и столбцов, то ручной метод может быть довольно утомительным, если, скажем, у вас большая таблица. Для этого можно прибегнуть к помощи VBA, который сделает все это за вас.
Данный метод проверялся в Word 2007, 2010, 2013
Как пользоваться скриптами VBA в Word читайте здесь >>>
Скопируйте этот скрипт и запустите его выполнение.
Sub DeleteEmptyTablerowsandcolumns()Application.ScreenUpdating = FalseDim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As BooleanWith ActiveDocumentFor Each Tbl In .Tablesn = Tbl.Columns.CountFor i = n To 1 Step −1fEmpty = TrueFor Each cel In Tbl.Columns(i).CellsIf Len(cel.Range.Text) > 2 ThenfEmpty = FalseExit ForEnd IfNext celIf fEmpty = True Then Tbl.Columns(i).DeleteNext iNext TblEnd WithWith ActiveDocumentFor Each Tbl In .Tablesn = Tbl.Rows.CountFor i = n To 1 Step −1fEmpty = TrueFor Each cel In Tbl.Rows(i).CellsIf Len(cel.Range.Text) > 2 ThenfEmpty = FalseExit ForEnd IfNext celIf fEmpty = True Then Tbl.Rows(i).DeleteNext iNext TblEnd WithSet cel = Nothing: Set Tbl = NothingApplication.ScreenUpdating = TrueEnd Sub
