Как перенести оглавление из файла в файл

[garik64]

Доброго времени суток! Возникла проблема: не могу перенести содержимое файла вместе с оглавлением из документа в документ. Я работаю в черновике. Редактирую-правлю документ, убиваю, добавляю и пр. и пр. Потом запускаю макрос. Он собирает оглавление из стилей. Находит строки с пользовательским стилем и делает из них одноуровневое оглавление. Потом я выделяю текст и оглавление и переношу в другой документ. Иногда переносится нормально: оглавление указывает на позиции в тексте:

{ HYPERLINK \l "_Toc246764088" }

А иногда - отсылает к черновику:

file:///C:\\Documents%20and%20Settings\\Use r\\Мои%20документы\\1\\23.11\\черно вик.doc" \l "_Toc246749548#_Toc246749548"

От чего это зависит, не знаю, но хочу узнать.

Что я делаю не так?

[viter.alex]

Сообщение от garik64

…Он собирает оглавление из стилей. Находит строки с пользовательским стилем и делает из них одноуровневое оглавление…

Как? Помечает текст как элементы оглавления?

[garik64]

Сообщение от viter.alex

Как? Помечает текст как элементы оглавления?

With ActiveDocument
.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
False, UseHeadingStyles:=False, IncludePageNumbers:=False, _
AddedStyles:="zag_vest;1", UseHyperlinks:=True, HidePageNumbersInWeb _
:=True, UseOutlineLevels:=False
.TablesOfContents(1).TabLeader = wdTabLeaderDots
.TablesOfContents.Format = wdIndexIndent

End With

[viter.alex]

дай пример черновика

[garik64]

Сообщение от viter.alex

дай пример черновика

А зачем? Нормальное оглавление, работает. Вот когда переношу, что-то лишнее цепляю или наоборот - нужное не цепляю.

[viter.alex]

Хочу посмотреть, что там можно лишнего подцепить, а чего нельзя. Неохота самому делать такое оглавление.

[garik64]

Сообщение от viter.alex

Хочу посмотреть, что там можно лишнего подцепить, а чего нельзя. Неохота самому делать такое оглавление.

А, понятно. Вот.

[viter.alex]

Из этого документа содержание копируется без вопросов. Все гиперссылки ведут внутрь документа. А у тебя копируется с искажениями?
Как ты копируешь? Просто через буфер?

[garik64]

Сообщение от viter.alex

Из этого документа содержание копируется без вопросов. Все гиперссылки ведут внутрь документа. А у тебя копируется с искажениями?
Как ты копируешь? Просто через буфер?

Да. Выделяю от верхнего пункта оглавления до последнего абзаца текста внизу. Ктрл-Цэ - Ктрл-Вэ. Я же говорю: иногда переносится нормально, иногда нет. Специально воспроизвести ситуацию не могу.