لورین اغلب با متن مصاحبه ها کار می کند. مصاحبه‌کننده‌ها از مصاحبه‌شوندگان می‌خواهند تا نام‌های خود را بنویسند. هنگامی که او اینها را تایپ می کند، باید خط تیره را بین حروف وارد کند تا نشان دهد که املای آنها وجود دارد، مانند JOHN DOE. Lorraine نمی‌داند آیا راهی برای انتخاب نام و سپس اجرای یک ماکرو برای بزرگ کردن نام و درج خط تیره‌های لازم بین حروف وجود دارد.
ماکروها برای انجام این نوع پردازش متن بسیار مناسب هستند. در واقع، احتمالاً ده ها راه وجود دارد که بتوانید به مشکل در کلان خود نزدیک شوید. روش زیر یک روش نسبتاً ساده برای انجام آن است:
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) - 1Add new character to name sName = sName & Mid(sTemp, J, 1) If Mid(sTemp, J, 1) >= "A" And Mid(sTemp, J, 1) <= "Z" ThenAdd a dash if character was a letter sName = sName & "-" ElseCharacter added was not a letter If Mid(sName, Len(sName) - 1, 1) = "-" ThenIf 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 JAdd final character sName = sName & Right(sTemp, 1) Selection = sName End If End Sub</blockquote>
اساساً، ماکرو از هر چیزی که انتخاب کرده‌اید عبور می‌کند و بعد از هر کاراکتر حروف الفبا یک خط تیره اضافه می‌کند. اگر بعد از آن خط تیره یک کاراکتر غیر الفبایی وجود داشته باشد، خط تیره حذف می شود. (به این ترتیب، به عنوان مثال، قبل یا بعد از یک فاصله با خط تیره مواجه نمی شوید.)
به منظور استفاده از ماکرو، به سادگی نامی را که می خواهید تغییر دهید انتخاب کنید و سپس ماکرو را اجرا کنید.
