Настройка параметров многоуровневого списка Word с помощью VBA

Question

Я обновляю шаблон документа Word, который использует несколько стилей, которые я адаптировал для включения текста перед числами в многоуровневый список, чтобы автоматически добавлять этот текст при подготовке документов.Я добавил несколько новых стилей списка и в поле «Введите форматирование для чисел:» перед числами я добавил некоторый текст, например «Рекомендация 1», которую я связал со стилем.Когда пользователи нажимают на этот стиль, слово автоматически вводит слово Рекомендация и соответствующий номер в последовательности.

Теперь необходимо добавить несколько новых стилей с более длинным текстом перед номером.Например, мне нужно поставить «Частично подтвержденная рекомендация» перед номером, но это невозможно, потому что слово, как представляется, имеет ограничение только 22 символа в этом поле.

Есть ли способ решить эту проблему (поместить строку длиной более 22 символов в поле «Введите форматирование для чисел:») с помощью VBA?

Answer 1

Это ограничение приложения Word и того, как работает автоматическая нумерация.Нет возможности делать то, что предлагается как часть стиля.VBA не может делать вещи, которые не поддерживаются приложением Word, он может только «автоматизировать» действия, обычно выполняемые пользователями.

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

1. Вместо этого используйте сокращение.Если сокращение должно быть записано в «окончательной версии» документа, с помощью VBA можно было бы преобразовать нумерацию в текст, а затем использовать Find and Replace, чтобы заменить сокращение полным текстом.

2. Используйте ListNum поля для нумерации.Они могут быть расположены в любом месте текста.Код VBA можно использовать для вставки текста плюс код поля.