Здравствуйте, Jyk, Вы писали:

Jyk>Проблема следующая,
Jyk>автоматически снимаю связи во всём документе, но почему то упорно не снимаются связи находящиеся в верхнем или нижнем колонтитуле следующих за первым разделов (разделенных через "разрыв раздела"),всё это при условии что в последующих разделах колонтитул не наследуется из первого.
Jyk>Вот код обработки:
Jyk> For Each StoryRange In WordDoc.StoryRanges
Jyk> For Each Field In StoryRange.Fields
Jyk> If Field.Code <> "PAGE " Then
Jyk> Field.Unlink
Jyk> End If
Jyk> Next Field
Jyk> Next StoryRange

Jyk>В общем не понимаю, почему в StoryRange отсутствуют искомые разделы и как с этим боротся...

Use the NextStoryRange property to loop through all stories in a document. The following example searches each story in the active document for the text "Microsoft Word." When the text is found, it's formatted as italic.

For Each myStoryRange In ActiveDocument.StoryRanges
    myStoryRange.Find.Execute _
        FindText:="Microsoft Word", Forward:=True
    While myStoryRange.Find.Found
        myStoryRange.Italic = True
        myStoryRange.Find.Execute _
            FindText:="Microsoft Word", Forward:=True
    Wend
    While Not (myStoryRange.NextStoryRange Is Nothing)
        Set myStoryRange = myStoryRange.NextStoryRange
        myStoryRange.Find.Execute _
            FindText:="Microsoft Word", Forward:=True
        While myStoryRange.Find.Found
            myStoryRange.Italic = True
            myStoryRange.Find.Execute _
                FindText:="Microsoft Word", Forward:=True
        Wend
    Wend
Next myStoryRange