Сортировка слов по алфавиту

[viter.alex]

Не помню сортировки. Был макрос по выделению всего заголовка, но не сортировки

[maxys146]

Участники.doc
Вот пример файла. Заголовки 15 размером шрифта, по ним надо сортировать содержимое.

[maxys146]

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

Вид → Структура → уровень ваших заголовков → сортировать

Алекс, помнится, до вышеуказанного приёма, был тут диалог о макросе, делающем то же самое, но со скрипом. Я тогда внёс ясность, чему даже сам удивился!

Сортируются лишь заголовки, текст за ними остается как был

[viter.alex]

Sasha_Smirnov оказался абсолютно прав.

1. Нужно перейти в режим структуры (Вид→Структура).
2. Нужным заголовкам назначить первый уровень. Выбрать тут же показ только первого уровня.
3. Для 2003 офиса: меню Таблица→Сортировка…, для 2007 и 2010: кнопка сортировки в группе «Абзац» на вкладке «Главная».
4. Сортируем, выходим из режима структуры и наслаждаемся результатом.

[maxys146]

Дело в том, что очень много заголовков, как и файлов требующих форматирования. Можно как-то автоматизировать процесс если все(и только) заголовки используют 15-й шрифт?

[garik64]

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

Дело в том, что очень много заголовков, как и файлов требующих форматирования. Можно как-то автоматизировать процесс если все(и только) заголовки используют 15-й шрифт?

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

А вот что у меня получилось с помощью макрорекордера, рашпиля и такой-то матери:

***

Sub сортировщик()
'
' сортировщик Макрос
' Макрос записан 23.12.2009 garik64
'
Dim sorter As Boolean

Do While Not sorter

Selection.Find.ClearFormatting
With Selection.Find
.Font.Size = 15
.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Style = wdStyleHeading1
Selection.Find.ClearFormatting


If Not Selection.Find.Found Then

sorter = True

End If


Loop

ActiveWindow.ActivePane.View.Type = wdMasterView
Selection.Range.Paragraphs.OutlineL evel = wdOutlineLevel1
ActiveWindow.ActivePane.View.Collap seOutline Range:=Selection.Range
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Sort ExcludeHeader:=False, FieldNumber:="абзацам", SortFieldType _
:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _
:="", SortFieldType2:=wdSortFieldAlphanum eric, SortOrder2:= _
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
:=wdRussian, SubFieldNumber:="абзацам", SubFieldNumber2:="абзацам", _
SubFieldNumber3:="абзацам"
Selection.HomeKey Unit:=wdStory
ActiveWindow.ActivePane.View.Expand Outline Range:=Selection.Range
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If
End Sub

****

Вопрос знатокам: что здесь не так? Работает, но Do-While выполняет один лишний раз. Или не лишний? Условие "If Not Selection.Find.Found Then sorter = True" выполняется, но всё равно происходит loop, всё повторяется, а уже потом уходит дальше. ЧЯДНТ?

[maxys146]

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

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

Усе, спасибо всем огромное)))