Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 6 ]
- Зарегистрирован: 20.11.2011
- Сообщений: 4
Тема: Макрос на удаление определенных символов.
Требуется создать макрос, при запуске которого, он удалял символы, которые прописаны у него в конфиге. Т.е. есть текст, а мне во всем тексте нужно удалить символы, например - г., ул., р-н
Как подобное сделать?
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Макрос на удаление определенных символов.
1. Способ воспользоваться объектом InputBox, для определения списка удаляемых слов.
Public Sub DeleteListWord()
Dim inp As String, list As Variant
inp = InputBox("Введите слова для удаления" & Chr(13) _
& "через разделитель $. Например: " _
& "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
list = Split(inp, "$") 'Создаем список слов
For i = LBound(list) To UBound(list) 'Циклом заменяем слова списка
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = list(i)
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
- Зарегистрирован: 20.11.2011
- Сообщений: 4
Re: Макрос на удаление определенных символов.
aap77 пишет:1. Способ воспользоваться объектом InputBox, для определения списка удаляемых слов.
Public Sub DeleteListWord()
Dim inp As String, list As Variant
inp = InputBox("Введите слова для удаления" & Chr(13) _
& "через разделитель $. Например: " _
& "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
list = Split(inp, "$") 'Создаем список слов
For i = LBound(list) To UBound(list) 'Циклом заменяем слова списка
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = list(i)
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
Ну не совсем так - мне нужно, чтобы в самом макросе уже были заданы эти слова. Т.е. я хочу повесить его на горячую клавишу и как только я нажимаю на нее, макрос без лишних вопросов удаляет подобные сокращения (которые я уже ввел в настройки макроса заранее). Кстати, хотелось бы еще добавить функцию, чтобы он больше одного пробела подряд удалял.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Макрос на удаление определенных символов.
Тогда вместо
inp = InputBox("Введите слова для удаления" & Chr(13) _
& "через разделитель $. Например: " _
& "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
Надо вставить
list=array("г.","ул.", "р-н") 'Создает массив зарезервированных слов
- Зарегистрирован: 20.11.2011
- Сообщений: 4
Re: Макрос на удаление определенных символов.
aap77 пишет:Тогда вместо
inp = InputBox("Введите слова для удаления" & Chr(13) _
& "через разделитель $. Например: " _
& "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
Надо вставить
list=array("г.","ул.", "р-н") 'Создает массив зарезервированных слов
А как быть с
>Кстати, хотелось бы еще добавить функцию, чтобы он больше одного пробела подряд удалял.
- Зарегистрирован: 20.11.2011
- Сообщений: 4
Re: Макрос на удаление определенных символов.
DYm00n пишет:aap77 пишет:Тогда вместо
inp = InputBox("Введите слова для удаления" & Chr(13) _
& "через разделитель $. Например: " _
& "г.$ул.$р-н") 'Запрашиваем список удаляемых слов
Надо вставить
list=array("г.","ул.", "р-н") 'Создает массив зарезервированных слов
А как быть с
>Кстати, хотелось бы еще добавить функцию, чтобы он больше одного пробела подряд удалял.
Если я правильно понял, то текст макроса должен быть такой -
Public Sub DeleteListWord()
Dim inp As String, list As Variant
list=array("г.","ул.", "р-н") 'Создает массив зарезервированных слов
list = Split(inp, "$") 'Создаем список слов
For i = LBound(list) To UBound(list) 'Циклом заменяем слова списка
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = list(i)
.Replacement.Text = ""
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
Меня вот только смушают выделенные фрагменты. Все правильно? У меня данный макрос не работает и ошибок даже не выдает
Сообщений [ 6 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Макрос на удаление определенных символов.
Очень часто у пользователей компьютеров возникают вопросы по тем или иным программам. Чтобы найти ответы - кто-то покупает необходимую литературу, кто-то ищет ответ в интернете. Наш сайт о Microsoft Office Word даст ответ про: где хранится файл normal.dot.
Но нужную литературу не всегда можно найти в магазине, а в интернете – можно просто потеряться в море информации. Наш сайт о Microsoft Office Word даст ответ про: как повернуть в ворде один лист.
В случае, если вас интересует приложение Microsoft Word – то смело можете обращаться на сайт Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: можно ли ворд 2007 открыть в ворд 2003.
На сайте Ворд Эксперт вы найдете все, что вам необходимо – от списка требуемой литературы до подробных ответов на интересующие вас вопросы. На портале о Microsoft Office Word вы узнаете про: ключь для офиса.
Если вы совершенно не знакомы с программой Microsoft Word, то в «Основном разделе» сайта вам помогут не только освоить основные принципы работы в ней, но и расскажут о многие ее нюансах и секретах. На портале о Microsoft Office Word вы узнаете про: как открыть вордовский документ с флешки 2007 г. если у меня только ворд 2003 г..
Вы узнаете - как правильно делать форматирование и редактирование, как писать макросы, как совместить различные версии, как правильно расставить колонтитулы и т.п. На портале о Microsoft Office Word вы узнаете про: как в world вставить спецсимвол.
При необходимости, вы можете обратиться в раздел «заявок и заказов», оформить заявку на выполнение любой работы в приложении Microsoft Word и получить готовую качественную работу. Наш сайт о Microsoft Office Word даст ответ про: как сделать приглашения в ворде.
Наличие на сайте оперативной обратной связи тоже может вам пригодится. Можно обращаться и в случае, если вы не нашли ответ на свой вопрос, и в случае если вы хотите внести свои замечания по работе сайта. На портале о Microsoft Office Word вы узнаете про: сантиметры word 2007.
Форум работает круглосуточно и вам всегда будут рады помочь.