Derek cần một cách để tìm, trong một tài liệu, lần tiếp theo kiểu chữ (tên phông chữ) thay đổi. Ví dụ: nếu điểm chèn nằm ở giữa tài liệu, anh ta muốn Word cho anh ta biết, bắt đầu từ điểm đó, nơi thay đổi tiếp theo xảy ra. Derek tự hỏi liệu có cách nào để hoàn thành nhiệm vụ như vậy không.

Không có cách tích hợp nào để thực hiện nhiệm vụ này, mặc dù bạn có thể biết trực quan khi nào kiểu chữ đã thay đổi. Tôi thường có thể biết đơn giản bằng cách tăng hệ số thu phóng cho tài liệu (giả sử, lên 200% hoặc 250%) và sau đó quét trực quan tài liệu để tìm kiếm những thay đổi về hình thức. Tất nhiên, điều này sẽ phụ thuộc vào sự chênh lệch trực quan giữa hai phông chữ liền kề.

Nếu bạn thích giải pháp dựa trên macro, bạn có thể tạo một giải pháp lưu tên kiểu chữ tại vị trí điểm chèn hiện tại và sau đó thực hiện từng bước qua từng ký tự còn lại của tài liệu. Nếu kiểu chữ khác với kiểu gốc, thì bạn có thể thông báo cho người dùng. Đây là một ví dụ về macro như vậy:

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

Phần lớn công việc được thực hiện trong vòng lặp Do, nơi phông chữ của mỗi ký tự được kiểm tra xem nó có thay đổi hay không. Lưu ý rằng vòng lặp cũng kiểm tra xem liệu đã đến cuối tài liệu hay chưa, tại thời điểm đó bạn muốn macro dừng lại.

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