Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2017, 11:08   #1
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию Получить текст заголовка вместе с номером

В документе есть заголовки с автонумерацией. Заголовок 1/2/3
Как получить полный текст выделенного заголовка вместе с номером ?
Код:
Set oDoc = ActiveDocument
Set p = oDoc.Application.Selection.Paragraphs(1)
t = p.Range.Text
Возвращает только текст заголовка, без номера
Код:
Selection.Copy
t = GetClipboard()
Public Function GetClipboard() As Variant
    GetClipboard = "":On Error Resume Next
    Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard: GetClipboard = MyDataObj.GetText
End Function
Так получается полный текст - но код выпадает с ошибкой через раз.
"Ошибка при вызове OpenClipboard"

Что делать ? Какой более стабильный метод определить номер заголовка (если он существует) ?
Вложения
Тип файла: doc Пояснительная записка_тест.doc (104.0 Кб, 16 просмотров)
bdfy вне форума Ответить с цитированием
Старый 16.10.2017, 08:49   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от bdfy Посмотреть сообщение
Какой более стабильный метод определить номер заголовка (если он существует) ?
Код:
selection.Paragraphs(1).Range.ListFormat.ListString
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
получить текст из заголовка чужого ListView BLACK_RAIN Win Api 10 02.07.2015 11:48
Дан файл, содержащий текст, записанный строчными русскими буквами. Получить в др.файле тот же текст, develish151 Microsoft Office Word 4 05.05.2010 13:20
Как изменить текст заголовка в сообщении. Илья Сергеевич Общие вопросы Delphi 8 03.02.2010 20:08
Загрузить библиотеку вместе сразу вместе с программой Anekdot Общие вопросы Delphi 4 26.01.2010 23:14
Как получить копию ячейки вместе с форматом olimpus Microsoft Office Excel 7 11.04.2009 12:33