Thu nhỏ Ruy-băng cho Tài liệu (Microsoft Word)
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.