Здравствуйте, 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
Здравствуйте, PA, Вы писали:
PA>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.
PA>PA>For Each myStoryRange In ActiveDocument.StoryRanges
PA> myStoryRange.Find.Execute _
PA> FindText:="Microsoft Word", Forward:=True
PA> While myStoryRange.Find.Found
PA> myStoryRange.Italic = True
PA> myStoryRange.Find.Execute _
PA> FindText:="Microsoft Word", Forward:=True
PA> Wend
PA> While Not (myStoryRange.NextStoryRange Is Nothing)
PA> Set myStoryRange = myStoryRange.NextStoryRange
PA> myStoryRange.Find.Execute _
PA> FindText:="Microsoft Word", Forward:=True
PA> While myStoryRange.Find.Found
PA> myStoryRange.Italic = True
PA> myStoryRange.Find.Execute _
PA> FindText:="Microsoft Word", Forward:=True
PA> Wend
PA> Wend
PA>Next myStoryRange
PA>
Хоть бы код посмотрел, прежде чем бесполезные советы давать...
