Rebecca đang tìm cách thay thế dấu phẩy cuối cùng trong câu bằng từ “và.” Cô ấy dường như cần thực hiện loại chỉnh sửa này khá nhiều và nghĩ rằng có thể có một cách nhanh chóng và dễ dàng để thực hiện chỉnh sửa thay vì cần phải thực hiện thủ công.

Không có cách cài sẵn nào để thực hiện chỉnh sửa cụ thể này trong Word, nhưng bạn có thể tạo một macro đơn giản sẽ tìm kiếm dấu phẩy cuối cùng, xóa nó rồi nhập từ bạn muốn. Sau đây là một ví dụ về một macro như vậy.

Sub ReplaceLastComma()

Dim J As Integer     Dim bRep As Boolean     Dim sRaw As String

Selection.Sentences(1).Select     sRaw = Selection.Text     bRep = False     For J = Len(sRaw) To 1 Step -1         If Mid(sRaw, J, 1) = "," Then             Selection.Collapse Direction:=wdCollapseStart             Selection.MoveRight Unit:=wdCharacter, Count:=J - 1             Selection.Delete Unit:=wdCharacter, Count:=1             Selection.TypeText Text:=" and"

J = 1             bRep = True         End If     Next J     If Not bRep Then Selection.Collapse Direction:=wdCollapseStart End Sub

Macro chọn câu hiện tại (câu nơi đặt điểm chèn, sau đó lùi lại qua văn bản của câu. (Văn bản được gán cho biến sRaw để dễ xử lý.) Nếu tìm thấy dấu phẩy, thì điểm chèn được đặt ngay trước dấu phẩy trong tài liệu, dấu phẩy sẽ bị xóa, sau đó một dấu cách và từ “và” được nhập.

Nếu bạn muốn macro không xóa dấu phẩy, bạn có thể thực hiện thay đổi nhanh chóng khi xóa dòng thực hiện việc xóa (và thay đổi dòng trước nó để chuyển động là “J + 1” chứ không phải “J-1”) hoặc bạn có thể chỉ cần thêm dấu phẩy trước đó khoảng trống trong văn bản đang được nhập bởi macro.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng macro được mô tả trên trang này (hoặc trên bất kỳ trang khác trên 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 (5401) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: