@Maria_555

Добрый день! Подскажите, пожалуйста.
Если я хочу узнать номер раздела и использовать его я использую:

j1 = Selection.Range.Information(wdActiveEndSectionNumber)

С помощью какой строки можно узнать нумерацию, для дальнейшего использования, если у меня есть текст:
"1.1 ааааааааааааа"

"1.2 ббббббббббббб"

Мне нужно достать цифры 1.1 и 1.2 и тд.

Спасибо!

0

@Sasha_Smirnov

Уважаемая Maria_555, Mikkelle в своей теме Непонятная ошибка в Word напомнил о наличии встроенных макросов из команд Word (RestartNumbering).

Заглянув в сей кладезь бесплатных утилит (в диалоге по альт-F8), я обнаружил нечто подходящее (SelectNumber — см. рисунки), но вам, вероятно, может пригодиться другая функция: метод ConvertNumbersToText от нашего замечательного Скрипт’а из темы Как поменять автоматическую нумерацию списка на "жесткую" — а там уже, прямо в тексте, использовать обычый поиск по контрол-F.

Миниатюры

   

0

@Maria_555

Эта функция не помогла(

На примере.
Есть текст со стилями с нумерацией, кодом я нахожу слова "шпилька 7", "насос 8", "крышка 2", "корпус 3".

И мне надо достать номер, который по стилю присвоен этому абзацу, в котором находится данное слово.

Миниатюры

 

0

Аксима

Здравствуйте, Maria_555,

Прилагаю документ, в котором наглядно представил возможное решение предложенной вами задачи.

С уважением,

Аксима

Вложения

ListNumbersOutput.rar (16.8 Кб, 10 просмотров)

1

@Maria_555

Прошу прощения! Но не поняла, где решение. Открыла документ, там создан нумерованный список.

Нумерованный список я могу создать сама. Проблема у меня в том, что я кодом ищу слова в документе и копирую их в тхт. И если сравнивать с Вашим примером списка, допустим я скопирую нужные мне слова в тхт "сметана", "мясо", "соль".

Но проблема в том, что я не могу скопировать слова с номерами, а именно мне надо "сметана 1.2", "мясо 2.1", "соль 3.1". Проблема взять номер списка.

А мой пример: я ищу в тексте слова с цифрой и копирую в текст. Текст такой:

1.4.7 Для предотвращения утечек перекачиваемой жидкости в месте выхода вала из корпуса насоса в напорной крышке установлено уплотнение торцовое 21 патронного типа и образует щелевое уплотнение с втулкой 14 на валу насоса.

Я копирую слова в тхт "торцовое 21", "втулкой 14", а мне надо скопировать вместе с номером тоесть "торцовое 21 1.4.7", "втулкой 14 1.4.7"

1.4.7 - это номер пункта в документе

0

@pashulka

Мария, Обратите более пристальное внимание на пример уважаемого Аксима, ибо там есть решение Вашего вопроса.

1

@Maria_555

Прошу прощения! Макрос в документе ListNumbersOutput нашла и один и второй макрос очень хорошие. Начала макросы применять к своим гайкам и возникли проблемы, а именно покажу на "Продуктах".

Я изменила документ и вот результаты макросов: выводится не только слово и цифра, а еще и лишний текст.

0

@Sasha_Smirnov

Maria_555, извините, конечно, а это у вас работа по специальности?

0

@pashulka

Мария, А что на втором скриншоте является лишним текстом ?

Если это /надо купить/, то ответ очевиден :

1

@Maria_555

Моя работа заключается в анализе документов и упрощении работы с ними. Данный этап - это в документе найти слова, которые состоят из слова и цифры и скопировать их в тхт файл с некоторыми проверками. Все работает, кроме копирования вместе с пунктом предложения, в котором находится искомое слово.

Предложение:
"1.4.7 Для предотвращения утечек перекачиваемой жидкости в месте выхода вала из корпуса насоса в напорной крышке установлено уплотнение торцовое 21 патронного типа и образует щелевое уплотнение с втулкой 14 на валу насоса."

Я копирую слова в тхт "торцовое 21", "втулкой 14", а мне надо скопировать вместе с номером то есть "торцовое 21 1.4.7", "втулкой 14 1.4.7"

1.4.7 - это номер пункта в документе

1

@Maria_555

Добрый день! pashulka Ваш код мне очень помог, но этот кусочек кода не работает в моем макросе.

Я использую у себя

With Selection.Find при поиске слов, а дальше у меня идут проверки, циклы. И если я перепишу на
With ActiveDocument.Content.Find, то возникает ошибка дальше в моем коде.

А есть возможность изменить эту строку

slovo = slovo & " " & .Parent.ListFormat.ListString

чтоб она работала при таких условиях With Selection.Find?

0

@Maria_555

Разобралась! Изменила строку на:

slovo = slovo & " " & .Parent.Range.ListFormat.ListString

Большое спасибо всем за помощь!!!)))

2

@pashulka

Несмотря на то, что вопрос решён, позволю себе небольшую ремарку – на вышеопубликованном скриншоте не видна необходимость использования об'екта Selection, но если она есть, то в этом примере можно и :

1