George chỉ muốn cô đọng khoảng cách giữa các từ trong một số văn bản mà anh ấy chọn trong tài liệu. Anh ta có thể thay đổi kích thước điểm của từng không gian, từng điểm một. Anh ta cũng có thể làm điều đó bằng cách tìm khoảng trống và thay thế nó bằng một khoảng trắng có kích thước phông chữ nhỏ hơn. Tuy nhiên, anh ấy muốn giảm kích thước của các không gian từng bước. (Ví dụ: 0,1 điểm trong mỗi bước.)

Không thể thực hiện chính xác những gì George muốn vì Word chỉ cho phép bạn điều chỉnh kích thước phông chữ theo gia số nửa điểm chứ không phải tăng điểm mười. Nếu giảm một nửa điểm tại một thời điểm sẽ làm được, thì cách tốt nhất là sử dụng macro:

Sub StepSpaceFontSize()

Dim F As Double     Dim C As Long

For C = 1 To Len(Selection)

If Asc(Mid(Selection, C, 1)) = 32 Then             F = Selection.Range.Characters(C).Font.Size             If F > 5 Then                 Selection.Range.Characters(C).Font.Size = (F - 0.5)

End If         End If     Next C End Sub

Macro bước qua từng ký tự trong bất kỳ văn bản nào được chọn và, nếu ký tự là khoảng trắng, sẽ giảm kích thước điểm của chỉ khoảng trắng đó. Macro thực thi giới hạn dưới cùng về kích thước phông chữ, vì nó sẽ chỉ giảm xuống 5 điểm.

_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 (13717) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.