Donna chịu trách nhiệm chuẩn bị một tài liệu sẽ được sử dụng trong toàn công ty của cô ấy. Cô ấy muốn tài liệu, khi được mở, “thu nhỏ” dải băng ở đầu màn hình và sau đó, khi đóng, hãy trả dải băng về trạng thái “trước khi mở”. Điều này sẽ được thực hiện để cung cấp diện tích màn hình tối đa cho tài liệu. Donna cho rằng điều này sẽ cần đến một macro để hoàn thành, nhưng cô ấy không chắc chắn sẽ sử dụng lệnh nào để hoàn thành nhiệm vụ.

Có một sự thiếu hụt thông tin đáng kinh ngạc về cách làm việc với dải băng trong VBA. Trên thực tế, phương pháp duy nhất mà chúng tôi có thể xác định sẽ thu nhỏ dải băng là như sau:

ActiveWindow.ToggleRibbon

Phương pháp này giống như cách nhấn Ctrl + F1. Nó chuyển đổi dải băng, thay đổi nó từ tối đa thành thu nhỏ và ngược lại. Tất nhiên, đây không phải là điều Donna muốn làm; cô ấy muốn đảm bảo rằng nó được giảm thiểu. Sử dụng phương pháp ToggleRibbon, bạn có thể “dò tìm” một cách để xác định xem dải băng có được thu nhỏ hay không. Hãy xem xét các macro ví dụ sau.

Dim w As Variant Dim h1 As Long Dim h2 As Long Dim StartedWithRibbon As Boolean

Private Sub Document_Open()

Set w = ActiveWindow     h1 = w.UsableHeight     w.ToggleRibbon     h2 = w.UsableHeight     If h1 < h2 Then         StartedWithRibbon = False     Else         StartedWithRibbon = True         w.ToggleRibbon     End If End Sub
Private Sub Document_Close()

Set w = ActiveWindow     h1 = w.UsableHeight     w.ToggleRibbon     h2 = w.UsableHeight     If h2 < h1 Then         If StartedWithRibbon Then w.ToggleRibbon     Else         If Not StartedWithRibbon Then w.ToggleRibbon     End If End Sub

Thực tế có hai macro ở đây, một macro được kích hoạt tự động khi mở tài liệu và macro còn lại được kích hoạt khi đóng. Các macro kiểm tra chiều cao của cửa sổ đang hoạt động, lưu trữ nó trong biến h1. Sau đó, nó chuyển đổi dải băng và kiểm tra lại chiều cao cửa sổ đang hoạt động, lưu trữ nó trong h2. Bằng cách so sánh hai giá trị, bạn có thể xác định xem dải băng có được thu nhỏ hay không và sau đó hành động tương ứng.

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