powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Word Работа со списками
12 сообщений из 12, страница 1 из 1
VBA Word Работа со списками
    #39218250
NewAge1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день.

Встретился с проблемой. Есть многоуровневый список:

1. Раздел 1.
1.1. Пункт 1.
1.2. Пункт 2.
1.2.1. Подпункт 1.
2. Раздел 2.

и т.д.

Возможно ли как-то выделив например "Пункт 1." и получит его номер т.е. 1 и порядковый номер каждого верхнего уровня?
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218315
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Копать сюда
Код: vbnet
1.
Selection.Range.ListFormat.ListValue
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218332
NewAge1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну это то понятно. А как перейти на уровень выше. Вот с этим у меня и есть загвоздка.

У меня есть шаблон документа договора, в нем куча пунктов, например есть пункт:

2.5. Работнику поручается...

Я хочу использовать шаблон договора для формирования дополнительного соглашения к договору:

1. Пункт Договора 2.5 изложить в следующей редакции: "2.5 Работнику поручается...".

Но так получается что номер пункта 2.5 "плавающий". Это связано с тем, что пункты 2.3 и 2.4 могут как присутствовать в договоре, так и отсутствовать.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218336
NewAge1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот для этого мне надо определить все эти номера. Это для понимания зачем это нужно.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218356
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NewAge1979Ну это то понятно. А как перейти на уровень выше. Вот с этим у меня и есть загвоздка.Ну я же дал направление, куда копать. Там есть и другие свойства - ListLevelNumber, ListStringNewAge1979Я хочу использовать шаблон договора для формирования дополнительного соглашения к договору:Тогда это в корне неверный подход. Нужно делать ссылки на номера с помощью полей. Ну как в оглавлении. Тогда при изменении нумерации пунктов договора будут автоматически меняться и номера ссылок на них, и никакой VBA тут не нужен!
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218360
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProНужно делать ссылки на номера с помощью полей.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218388
NewAge1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Текст был: 2.5. Работнику поручается...
Текст стал: 1. Пункт Договора 2.5 изложить в следующей редакции: "2.5 Работнику поручается...".

Вопрос и как же я это должен без VBA сделать? Способ "силой мысли" не предлагать не проканает. Шаблон уже забит и хранится в dot файле. Заполняется не в ручную, а на основании данных из программы.

Если пользователю сказать правь вручную он только у виска пальцем покрутит. Зачем тогда нужна автоматизация.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218426
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Еще раз. Тебе нужно определить номер некоего абзаца, чтобы потом его вставить в какой-то другой абзац в виде текста.
Вместо этого я предлагаю не определять номер абзаца, а вставить ссылку на этот номер (как в приложенном примере) - это стандартная фича ворда. Тогда проблемы с "плавающим" номером не будет.

Сам текст ты можешь формировать и с помощью VBA - я говорил только про номер.

Единственное - это не прокатит, если договор и приложение находятся в разных файлах.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218441
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
NewAge1979У меня есть шаблон документа договора, в нем куча пунктов, например есть пункт:

2.5. Работнику поручается...

Я хочу использовать шаблон договора для формирования дополнительного соглашения к договору:
1. Пункт Договора 2.5 изложить в следующей редакции: "2.5 Работнику поручается...".
Но так получается что номер пункта 2.5 "плавающий".Если в этом же документе: Вставка - Перекрестная ссылка, тип ссылки: абзац, вставить ссылку на: номер абзаца, текст абзаца.
После изменения номера или текста абзаца нужно обновить поля (обычно достаточно вызвать предварительный просмотр), и изменения появятся в перекрестной ссылке.
Зачем "уровень выше" - непонятно.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218444
NewAge1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да не надо мне никуда ничего перемещать, абзац остается на месте. Просто из шаблона договора удаляются все не изменяющиеся пункты. А то что меняется и должно остаться. И остается. Только обрамляется текстом: Пункт N Договора изложить в следующей редакции: N. Какой-то текст...". или Раздел N Договора изложить в следующей редакции: N. Какой-то текст...".

Как тогда мне создать два списка такого вида (красный - список 1, зеленый - список 2):

1. Пункт N Договора изложить в следующей редакции: N. Какой-то текст...".

Word на сколько мне представляется такое не даст сделать.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218447
NewAge1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Где N в красном тогда должна быть ссылка на номер в зеленом.
...
Рейтинг: 0 / 0
VBA Word Работа со списками
    #39218450
NewAge1979
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Казанский, абзац останется один. Только был: 2.5. Работнику поручается..., а станет: 1. Пункт Договора 2.5 изложить в следующей редакции: "2.5 Работнику поручается...".
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Word Работа со списками
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]