Có một quy tắc bất thành văn trong cách sắp chữ là chỉ nên có một khoảng trắng sau cuối câu. Điều này cung cấp giao diện trực quan tốt nhất trên trang in, đặc biệt khi sử dụng các kiểu chữ tỷ lệ. Vấn đề là có thể dễ dàng thêm khoảng trắng vào cuối câu mà không hề nhận ra. Macro sau, CheckSpaces, là một công cụ bạn có thể sử dụng để kiểm tra lại phần cuối câu của mình:

Sub CheckSpaces()

Call MakeChanges("Normal", ".")

Call MakeChanges("Normal", "!")

Call MakeChanges("Normal", ":")

End Sub
Sub MakeChanges(StyName As String, PuncMark As String)

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Style = ActiveDocument.Styles(StyName)

Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = PuncMark & "   "

.Replacement.Text = PuncMark & " "

.Forward = True         .Wrap = wdFindContinue         .Format = True     End With     Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = PuncMark & "  "

Selection.Find.Execute Replace:=wdReplaceAll End Sub

CheckSpaces sẽ chỉ lấy thêm khoảng trắng trong các đoạn văn được định dạng với kiểu Thông thường. Điều này đảm bảo bạn sẽ không làm lộn xộn việc định dạng trong bảng hoặc các yếu tố thiết kế khác, nơi bạn có thể muốn có thêm khoảng trắng sau các dấu chấm. Nếu bạn muốn thay đổi loại dấu câu được tìm kiếm hoặc tìm kiếm trong các đoạn văn có kiểu khác nhau, hãy thêm lệnh gọi bổ sung cho MakeChanges sau dòng thứ tư trong 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 (262) á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: