Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Есть ли возможность преобразовать:
1. 234 235 238
34. 303 307 309
122. 389 390 398
и .т.д. (все числа разделены пробелами)
в таблицу (2 столбика) так, как сделано в прилагаемом файле.
Заранее спасибо!
Отредактировано grevicand (29.08.2010 18:40:47)
Поскольку прилагаемого файла нет, то попробую угадать. Всё, что до точки должно быть в первом столбце, а всё остальное во втором? Нет ничего проще.
Выделите текст и преобразуйте в таблицу с разделителем "." (точка)
Спасибо, не совсем то. Попробую еще раз файл вложить
Всё ясно. Попробуйте такой макрос:
Sub ConvToTable()
Dim oRng As Range
Const B As String = "@#$%"
Set oRng = Selection.Range
'Пробел после цифры заменяется на кодовую последовательность и точку
With Selection.Find
.Text = "([0-9]) "
.MatchWildcards = True
.Replacement.Text = "\1" & B & "."
.Execute Replace:=wdReplaceAll
End With
'Точка с пробелом заменяется на точку
With oRng.Find
.Text = ".^w"
.Replacement.Text = "."
.Execute Replace:=wdReplaceAll
End With
'Кодовая последовательность заменяется на абзац
With oRng.Find
.Text = B
.Replacement.Text = "^p"
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
'Преобразование в таблицу
oRng.ConvertToTable ".", NumColumns:=2, InitialColumnWidth:="30"
End SubОтлично! Очень часто приходится делать эту работу с большими списками (раньше числа до точки расставлял вручную). Теперь - все мгновенно. На последней операции макроса, правда, у меня не срабатывает, и дополнительно делаю "Преобразовать текст в таблицу" с разделителем ".", но это 2 секунды делов.
viter.alex, большое спасибо!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Список - в таблицу
Вам приходилось, к примеру, редактировать текст, весом с хороший булыжник, где нерадивый наборщик поставил по сорок пробелов между словами? На портале о Microsoft Office Word вы узнаете про: как сделать привязку названия к таблице. Пытались ли вы когда-нибудь вручную поменять в Microsoft Word стили? Вы перешли на новую версию программы, все непривычно и непонятно? На портале о Microsoft Office Word вы узнаете про: кодировка надстрочных и подстрочных символов в html. А может, наоборот, вам пришли в голову оригинальные решения, которыми вы хотите поделить с другими пользователями? Наш сайт о Microsoft Office Word даст ответ про: антоним слова стрессовый.
Приглашаем вас посетить форум Ворд Эксперт, где собраны все основные вопросы по этой программе, касательно настроек, работы с документами, в том числе и сложные случаи исправления чужих ошибок и косяков. На портале о Microsoft Office Word вы узнаете про: направление теста ворд 2010.
Побывав на форуме, вы поймете, что написать макрос – легко и просто, а при желании найдете литературу на этой теме (список прямо на главной). На портале о Microsoft Office Word вы узнаете про: как сократить разрыв в ворде. Возможно, ответ на свой вопрос или решение проблемы вы отыщете в разделах автоматизации или готовых решений. Наш сайт о Microsoft Office Word даст ответ про: альтф9 в ворде. Если ваша проблема уникальна, можно всегда сделать заявку в соответствующем разделе. Также в этих разделах вы можете выложить свои наработки. На портале о Microsoft Office Word вы узнаете про: мышки иллюстрация закладок и.
Что приятно, на форуме довольно строгий контроль спама и флуда, на Ворд Эксперт общаются профессионально, но на доступном и понятном языке. Наш сайт о Microsoft Office Word даст ответ про: как сохранить файл в pdf. Для общих тем существует «курилка», для пожеланий по работе предусмотрен свой раздел.