Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 4 ]
- Зарегистрирован: 04.06.2010
- Сообщений: 32
- Поблагодарили: 3
Тема: Сортировка чисел по возрастанию (убыванию)
На сайте http://wordexpert.ru/page/sortirovka-da … viewSource
админом был предложен макрос сортировки чисел по возрастанию (числа могли иметь ещё после себя буквы). К сожалению тот макрос годится только для чисел, состоящих из двух (и только!) цифр. Может кто-то может написать аналогичный макрос для сортировки чисел, состоящих из нескольких цифр (например, для чисел состоящих из одной, двух, трёх цифр одновременно)?
- Зарегистрирован: 04.06.2010
- Сообщений: 32
- Поблагодарили: 3
Re: Сортировка чисел по возрастанию (убыванию)
Рассмотрим числа -3, 0, 122, 3, 55, -7, 13, 53а, 6543, 617, 69, 69б, 6в, 73в, 723г, 735а, 75б, 79в,
Если расположить их в столбик, по абзацам, то тогда можно воспользоваться Сортировка текста по абзацам из Word 2010. Как видим сортируются числа, состоящих из нескольких цифр. Может кто-то знает: какой алгоритм расположения чисел по абзацам и возврат их в рядок, последовательность?
- Зарегистрирован: 04.06.2010
- Сообщений: 32
- Поблагодарили: 3
Re: Сортировка чисел по возрастанию (убыванию)
Следующий макрос вроде это делает
Sub ВозрастаниеЧисел()
'
' ВозрастаниеЧисел Макрос
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ", "
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Sort ExcludeHeader:=False, FieldNumber:="абзацам", SortFieldType _
:=wdSortFieldNumeric, SortOrder:=wdSortOrderAscending, FieldNumber2:="", _
SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:=wdSortOrderAscending _
, FieldNumber3:="", SortFieldType3:=wdSortFieldAlphanumeric, SortOrder3:= _
wdSortOrderAscending, Separator:=wdSortSeparateByTabs, SortColumn:=False, _
CaseSensitive:=False, LanguageID:=wdRussian, SubFieldNumber:="абзацам", _
SubFieldNumber2:="абзацам", SubFieldNumber3:="абзацам"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ", "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Отредактировано admin (20.09.2010 07:19:38)
- Зарегистрирован: 04.06.2010
- Сообщений: 32
- Поблагодарили: 3
Re: Сортировка чисел по возрастанию (убыванию)
Не могу только отучить макрос проверять только выделенную часть документа, а не весь документ.
Сообщений [ 4 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сортировка чисел по возрастанию (убыванию)
В своей деятельности вы наверняка пользуетесь таким мощным текстовым редактором, каким является Microsoft Word. На портале о Microsoft Office Word вы узнаете про: работа в ворде в калонтитулах.
И, конечно, если работа с текстами в Ворде составляет значительную долю вашего труда, вам приходила в голову мысль о том, как оптимизировать ее. Наш сайт о Microsoft Office Word даст ответ про: какая кодировка в ворде чтоб прочитать документ.
Этот вопрос является приоритетным на форуме Ворд Экспер, посвященном работе с различными версиями программы. На портале о Microsoft Office Word вы узнаете про: ms word 2007 показывать новую вкладку панели инструментов.
Форум, прежде всего, ориентирован на написание разнообразных макросов и шаблонов для Ворда. Тут есть готовые решения той или иной задачи, разбираются различные пути. Наш сайт о Microsoft Office Word даст ответ про: как нарисовать стрелку в visio.
Вы найдете все о макросах – от самых азов для новичков, до тонкостей, которыми делятся друг с другом опытные пользователи. Наш сайт о Microsoft Office Word даст ответ про: word 2010 начать новую нумерацию.
В одном из подразделов форума вы можете оставить описание своей проблемы и сделать заказ на разработку макроса или шаблона. На портале о Microsoft Office Word вы узнаете про: колонтитулы как убрать кнопку как и в предыдущем.
Конечно, автоматизация, не единственная тема форума. Здесь обсуждаются настройки различных версий Ворда и любые другие вопросы, связанные с самой программой, редактированием, написанием, рецензированием текстов в Ворде. Наш сайт о Microsoft Office Word даст ответ про: как ввести номера страниц.
Самым часто возникающим проблемам посвящен отдельный раздел, который стоит посетить в первую очередь. На портале о Microsoft Office Word вы узнаете про: word перевести в верхний регистр.
Если у вас есть чем поделиться с другими пользователями Ворда, вы можете выкладывать свои решения в соответствующих подразделах. На портале о Microsoft Office Word вы узнаете про: как поставить галочку в экселе 2007.