Самопроизвольное изменение нумерации в нумерованных списках

Это происходит из-за объединения списков. Как бороться с этим, я не знаю. Проблема известная

Макрос для быстрой перенумерации списка с начала:

Public Sub Action_List_CreateFirst()
' создать в выделенной области отдельный список
' используя формат первого в области параграфа со списком
    
    On Error Resume Next
Dim R As Word.Range
Dim T As Word.ListTemplate

    Set R = Selection.Range
    If R.ListParagraphs.Count <= 0 Then Exit Sub
    Set T = R.ListParagraphs(1).Range.ListFormat.ListTemplate
    R.ListFormat.ApplyListTemplate _
        ListTemplate:=T, _
        ContinuePreviousList:=False

End Sub

Полностью согласен.
Выше я предлагал макрос немного расширяющий эту функцию.
Для вставки списка с новой нумерацией подойдет команда:

Selection.PasteAndFormat Type:=wdListRestartNumbering

Отредактировано Вождь (22.01.2010 08:49:51)

Списки, и здесь я полностью согласен с Александром Витером, одно из больных мест редактора Word.
Зная эту особенность, я практически всегда при разработке документации использую нумерацию через SEQ - меньше геммороя и уверенность, что при обновлении документов ничто (в данном случае списки) не поедет и самопроизвольно не изменится.

Я не использую буквенную нумерацию. Но если приходится,то на этот случай использую макрос для добавления букв в качестве списка (правда, не знаю, где он у меня, так как это редчайшие случаи).
И вообще, стараюсь меньше использовать списки нумерованные. В качестве замены использую маркированные списки в виде тире. Мне хватает, но это мой случай.

Денис, все "фокусы" с разделами и тому подобными вещами уже перепробованны.

Вождю!!!
Во первых, без нервов! мною на сайте все прочитано и изучено и проблема мною описывалась детально, попробую повторить ее ругим языком, если прнжнее изложение оказалось недоходчивым. Извините.
Пробелма не во вставке какого либо одиночного списка, а во вставке текста большого объема содержащего в себе самые разнообразные списки в документ, так же содержащий самые разнообразные списки. Код VBA я знаю, но вот алгоритм выполнения подобной операции получается длинным и запутанным.
Я так думаю, что где то в недрах Microsoft есть решение, а потому и обращаюсь к разным источникам.

Представляю файлы примеров.
В архиве имеется два варианта файлов V1 и V2. В "Базовых" файлах есть закладки куда всталять текст из соответствующих "Вставляемых" файлов.
Обратите внимание на изменение нумерации в списках во вставляемых и базовых файлах. Обращаю внимание, что изменение нумерации носит непостоянный характер и не поддается алгоритмизации.

ув. Вождь с языка снял!
При конвертации сохраняется форматирование, но исчезают "порочные связи".

Нужно преобразовать маркеры Вашего списка в простой текст.
Вот таким образом:

ActiveDocument.Range.ListFormat.ConvertNumbersToText wdNumberParagraph
это, если Вы хотите обработать весь документ, и

Selection.Range.ListFormat.ConvertNumbersToText wdNumberParagraph
если нужно преобразовать в текст список лишь выделенного текста.

Прелесть в том, что внешне ничего не меняется. Минус в том, что как со списком, с этим куском текста уже не поработать.

Конвертировать в текст можно даже один параграф списка:

Paragraph.ListFormat.ConvertNumbersToText  NumberType:=Word.wdNumberParagraph

Совет: что бы при объединении документов было меньше проблем, создавайте и используйте стили, у которых в поле «Основан на стиле» стоит значение «Нет».
Полезно знать: Настройка параметров вставки (в том числе списков):
- Word 2003: меню «Сервис» > пункт «Параметры» > откройте вкладку «Правка» > в области «Параметры вырезания и вставки» нажмите кнопку «Настройка»
- Word 2007: кнопка «Office» > кнопка «Параметры Word» > вкладка «Дополнительно» в области «Вырезание, копирование, вставка» нажмите кнопку «Настройка»

Большое спасибо за совет, однако в практическом плане он ни как помочь не может. Ни одна ни вторая подсказка ни как не влияют на изменение поведения вставляемых и присутствующих списков.
Если хотите поломать голову, то попробуйте определить закономерность в выделении маркера списка (щелчке на номере или букве) в представленных ранее документах до и после операций вставки. Как "причудливо" они выделяются. Мне кажется, что разгадка где-то здесь.

Подойдет такое форматирование?
Файлы, выложенные mikkelle, в которых списки преобразованы в текст макросом «Списки в текст» (см. мой сайт).

Я выложил пример для того, чтобы было видно, что после преобразования списков в текст форматирование именно НЕ СТРАДАЕТ. Вы же это и подтвердили.

Вождю:
Прошу прощения, я немного ошибся. Действительно при работе вашего макроса остается правильное, как бы правильно выразить, начертание или положение текста на странице. Но изменяется форматирование текста определенного стиля.
Если исходить из того, что вставляемый текст большого объема и имеет в себе текст различных стилей, в том числе нумерованных списков (как например заголовки), мы снова возвращаемся к тому, что необходима предварительная обработка вставляемого текста (отделение от общего процесса преобразования заголовков). К тому же, как было подмечено ранее, дальнейшая работа с нумерованными списками представляется затруднительной.
Я ценю проделанную вами работу, и идеи воплощенные в ней вполне можно предлагать корпорации Била Гейтса, но в данном случае, при работе с текстами больших размеров она не подходит. Я сам двигался по тому же пути, но он приводит к серьезному усложнению алгоритма.

Под словом "интегрировать" вы подразумеваете вставку текста через поле связи (например IncludeText)?

Попробую сформулировать требования.
Хотелось бы тем или иным образом, без предварительной и последующей обработки документа вставлять в любую его часть текст из другого документа, содержащий в себе различные нумерованные списки без опасения, что нумерация списков как в имеющемся документе так и во вставляемом тексте не изменялась. При этом не должно нарушаться форматирование стилей, и дальнейшая работа с содержимым документа не приносила бы проблем.
Вот как то так.

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