Тема: Автоматическая замена цифр на надстрочный индекс
Например имеется такой вариант: Стаття 4-12. Нужно заменить в выделенном фрагменте текста -12 на 12 в надстрочном индексе, как это прописать в макросе?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Например имеется такой вариант: Стаття 4-12. Нужно заменить в выделенном фрагменте текста -12 на 12 в надстрочном индексе, как это прописать в макросе?
Прям нашествие сегодня с такими задачами Можно без макроса. Вызовите окно поиска и замены (Ctrl+H)
Шаг первый:
Найти: (Стаття [0-9]@)(-)([0-9]@>)
Заменить на: \1@#$%\3
Подстановочные знаки включены, без форматирования (кнопка "Снять форматирование")
Заменить всё.
Шаг второй:
Найти: (@#$%)([0-9]@>)
Заменить на: \2
Для замены задать в формате шрифта "Надстрочные"
Заменить всё.
Большое спасибо! Немного сделал по другому, так как слово "стаття" не всегда встречается, записал макрос и вуаля работает!
Не ожидал на столь быстрый ответ, и все же сайт чудесный еще раз большое спасибо!!!
слово "стаття"
Простите, а что это за слово? Может быть, вы имели в виду слово Статья?
Антон, стаття — это статья по-украински:)
Немного сделал по другому, так как слово "стаття" не всегда встречается, записал макрос и вуаля работает!
Roman, а на макрос посмотреть можно?
Отредактировано benoni (03.04.2010 10:23:58)
Да конечно можно но он только ищет данные случаи а не меняет, потому как в тексте может стоять просто дефис между цифрами, и макрос заменит то что нам не надо...
Вот и сам макрос:
Sub prim()
'
' prim Макрос
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "(-)([0-9]@>)"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
End Sub
Модератор: пользуйтесь тегом [сode] для оформления кода макроса!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Автоматическая замена цифр на надстрочный индекс
Для всех, кто желает совершенствоваться, расти и не любит терять времени понапрасну, предлагаем замечательную шпаргалку по Ворду – форум Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: office 2010 word поле формула. Что приятно, это русский форум, очень теплый, там вы не найдете заумных слов и жутких сленговых терминов, в которых без Билла Гейтса не разберешься. Наш сайт о Microsoft Office Word даст ответ про: как поменять в ворд пад кодировки. Все просто и понятно.
Заходя в дом - на форум, вы тут же оказываетесь в «прихожей» - разделе, где даются ответы на основные вопросы, как по самому Ворду, так и по устройству форума и сайта. Наш сайт о Microsoft Office Word даст ответ про: как убрать слишком растянутые строки. Там же вам предложат почитать что-нибудь интересное (про Ворд, конечно, за этим вы и пришли).
А в «гостиной» вы сможете обсудить программу, вашу версию, ее настройки, особенности работы, форматирование и многое другое. На портале о Microsoft Office Word вы узнаете про: ворд настройка шрифтов по умолчанию. Вас научат оптимизировать эксплуатацию Microsoft Word с помощью макросов. Это совсем не сложно.
В «столовой» форума подаются готовые блюда – оригинальные решения той либо иной проблемы, макросы и многое другое. Наш сайт о Microsoft Office Word даст ответ про: экспорт ворда в пдф. Если хотите заказать «экзотическое блюдо», добро пожаловать «на кухню» - раздел «заявки на разработку». Наш сайт о Microsoft Office Word даст ответ про: принтер не печатает формулы из equation. Оставьте в нем описание своей проблемы, и вам помогут.
Что такое «курилка» объяснять, наверно, никому не надо. На портале о Microsoft Office Word вы узнаете про: нумерация страниц в процессуальных документах. Заходите и сами все увидите. А пожелания можно оставлять в соответствующем разделе.