Как удалить строку в таблице ворд
Перейти к содержимому

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

  • автор:

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

«Ведем мышку к левому краю текста, пока курсор не поменят форму».
.
«Не спешите, давайте еще раз. »
.
«Стоп. Молодец! Теперь кликаем мышкой . »
.
«Левой, а не правой. Давайте еще раз. »
.
.

Когда я не знаю, какая точно функция в VB отвечает за требуемое действие, то пробую записать макрос, а потом лезу в код.
Я делал как (0), только наработка у меня дома.

(3) Если действительно записать макрос, то получается следующее: Selection.Rows.Delete. То есть удаляет текущую строку. Мне же нужно удалить конкретный элемент коллекции, для которого я знаю индекс. Но конструкция Таблица.Rows.Delete(Таблица.Rows(НужныйИндекс)) не канает.

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

Option Explicit
Dim myDocument As Word.Document

Sub cardWord()
Dim myWord As New Word.Application
Dim n As Integer
On Error GoTo InStr
Set myDocument = myWord.Documents.Open(ThisWorkbook.Path & «/DocWord.doc»)

For n = 0 To 10
myDocument.Content.Find.Execute «Товар_» & CStr(n), False, False, False, False, False, True, 1, False, «ТОВАР №» & CStr(n), 2
Next

‘Сохранение перед закрытием
myDocument.SaveAs (ThisWorkbook.Path & «/Измененная карта_карта.doc»)
myDocument.Close

‘myDocument.Close ‘Был отключен
myWord.Quit
Exit Sub

‘Обработчик ошибок
InStr:
If Err.Description <> «» Then
MsgBox «Ошибка » & Err.Description
myDocument.Close
myWord.Quit
End If
End Sub

[/vba]
Также существует файл Word с таблицей. Задача состоит в том, чтобы сделать так чтобы программа добавили строки в таблицу или удалила если необходимо в зависимости от изменения n.
То есть если товаров 100, то они должны быть в таблице, если 2 тоже должны быть в таблице, но в первом случае в таблице программным образом установить 100 строк, во втором 2. Спасибо

Добрый день, существует макрос
[vba]

Option Explicit
Dim myDocument As Word.Document

Sub cardWord()
Dim myWord As New Word.Application
Dim n As Integer
On Error GoTo InStr
Set myDocument = myWord.Documents.Open(ThisWorkbook.Path & «/DocWord.doc»)

For n = 0 To 10
myDocument.Content.Find.Execute «Товар_» & CStr(n), False, False, False, False, False, True, 1, False, «ТОВАР №» & CStr(n), 2
Next

‘Сохранение перед закрытием
myDocument.SaveAs (ThisWorkbook.Path & «/Измененная карта_карта.doc»)
myDocument.Close

‘myDocument.Close ‘Был отключен
myWord.Quit
Exit Sub

‘Обработчик ошибок
InStr:
If Err.Description <> «» Then
MsgBox «Ошибка » & Err.Description
myDocument.Close
myWord.Quit
End If
End Sub

[/vba]
Также существует файл Word с таблицей. Задача состоит в том, чтобы сделать так чтобы программа добавили строки в таблицу или удалила если необходимо в зависимости от изменения n.
То есть если товаров 100, то они должны быть в таблице, если 2 тоже должны быть в таблице, но в первом случае в таблице программным образом установить 100 строк, во втором 2. Спасибо Sashagor1982

К сообщению приложен файл: 111.rar (17.1 Kb)
Сообщение Добрый день, существует макрос
[vba]

Option Explicit
Dim myDocument As Word.Document

Sub cardWord()
Dim myWord As New Word.Application
Dim n As Integer
On Error GoTo InStr
Set myDocument = myWord.Documents.Open(ThisWorkbook.Path & «/DocWord.doc»)

For n = 0 To 10
myDocument.Content.Find.Execute «Товар_» & CStr(n), False, False, False, False, False, True, 1, False, «ТОВАР №» & CStr(n), 2
Next

‘Сохранение перед закрытием
myDocument.SaveAs (ThisWorkbook.Path & «/Измененная карта_карта.doc»)
myDocument.Close

‘myDocument.Close ‘Был отключен
myWord.Quit
Exit Sub

‘Обработчик ошибок
InStr:
If Err.Description <> «» Then
MsgBox «Ошибка » & Err.Description
myDocument.Close
myWord.Quit
End If
End Sub

[/vba]
Также существует файл Word с таблицей. Задача состоит в том, чтобы сделать так чтобы программа добавили строки в таблицу или удалила если необходимо в зависимости от изменения n.
То есть если товаров 100, то они должны быть в таблице, если 2 тоже должны быть в таблице, но в первом случае в таблице программным образом установить 100 строк, во втором 2. Спасибо Автор — Sashagor1982
Дата добавления — 12.03.2023 в 14:56

Удаление в таблице строк с определенными значениями? Или пустых

Надо в WORD удалить в таблице (включая вложенные) ячейки или строки, содержащие определенные значения? Таких значений несколько.
Пример:
Static false
Leaf false
Documentation Процедура перегрузки ошибок линейной тарификации и ошибок расчета доп начислений
Create Date Time 21.12.2012 13:30:25
Last Modified 21.12.2012 13:41:30
Ordered false
Unique true
Query false

Надо отставить только строку с Documentation.
Сам документ на 1000 с лишним страниц.

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

2 Ответ от Alex_Gur 26.12.2012 16:38:21

Re: Удаление в таблице строк с определенными значениями? Или пустых

Это задача для СУБД. Word для этих целей не особенно предназначен.
Попробуйте конвертировать вашу таблицу в Access, и там реализуйте все с помощью запросов.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк — 41001162202962; на WebMoney — R581830807057.

Сообщений [ 2 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Автоматическое удаление отдельных строк в большой таблице
  • Удаление пустых столбцов во всех таблицах документа
  • Добавление и удаление строк
  • Нумерация строк в таблице Word
  • Удаление строк таблиц по условию
  • Автоматическое удаление ненужных строк
  • Нумерация строк в таблице с объединенными ячейками
  • Простейший способ нумерации строк в таблице Word

Удаление в таблице строк с определенными значениями? Или пустых

Чтобы лучше ознакомиться со всеми тонкостями самого популярного редактора для набора текстов – Ворд, предлагаем посетить форум сайда Ворд Эксперт, который полностью посвящен работе с редактором. На портале о Microsoft Office Word вы узнаете про: как в ворде сложить числа по столбцу.

Форум имеет структуру, сходную со структурой самого приложения. То есть в отдельный подраздел вынесены общие и наиболее часто встречающиеся вопросы, в другом обсуждаются настройки программы, возможности по ее форматированию. На портале о Microsoft Office Word вы узнаете про: какие средства используются для ускорения набора текста в доку¬ментах word.. Автоматизации различных операций посредством написания соответствующих шаблонов, макросов, задания специфических настроек, посвящен подраздел «Автоматизация». На портале о Microsoft Office Word вы узнаете про: как сделать исправления в ворде удалить строчку линией.

Также на форуме можно получить готовое решение многих задач или оставить свою заявку.

страницы

  • полезности word
  • книги и программы
  • о проекте
  • стать автором
  • реклама на сайте
  • правовая информация

авторство

© 2006 — 2016, Word Expert
Авторские права на все материалы, опубликованные на сайте WordExpert.ru (включая текст, иллюстрации, фотографии, подборку, расположение и т.п.), принадлежат администрации Word Expert, если не указано иное.

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

Как из 1С программно удалить строку из таблицы word с объединенными ячейками?

Сформирован файл, в нем есть таблица. 1-я и 2-я строчки обычные, дальше с 3-ей строки идут строки с объединенными по вертикали ячейками. При попытке удалить ВТОРУЮ строку (без объединенных ячеек) выпадает такая ошибка:
: Ошибка при вызове метода контекста (Rows)
Таблица.Rows(2).Delete();
по причине:
Произошла исключительная ситуация (Microsoft Word): Отсутствует доступ к отдельным строкам, поскольку таблица имеет ячейки, объединенные по вертикали.

При том, что если все аналогично формировать, но создавать строки БЕЗ объединенных ячеек, то этот метод без проблем отрабатывает ровно в том же виде.

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

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