Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/извлечь текст из таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » извлечь текст из таблицы
извлечь текст из таблицы
tulakov77 Дата: Четверг, 11.11.2021, 19:02 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 20% ±

Как с макросом удалить предложение вверху таблицы и извлеч текст из таблицы. Файл до и после
К сообщению приложен файл: 8414783.doc(37.0 Kb) · 4359041.doc(35.5 Kb)


Сообщение отредактировал tulakov77 - Четверг, 11.11.2021, 19:03
 
Ответить
СообщениеКак с макросом удалить предложение вверху таблицы и извлеч текст из таблицы. Файл до и после

Автор - tulakov77
Дата добавления - 11.11.2021 в 19:02
Ваша_Милость7684 Дата: Среда, 01.12.2021, 13:39 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

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

Это не таблица, а обычный текст с границами.
Можно убрать поиском и заменой - ищем "№*^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]
 
Ответить
Сообщение
удалить предложение вверху таблицы

Это не таблица, а обычный текст с границами.
Можно убрать поиском и заменой - ищем "№*^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]

Автор - Ваша_Милость7684
Дата добавления - 01.12.2021 в 13:39
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » извлечь текст из таблицы
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!