Здравствуйте, 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>
Хоть бы код посмотрел, прежде чем бесполезные советы давать...
