Быстрое добавление строк или столбцов в таблицу документа Word

При работе с документом Word добавление строк и столбцов в таблицы — распространённая задача, позволяющая эффективнее организовывать и представлять информацию. В этом руководстве приведены подробные шаги для быстрого и удобного добавления строк или столбцов в таблицу Word.

Добавить несколько строк над / под выделением в таблицу

Добавить несколько столбцов слева или справа от выделения в таблицу

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

Удалить строки или столбцы

Добавить несколько строк над / под выделением в таблицу

В этом разделе описаны два простых способа добавления строк над или под выделенной строкой для размещения дополнительных данных: с помощью вкладки «Макет» и контекстного меню правой кнопки мыши. Оба метода одинаково эффективны — выберите тот, который покажется вам более интуитивным.

Шаг 1: выделите строки, над или под которыми нужно вставить новые строки

• Щелкните по любой ячейке в строке или выберите всю строку, куда нужно добавить новую строку.
• Чтобы вставить несколько новых строк, выделите столько строк, сколько собираетесь добавить. Например, если вы хотите вставить три новые строки, сначала выделите три строки в таблице.
  

Шаг 2: примените функцию «Вставить сверху» / «Вставить снизу»

• Способ 1: при выделенных строках перейдите на вкладку Макет и выберите Вставить сверху или Вставить снизу в группе Строки и столбцы. См. снимок экрана:
  
• Способ 2: щелкните правой кнопкой мыши по выделению и выберите Вставить → Вставить строки сверху / Вставить строки снизу. См. снимок экрана:
  

Результат:

Будет вставлено столько же строк, сколько выделено — либо над, либо под выделенной областью. См. снимки экрана:

• Вставить строки над выделением
  
• Вставить строки после выделения
  

Добавить несколько столбцов слева или справа от выделения в таблицу

В этом разделе подробно описано, как добавить столбцы слева или справа от выделенной области в таблице Word. Мы рассмотрим два основных способа: через вкладку «Макет» и с помощью контекстного меню правой кнопки мыши.

Шаг 1: выделите столбцы, слева или справа от которых нужно вставить новые столбцы

• Щелкните по любой ячейке в столбце или выделите весь столбец, куда нужно добавить новый столбец.
• Чтобы вставить несколько новых столбцов, выделите столько столбцов, сколько собираетесь добавить. Например, если вы хотите вставить два новых столбца, сначала выделите два столбца в таблице.
  

Шаг 2: примените функцию «Вставить слева» / «Вставить справа»

• Способ 1: выделите столбцы, перейдите на вкладку Макет и в группе Строки и столбцы выберите Вставить слева или Вставить справа. См. снимок экрана:
  
• Способ 2: щелкните правой кнопкой мыши по выделению и выберите Вставить → Вставить столбцы слева / Вставить столбцы справа. См. снимок экрана:
  

Результат:

Будет вставлено столько же столбцов, сколько выделено — либо слева, либо справа от выделенного фрагмента. См. снимки экрана:

• Вставить столбцы к Слева от выбранного диапазона
  
• Вставить столбцы к Справа от выбранного диапазона
  

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

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

Шаг 1: выделите строку, над или под которой нужно вставить новые строки

Щелкните по любой ячейке в строке или выберите всю строку, куда нужно добавить несколько строк.

Шаг 2: откройте редактор модулей VBA и скопируйте код

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В открывшемся окне нажмите Вставка > Модуль, чтобы создать новый пустой модуль.
3. Затем скопируйте и вставьте один из приведённых ниже кодов в пустой модуль.
   Код VBA: добавление нескольких строк над выделенной строкой

   Sub Addrowsabove()
   'Updateby Extendoffice
       Dim lngIndex As Long
       Dim lngRowsToAdd As Long
       Dim lngPosit As Long
       Dim oTbl As Word.Table
       If Selection.Information(wdWithInTable) Then
           lngRowsToAdd = InputBox("How many rows?", "Kutools for Word", 1)
           Set oTbl = Selection.Tables(1)
           lngPosit = Selection.Rows(1).Range.Information(wdEndOfRangeRowNumber)
           For lngIndex = 1 To lngRowsToAdd
               oTbl.Rows.Add oTbl.Rows(lngPosit)
           Next lngIndex
       End If
   End Sub

   
   Код VBA: добавление нескольких строк под выделенной строкой

   Sub Addrowsbelow()
   'Updateby Extendoffice
       Dim lngIndex As Long
       Dim lngRowsToAdd As Long
       Dim lngRowPosition As Long
       Dim oTbl As Word.Table
       If Selection.Information(wdWithInTable) Then
           lngRowsToAdd = InputBox("How many rows?", "Kutools for Word", 1)
           Set oTbl = Selection.Tables(1)
           lngRowPosition = Selection.Rows(1).Index
           For lngIndex = 1 To lngRowsToAdd
               oTbl.Rows.Add oTbl.Rows(lngRowPosition + lngIndex)
           Next lngIndex
       End If
   End Sub

Шаг 3: выполните код

Затем нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне укажите количество строк, которое нужно вставить, и нажмите кнопку ОК.

Результат:

Код добавит указанное количество строк в таблицу в выбранном месте — сверху или снизу.

Удалить строки или столбцы

Если вы хотите удалить строки или столбцы из таблицы в документе Word, я расскажу вам о нескольких простых приёмах.

Шаг 1: выделите строку или столбец в таблице

• Выделите всю строку, которую хотите удалить, переместив курсор влево от таблицы — за пределы первой ячейки строки. Курсор изменится на стрелку, направленную вправо. Щёлкните, как только появится стрелка, чтобы выделить всю строку.
  
• Чтобы выделить столбец, наведите указатель мыши на первую ячейку нужного столбца и дождитесь, пока он превратится в стрелку, направленную вниз. Затем щёлкните — и весь столбец будет выделен.
  

Шаг 2: нажмите клавишу Backspace

Нажмите клавишу Backspace на клавиатуре, чтобы немедленно удалить выделенную строку или столбец.

Связанные статьи: