Лоррейн часто работает с расшифровками интервью. Интервьюеры попросят респондентов назвать свои имена. Когда она набирает их, ей нужно вставлять тире между буквами, чтобы показать, что они пишутся, как в J-O-H-N D-O-E. Лоррейн задается вопросом, есть ли способ выбрать имя, а затем запустить макрос, чтобы сделать имя заглавным и вставить необходимые дефисы между буквами.

Макросы очень хорошо подходят для этого типа обработки текста. Фактически, существует около дюжины способов решения проблемы в макросе. Вот довольно простой способ сделать это:

Sub CapDashNames()

Dim sTemp As String     Dim sName As String     Dim J As Integer

sTemp = UCase(Selection.Range.Text)   ' Make all uppercase     If Len(sTemp) > 1 Then         sName = ""

For J = 1 To Len(sTemp) - 1             ' Add new character to name             sName = sName & Mid(sTemp, J, 1)

If Mid(sTemp, J, 1) >= "A" And Mid(sTemp, J, 1) <= "Z" Then                 ' Add a dash if character was a letter                 sName = sName & "-"

Else                 ' Character added was not a letter                 If Mid(sName, Len(sName) - 1, 1) = "-" Then                     ' If there is a dash just before non-letter,                     ' get rid of it                     sName = Left(sName, Len(sName) - 2)

sName = sName & Mid(sTemp, J, 1)

End If             End If         Next J         ' Add final character         sName = sName & Right(sTemp, 1)

Selection = sName     End If End Sub

По сути, макрос проходит через все, что вы выбрали, и добавляет тире после каждого буквенного символа. Если за этим тире следует неалфавитный символ, то тире удаляется. (Так вы, например, не получите тире перед или после пробела.)

Чтобы использовать макрос, просто выберите имя, которое вы хотите изменить, а затем запустите макрос.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1354) относится к Microsoft Word 2007, 2010, 2013 и 2016.