Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 23, средняя оценка - 4.83
Dhar
0 / 0 / 0
Регистрация: 21.03.2011
Сообщений: 1
#1

Word. Определение текущего параграфа - VBA

25.03.2011, 01:30. Просмотров 3599. Ответов 1
Метки нет (Все метки)

Всем, доброго времени суток!
Недавно пришлось начать осваивать VBA, причем параллельно на Word и Excel. Немного путаюсь, но раньше проблему удавалось решить через Яндекс Сейчас не получилось, так что прошу помочь начинающему

Задача - найти в документе словосочетание и занести его в коллекцию. После чего - найти нумерованный список (а он должен быть 100% через 2-3 параграфа после искомого словосочетания) и его занести в другую коллекцию.

Проблема в том, что когда я нахожу "Искомое словосочетание", то не знаю как определить параграф в котором нахожусь, чтобы проверить далее текст на наличие нумерованного списка...Как-то так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
With ActiveDocument.Range.Find
.ClearFormatting
.Text = "ИСКОМОЕ СЛОВОСОЧЕТАНИЕ"
.Forward = True
.Format = False
.MatchCase = True
.MatchWholeWord = False
    While .Execute
    Card = Trim(.Parent.Paragraphs(1).Range.Text)
    Cards.Add (Card)
  ' Как мне на этом этапе определить текущий параграф,
 'т.е номер параграфа, в котором находится найденное "ИСКОМОЕ СЛОВОСОЧЕТАНИЕ"???
...
Wend
 
For i = 1 To Cards.Count
MsgBox (Cards.Item(i))
Next i
End With
Буду благодарен за помощь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2011, 01:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Word. Определение текущего параграфа (VBA):

Определить номер текущего абзаца (параграфа), где стоит курсор
здравствуйте, делаю так: ' sN =...

Параграфа определение
Я выделяю какой-то участок текста в пределах параграфа Как определить на VBA...

VBA Word Определить номер параграфа в ячейке таблицы
Доброго времени суток. Работаю с ячейкой таблицы в word. Задача взять из нее,...

Есть ли способ получить или вычислить высоту параграфа в Word?
Есть ли способ получить или вычислить высоту параграфа (например, в points)?...

Не работает wdActiveEndPageNumber (определение текущего номера страницы) при запуске макроса из Excel
Добрый день. Из екселя считаю количество слов в документе и на какой странице...

Определение номера таблицы в Word
Помогите решить следующую задачу: необходимо определить номер таблицы, если в...

1
Busine2009
Заблокирован
25.03.2011, 18:31 #2
Dhar,
в Word порядковые номера для всех объектов определяются одинаково:
указываете диапазон документа от его начала и до конца того элемента, где находитесь, и считаете в этом диапазоне количество элементов - это и будет порядковый номер требуемого элемента.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2011, 18:31
Привет! Вот еще темы с решениями:

Определение номера таблицы в Word
Добрый день! Ставлю курсор в таблицу и хочу узнать ее порядковый номер (ведь...

Word, определение активной ячейки таблицы
Постоянно работаю с однотипными таблицами Word. Прошу помочь с макросом для...

Удалелние знака параграфа
Есть текстовый файл (см. приложение), при загрузке которого в Word после каждой...

Узнать номер параграфа по курсору или выделению
Привет всем! Подскажите, пожалуйста, как узнать номер параграфа по положению...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru