Lorraine thường làm việc với bảng điểm của các cuộc phỏng vấn. Người phỏng vấn sẽ yêu cầu người được phỏng vấn đánh vần tên của họ. Khi cô ấy gõ những chữ cái này, cô ấy cần phải chèn dấu gạch ngang giữa các chữ cái để cho biết chúng đang được đánh vần, như trong J-O-H-N D-O-E. Lorraine tự hỏi liệu có cách nào để chọn tên và sau đó chạy macro để viết hoa tên và chèn dấu gạch ngang cần thiết giữa các chữ cái hay không.

Macro rất phù hợp để thực hiện kiểu xử lý văn bản này. Trên thực tế, có thể có hàng tá cách bạn có thể tiếp cận vấn đề trong macro của mình. Sau đây là cách làm khá đơn giản:

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

Về cơ bản, macro bước qua bất kỳ thứ gì bạn đã chọn và thêm dấu gạch ngang sau mỗi ký tự chữ cái. Nếu sau đó dấu gạch ngang đó được theo sau bởi một ký tự không phải chữ cái, thì dấu gạch ngang đó sẽ bị xóa. (Bằng cách đó, ví dụ, bạn không kết thúc bằng dấu gạch ngang trước hoặc sau dấu cách.)

Để sử dụng macro, chỉ cần chọn tên bạn muốn sửa đổi, sau đó chạy macro.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (1354) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016.