Тема: Сортировка блоков по алфавиту
Здравствуйте. Приложил файл. Требуется отсортировать по алфавиту слева направо и сверху вниз. Т.е. первые слова блоков идут по порядку слева направо и вниз дальше. Как это возможно осуществить?
Re: Сортировка блоков по алфавиту
Файл не приложен.
Re: Сортировка блоков по алфавиту
aap77 пишет:
Файл не приложен.
Прошу прощения, приложил
Re: Сортировка блоков по алфавиту
Отправил Вам на почту сообщение.
- viter.alex
- Модератор
- Неактивен
Re: Сортировка блоков по алфавиту
Так пойдёт?
Удалил лишние пробелы (" {2;}" заменить на "", подстановочные знаки включены)
Удалил пустые абзацы ("^p^p" заменить на "", подстановочные знаки выключены)
Удалил пустые абзацы в начале и в конце ячеек (макросом)
Заменил абзацы на условные символы $$ ("^p" заменить на "$$", подстановочные знаки выключены)
Преобразовал таблицу в текст, разделитель — абзац. Каждая ячейка стала одним абзацем
Отсортировал абзацы по алфавиту
Преобразовал текст в таблицу с двумя столбцами, разделитель — абзац, ширина — по ширине окна
Заменил условные символы $$ на абзацы ("$$" заменить на "^p", подстановочные знаки выключены)
Задал высоту строк 3,85 см как в исходном документе
Макросы:
'Удаление знака абзаца в начале ячейки
Sub DeleteLastParagraphInCell()
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
If oCell.Range.Characters.First.Text = ChrW(13) Then oCell.Range.Characters.First.Delete
Next
End Sub
'Удаление знака абзаца в конце ячейки
Sub DeleteLastParagraphInCell()
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
If oCell.Range.Characters.Last.Previous.Text = ChrW(13) Then oCell.Range.Characters.Last.Previous.Delete
Next
End Sub
'Преобразование всех таблиц в текст
Sub AllTablesToText()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
NestedTables:=True
Next
End SubЛучше день потерять — потом за пять минут долететь!