Khi tôi đang định dạng tài liệu, có nhiều lần tôi cần một từ hoặc đoạn văn cụ thể được định dạng cả in đậm và nghiêng. Word bao gồm các công cụ (trên thanh công cụ Định dạng) áp dụng chữ in đậm và in nghiêng, nhưng không in nghiêng đậm. Tôi cảm thấy mệt mỏi khi thực hiện hai lần nhấp chuột, vì vậy tôi đã tạo công cụ của riêng mình để áp dụng cả hai định dạng cùng một lúc. Sau đó, macro kết quả có thể được gán cho một công cụ trên thanh công cụ, ngay bên cạnh các công cụ Bold và Italics.

Cách đơn giản nhất để làm điều này là với một macro như sau:

Sub BoldItalics1()

Selection.Font.Bold = True     Selection.Font.Italic = True End Sub

Macro này bật các thuộc tính, nhưng nó không thực hiện bất kỳ thao tác chuyển đổi nào. Nói cách khác, bạn không thể tắt tính năng in nghiêng đậm bằng cách sử dụng cùng một macro, như bạn có thể làm với các công cụ In đậm và Nghiêng riêng lẻ. Điều này dẫn đến macro “thế hệ tiếp theo”, sẽ kiểm tra trạng thái của văn bản đã chọn trước khi thực hiện bất kỳ thay đổi nào:

Sub BoldItalics2()

Dim BIStatus As Integer

BIStatus = 0     If Selection.Font.Bold Then BIStatus = BIStatus + 1     If Selection.Font.Italic Then BIStatus = BIStatus + 1

If BIStatus = 0 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 1 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 2 Then         Selection.Font.Bold = False         Selection.Font.Italic = False     End If End Sub

Các dòng đầu tiên của macro tăng một biến (BIStatus) tùy thuộc vào việc đặt thuộc tính In đậm hay Nghiêng cho vùng chọn. Khi những dòng này hoàn tất, BIStatus sẽ là 0 nếu văn bản được chọn không đậm hoặc nghiêng, 1 nếu nó đậm hoặc nghiêng, hoặc 2 nếu nó vừa đậm vừa nghiêng.

Nếu BIStatus được đặt thành 0 hoặc 1, thì các thuộc tính In đậm và Nghiêng cho văn bản đã chọn sẽ được đặt. Nếu chúng đã được đặt trước đó (BIStatus là 2), thì cả hai thuộc tính sẽ bị tắt.

_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 (606) á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: