Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте, я бы так сказал, есть тире трёх видов
1 "-" короткое тире Chr$(45)
2 "–" среднее тире Chr$(150)
3 "—" длинное тире Chr$(151)
потому что если одно из них тире, второе дефис, тогда, что же тогда третье???
Так вот как при помощи регулярок или Replace в строке
удалить пробел перед этими тремя тире
удалить пробел после этих трёх тире
удалить пробел перед и после этих трёх тире
??
Спасибо
Сначала создать функцию для замены всего, что вам вздумается
Sub Заменить_все(ByVal что As String, ByVal чем As String)
'очистить форматы поиска
Application.Selection.Find.ClearFormatting
Application.Selection.Find.Replacement.ClearFormatting
'настройки
With Application.Selection.Find
.Text = что
.Replacement.Text = чем
.Forward = True
.Wrap = WdFindWrap.wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'выполнить
Application.Selection.Find.Execute Replace:=WdReplace.wdReplaceAll
End SubТеперь можете использовтаь её в макросе, передав в качестве аргументов нужные знаки
Sub Макрос1()
'удалить пробелы до тире
Замена_с_подстановочными_знаками " " & Chr(45), Chr(45)
Замена_с_подстановочными_знаками " " & Chr(150), Chr(150)
Замена_с_подстановочными_знаками " " & Chr(151), Chr(151)
'удалить пробелы после тире
Замена_с_подстановочными_знаками Chr(45) & " ", Chr(45)
Замена_с_подстановочными_знаками Chr(150) & " ", Chr(150)
Замена_с_подстановочными_знаками Chr(151) & " ", Chr(151)
End Subя там неправильно ссылаюсь на функцию: я назвал её "Заменить_все", а ссылаюсь "Замена_с_подстановочными_знаками"
Ошибся, но суть ясна (я так думаю)
Спасибо большое, понятно
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
тире трёх видов и регулярки
Очень часто у пользователей компьютеров возникают вопросы по тем или иным программам. Чтобы найти ответы - кто-то покупает необходимую литературу, кто-то ищет ответ в интернете. На портале о Microsoft Office Word вы узнаете про: стили шрифта для word. Но нужную литературу не всегда можно найти в магазине, а в интернете – можно просто потеряться в море информации. На портале о Microsoft Office Word вы узнаете про: как в ворде выставить панель инструментов. В случае, если вас интересует приложение Microsoft Word – то смело можете обращаться на сайт Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: как в word убрать исправления.
На сайте Ворд Эксперт вы найдете все, что вам необходимо – от списка требуемой литературы до подробных ответов на интересующие вас вопросы. На портале о Microsoft Office Word вы узнаете про: microsoft word как поставить полуторный колантитул.
Если вы совершенно не знакомы с программой Microsoft Word, то в «Основном разделе» сайта вам помогут не только освоить основные принципы работы в ней, но и расскажут о многие ее нюансах и секретах. На портале о Microsoft Office Word вы узнаете про: как найти однокоренные слова в ворде. Вы узнаете - как правильно делать форматирование и редактирование, как писать макросы, как совместить различные версии, как правильно расставить колонтитулы и т.п. На портале о Microsoft Office Word вы узнаете про: ключи на оффисс 2007.
При необходимости, вы можете обратиться в раздел «заявок и заказов», оформить заявку на выполнение любой работы в приложении Microsoft Word и получить готовую качественную работу. Наш сайт о Microsoft Office Word даст ответ про: word назначение шрифта закрепить шрифт.
Наличие на сайте оперативной обратной связи тоже может вам пригодится. Можно обращаться и в случае, если вы не нашли ответ на свой вопрос, и в случае если вы хотите внести свои замечания по работе сайта. На портале о Microsoft Office Word вы узнаете про: как в ворде убрать фон. Форум работает круглосуточно и вам всегда будут рады помочь.