извлечь текст из таблицы

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

tulakov77

Дата: Четверг, 11.11.2021, 19:02 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 0 ±

Замечаний: 80% ±

Как с макросом удалить предложение вверху таблицы и извлеч текст из таблицы. Файл до и после

К сообщению приложен файл: 8414783.doc (37.0 Kb) · 4359041.doc (35.5 Kb)

Сообщение отредактировал tulakov77 - Четверг, 11.11.2021, 19:03

Ответить

Ваша_Милость7684

Дата: Среда, 01.12.2021, 13:39 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 1 ±

Замечаний: 0% ±

Цитата tulakov77, 11.11.2021 в 19:02, в сообщении № 1 (

)

удалить предложение вверху таблицы

Это не таблица, а обычный текст с границами.
Можно убрать поиском и заменой - ищем "№*^13" заменяем на пустую строку с установленной галкой на "Подстановочные знаки".
Затем выделить весь текст и на вкладке "Главная" в секторе "Абзац" на кнопке границ выбрать "Нет границы".
Либо попробуйте макросом:
[vba]

Код

Public Sub remTxtTabl2txt()
Dim parObj As Paragraph
For Each parObj In ActiveDocument.Paragraphs
    If parObj.Range.Borders(wdBorderLeft).LineStyle = wdLineStyleNone And parObj.Range.Borders(wdBorderBottom).LineStyle = wdLineStyleNone Then
        If parObj.Range.Characters.Count <> 1 Then parObj.Range.Delete
    End If
Next parObj
ActiveDocument.Range.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
ActiveDocument.Range.Borders(wdBorderTop).LineStyle = wdLineStyleNone
ActiveDocument.Range.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
ActiveDocument.Range.Borders(wdBorderRight).LineStyle = wdLineStyleNone
ActiveDocument.Range.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
End Sub

[/vba]

Ответить

tulakov77

Дата: Четверг, 10.03.2022, 12:29 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 0 ±

Замечаний: 80% ±

Ваша_Милость7684,
спасибо

Сообщение отредактировал tulakov77 - Четверг, 10.03.2022, 12:30

Ответить

извлечь текст из таблицы

Страница 1 из 1
1