Статьи из блога
Сортировка данных в строке по алфавиту для Word 2007
Андрей интересуется:
Подскажите пожалуйста, как сделать сортировку в Word 2007 по алфавиту значений, находящихся в строчке? Например, вот такие значения в строчке - 63, 53а, 67, 73в, 75а, 69, 69б, 79в, 75б, 73г, 69в и т.д.
Это можно сделать с помощью следующего макроса (подсказал Graham Mayor). Выделите строчку с вашими номерами и примените макрос:
Sub sortNumbers() Dim oRng As Range With Selection .HomeKey wdLine .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Set oRng = .Range End With oRng.End = oRng.End - 1 oRng = Replace(oRng, ", ", Chr(13)) oRng.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _ SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending oRng = Replace(oRng, Chr(13), ", ") End Sub
Рубрика: Стили и форматирование, Макросы, Вопрос-Ответ
Метки: word 2007 | макросы | сортировка
Просмотров: 47626
Подписаться на комментарии по RSS
Версия для печати
Метки: word 2007 | макросы | сортировка
Просмотров: 47626
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Комментариев: 7
Если операцию приходится выполнять часто, то конечно лучше написать и использовать макрос.
А так бы разбил строку на отдельные строки, отсортировал эти строки и преобразовал обратно в строку.
1. Заменить запятую и пробел на знак абзаца
2. Таблица - Сортировка
3. Заменить знак абзаца на запятую и пробел
А где в 2007 офисе создать макрос?
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
http://wordexpert.ru/page/sozdanie-makrosa-iz-gotovogo-koda
http://wordexpert.ru/page/avtomaticheskaya-zapis-makrosa
Данный макрос хорош в том случае если перед цифрами и за ними нет слов.
Может, кто знает, как его переписать, чтобы можно было ссылки на литературные источники сортировать в тексте (объемом 120-150 листов)?
Пример: "слово_1" [1, 5, 4, 2, 8, 3] "слово_2" -> сделать "слово_1" [1, 2, 3, 4, 5, 8] "слово_2".
подскажите, можно ли в ворде по список сделать по алфавиту?
Антон! Макрос работает для чисел, состоящих из двух (и только!) цифр. А написать аналогичный макрос для чисел из одной цифры; двух, трёх, ... цифр нельзя?
а как это сделать с текстом без цифр?