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

Вход

Регистрация

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

 

= Мир MS Excel/Как получить видимый текст? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Как получить видимый текст?
RAN Дата: Вторник, 14.04.2015, 14:27 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Мяв!
Имеем текст, отформатированный списком.
Как получить в переменную. именно видимый текст?
Подробнее в файле.
К сообщению приложен файл: 2285907.docx (18.8 Kb)


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеМяв!
Имеем текст, отформатированный списком.
Как получить в переменную. именно видимый текст?
Подробнее в файле.

Автор - RAN
Дата добавления - 14.04.2015 в 14:27
anvg Дата: Вторник, 14.04.2015, 15:34 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток
Для нумерованного списка можно так (как в блокноте)
[vba]
Код
Public Sub GetListAndRangeText()
     With ThisDocument.Paragraphs(1).Range
         If .ListParagraphs.Count = 1 Then
             Debug.Print .ListFormat.ListString & vbTab & .Text
         End If
     End With
End Sub
[/vba]
 
Ответить
СообщениеДоброе время суток
Для нумерованного списка можно так (как в блокноте)
[vba]
Код
Public Sub GetListAndRangeText()
     With ThisDocument.Paragraphs(1).Range
         If .ListParagraphs.Count = 1 Then
             Debug.Print .ListFormat.ListString & vbTab & .Text
         End If
     End With
End Sub
[/vba]

Автор - anvg
Дата добавления - 14.04.2015 в 15:34
RAN Дата: Вторник, 14.04.2015, 16:00 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Андрей, мУрси, поковыряю.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеАндрей, мУрси, поковыряю.

Автор - RAN
Дата добавления - 14.04.2015 в 16:00
  • Страница 1 из 1
  • 1
Поиск:

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