Удаление строки, столбца или ячейки из таблицы
Word для Microsoft 365 Outlook для Microsoft 365 Word 2021 Outlook 2021 Word 2019 Outlook 2019 Word 2016 Outlook 2016 Word 2013 Outlook 2013 Word 2010 Outlook 2010 Word 2007 Outlook 2007 Word Starter 2010 Еще. Меньше
Для удаления ячеек, столбцов и строк из таблицы Word можно использовать контекстное меню.
Если вы хотите удалить целую таблицу, см. раздел Удаление таблицы.
- Щелкните правой кнопкой мыши ячейку, строку или столбец, которые вы хотите удалить.
- На мини-панели инструментов нажмите Удалить.
- Выберите Удалить ячейки, Удалить столбцы или Удалить строки.
Совет: Вы можете удалить содержимое строки или столбца таблицы, не изменяя ее структуру. Для этого выделите строку или столбец, а затем нажмите клавишу DELETE.
- Щелкните правой кнопкой мыши ячейку, строку или столбец, которые вы хотите удалить.
- В меню выберите пункт Удалить ячейки.
- Чтобы удалить одну ячейку, выберите со сдвигом влево или со сдвигом вверх. Чтобы удалить строку, щелкните Удалить всю строку. Чтобы удалить столбец, щелкните Удалить весь столбец.
Совет: Вы можете удалить содержимое строки или столбца таблицы, не изменяя ее структуру. Для этого выделите строку или столбец, а затем нажмите клавишу DELETE.
Удаление пустых строк в таблице (Microsoft Office Word)
Автоматически создаются документы в ворде на несколько сотен страниц состоящие из текста и таблиц. Вопрос как удалить пустые строки в табличной части документа.
Sub DeleteEmptyRows() On Error Resume Next Dim oSelRng As Range 'Область из которой обрабатывать таблицы Dim oTbl As Table 'Текущая таблица Dim oCell As Cell 'Ячейка в таблице Dim oRowRng As Range 'Диапазон для строки Dim iStart As Long 'Начало первой пустой ячейки в строке Dim iEnd As Long 'Конец последней пустой ячейки в строке Dim i As Long 'Счетчик строк в таблице Dim j As Long 'Счетчик таблиц Dim sEmptyString As String 'Служебная строка Set oSelRng = Selection.Range 'Запоминаем диапазон выделения 'Перебираем таблицы в выделении, начиная с конца For j = oSelRng.Tables.Count To 1 Step -1 Set oTbl = oSelRng.Tables(j) 'Запоминаем таблицу 'Перебираем ячейки в первом столбце For i = oTbl.Rows.Count To 1 Step -1 If Len(oTbl.Cell(i, 1).Range.Text) = 2 Then 'Если ячейка пустая, т.е. содержит только конец абзаца и конец ячейки If Err.Number <> 5941 Then 'Если такая ячейка существует Set oCell = oTbl.Cell(i, 1) 'Запоминаем первую ячейку в строке If Not oCell Is Nothing Then 'Если ячейка запомниалась iStart = oCell.Range.Start 'Запоминаем ее начало Do While Len(oCell.Next.Range.Text) = 2 'Теперь ищем последнюю пустую ячейку в этой же строке iEnd = oCell.Next.Range.End 'Запоминаем ее конец Set oCell = oCell.Next Loop Set oRowRng = oSelRange.Document.Range(iStart, iEnd) 'Запоминаем диапазон от начала первой пустой ячейки до конца последней 'Удаляем из строки знаки абзаца и конца ячейки sEmptyString = Replace(oRowRng.Text, ChrW(13) & ChrW(7), "") If Len(sEmptyString) = 0 Then 'Если строка пустая, oRowRng.Cells.Delete ' то ячейки удаляем End If End If Else: Err.Clear 'очищаем ошибку End If End If Next i Next j End SubПохожие статьи
- Вставить текст в определенную строку ячейки таблицы в ворде
- Извлечь фотографии из doc (docx) файла
- Экспорт в Word из Memo
- Скопировать данные из Edit в Word
- Как из delphi вставить символ в word?
- Словарь словоформ русского языка
- Запуск макроса в открытом на данный момент Word
- Как макросом брать данные с word документов в excel?
- Как экспортировать таблицу ehlib в word?
- Добавить данные из DBgrid в Ms Word
Удалить строки в таблице с пустой ячейкой
Имеется большая таблица, в некоторых строках которой в 6 столбце есть пустая ячейка. Нужно найти такие ячейки и удалить строки, в которых они есть. Поможете макросом?
2 Ответ от aap77 04.07.2012 11:40:09
Re: Удалить строки в таблице с пустой ячейкой
Public Sub DeleteCells() Dim Doc As Document Dim Table As Table Set Doc = ActiveDocument For Each Table In Doc.Tables Table.Range.Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[^0013]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Next Table End Sub3 Ответ от Lohmatiy 04.07.2012 12:35:40
Re: Удалить строки в таблице с пустой ячейкой
неа, не работает. Удаляет пробелы кое-где, и все
4 Ответ от aap77 04.07.2012 12:51:28
Re: Удалить строки в таблице с пустой ячейкой
Все работает, в этом макросе вообще нет ссылок на пробелы, вышлите таблицу
5 Ответ от aap77 04.07.2012 12:59:54
Re: Удалить строки в таблице с пустой ячейкой
Опять же вопрос, если в строке встречаются пустые и заполненные ячейки то удалять всю строку? или же только когда все пустые ячейки в строке. В зависимости от этого уже просто придется дописывать созданный макрос, потому, что без действий уже созданного макроса в остальной могут возникать ошибки из-за не правильного форматирования таблицы автором
6 Ответ от Lohmatiy 04.07.2012 13:27:25
Re: Удалить строки в таблице с пустой ячейкой
В строке могут быть как пустые, так и не пустые ячейки. Нас интересует только 6 ячейка каждой строки. Если в ней пусто, удалить всю строку.
Post’s attachments
1111.doc 61 Кб, 8 скачиваний с 2012-07-04
You don’t have the permssions to download the attachments of this post.
7 Ответ от aap77 04.07.2012 16:41:07
Re: Удалить строки в таблице с пустой ячейкой
Вот теперь понятно сделаем
8 Ответ от aap77 04.07.2012 18:37:35
Re: Удалить строки в таблице с пустой ячейкой
Вот попробуйте макрос по Вашим условиям
Public Sub DeleteCells() Dim Doc As Document Dim Table As Table Dim Rw As Row Dim Cell As Cell Set Doc = ActiveDocument For Each Table In Doc.Tables Table.Range.Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[^0013]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll For Each Rw In Table.Rows i = 0 For Each Cell In Rw.Cells i = i + 1 If Cell.Range.Characters.Count = 1 And i = 6 Then Rw.Delete End If Next Cell Next Rw Next Table End Sub9 Ответ от Lohmatiy 04.07.2012 21:48:19
Re: Удалить строки в таблице с пустой ячейкой
Вот спасибо! Весь инет перерыл в поисках того. как делать макросы в ворде. Один эксель. А вы выручили.
10 Ответ от aap77 04.07.2012 22:31:07
Re: Удалить строки в таблице с пустой ячейкой
А на работу взять слабо? Я Вам весь производственный процесс обеспечу?
Сообщений [ 10 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Похожие темы
- Задать значение «Пустой строки»
- Удалить строки, где имеются повторяющиеся символы
- Высота строки в таблице
- Как отключить в таблице функцию добавления строки
- Как отвязать строки столбцов в таблице друг от друга?
- Не отображается нижняя граница каждой строки в таблице
- определение номера строки в таблице и подстановка в адрес ячейки
- Word как удалить текст в файле, закрыть и удалить макросом файл?
Удалить строки в таблице с пустой ячейкой
В современном мире необходимо постоянно совершенствовать свои знания, чтобы идти вперед. Это касается буквально всего, даже такой, казалось бы, простой и понятной операции, как работа с текстом. На портале о Microsoft Office Word вы узнаете про: word 2007 вставить как.
Microsoft Word предоставляет практически неограниченные возможности для самосовершенствования, нужно только ими правильно воспользоваться. На портале о Microsoft Office Word вы узнаете про: как вставить таблицу из ворда в эксель. На форуме Ворд Эксперт как раз и обсуждаются пути оптимизации работы, посредством написания различных шаблонов и макросов для редактирования или форматирования, построения таблиц, списков стилей. Наш сайт о Microsoft Office Word даст ответ про: для чего нужны непечатаемые знаки» в текстовом процессоре ms word.
Здесь вам подскажут оптимальные настройки программы в зависимости от стоящей задачи и помогут разобраться с тонкостями и отличиями различных версий. На портале о Microsoft Office Word вы узнаете про: ворд 2007 не печатает формулы. Для ленивых или очень занятых пользователей существуют готовые решения и возможность оставить заявку. Наш сайт о Microsoft Office Word даст ответ про: 1,25 см это сколько в ворде 2010.
страницы
- полезности word
- книги и программы
- о проекте
- стать автором
- реклама на сайте
- правовая информация
авторство
© 2006 — 2016, Word Expert
Авторские права на все материалы, опубликованные на сайте WordExpert.ru (включая текст, иллюстрации, фотографии, подборку, расположение и т.п.), принадлежат администрации Word Expert, если не указано иное.
Как удалить в таблице пустые строки в ворде
Практически каждый в наше время работает с компьютером в той или иной степени. И самой популярной программой и самой востребованной, является текстовый редактор. Бесспорно, большинство работают с редактором Microsoft Office Word. Часто при копировании текста из интернета и последующей вставкой возникает большое количество пустых абзацев. И удалять их вручную довольно длинное дело. Давайте ускорим работу до нескольких кликов мышкой.
Способ 1. На всякий случай рассмотрим, как удалить пустые строки вручную. Для примера я взял несколько абзацев из Википедии.
Порядок действий:
1. Ставим курсор перед первой буквой текста или после последней (это важно для правильной работы).
2. Нажимаем на кнопку «Заменить», которая находится на «Главная».
3. В поле «Найти» пишем ^0013 . У поле «Заменить на» пишем ^p.
4. Остается нажать на кнопку «Заменить все».
Программа выполнит поиск и замену пустых строк на обычные абзацы. В конце работы выведется сообщение с количеством выполненных замен.
Скриншот результата работы:
Способ 2 (рекомендуется). Данный способ предусматривает добавление макроса и последующее его использование.
Порядок действий:
1. Копируем макрос:
Sub delVoidParagraphs()
‘Удаление пустых абзацев в выделенном фрагменте
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = «^0013»
.Replacement.Text = «^p»
.MatchWildcards = True
.Format = False
.Forward = True
If Selection.Type = wdSelectionIP Then
.Wrap = wdFindContinue
Else
.Wrap = wdFindStop
End If
.Execute Replace:=wdReplaceAll
End With
Selection.Collapse direction:=wdCollapseStart
End Sub
2. Идем в «Вид → Макросы → Макросы».
3. Даем имя макросу (любое, без пробелов) и нажимаем «Создать».
4. Откроется окно визуального редактора Microsoft Visual Basic. Там уже будет текст с именем вашего макроса (у меня на скриншоте видно, что имя макроса delVoidParagraphs):
Sub delVoidParagraphs()
‘
‘ delVoidParagraphs Макрос
‘
‘
5. Удаляем данный код и заменяем на скопированный ранее.
6. Идем у «Вид → Макросы → Макросы», находим наш добавленный (delVoidParagraphs) и нажимаем «Выполнить». После окончания работы макроса все пустые строки будут заменены
Примеры протестированы на Windows 7 и текстовом редакторе Microsoft Office Word 2016.