Bật tắt AutoCorrect bằng phím tắt

Bật tắt AutoCorrect bằng phím tắt

Trong khi sử dụng OFFICE (Như Winword, Excel, PowerPoint, Access) có sử dụng bộ gõ tắt AutoCorrect. Mỗi lần bật hay tắt gõ tắt ta lại phải vào Tools\Autocorrect để chọn hay loại bỏ hộp kiểm tra (CheckBox) Replace. Điều này gây mất thời gian và phiền toái. Tôi xin giới thiệu cách tạo một Macro rồi gán vào một phím chức năng, ví dụ F11. Mỗi khi chuyển đổi, dùng hoặc không dùng gõ tắt AutoCorrect ta chỉ việc nhấn F11 là xong.

Đầu tiên tạo Macro Visual Basic bằng cách vào môi trường này. Tôi chọn Alt + F11. Gõ Ctrl +R để hiện Project Explore.Từ đây ta chọn tệp Normal.dot. Nếu đã có Module rồi ta có thể đánh xuống bên dưới. Nếu chưa có thì chèn Insert\ Module. Đánh vào nội dung sau:

Sub BatGoNhanh()
With Autocorrect
If .ReplaceText = True Then
.CorrectSentenceCaps = False
.ReplaceText = False

‘ Thông báo ở thanh trạng thái
StatusBar = “Thôi không dùng gõ tắt nữa.”

‘Đổi tên TooltipText cho nút gán Macro này, giả sử nút lệnh là nút thứ 12 trên thanh Menu Bar
‘Sau khi gán Macro vào nút lệnh nào xin bạn vui lòng đếm thứ tự của nó rồi sửa lại thứ tự Control
CommandBars(“Menu Bar”).Controls(12).TooltipText = “Bật gõ tắt”
Else
.CorrectSentenceCaps = True
.ReplaceText = True
StatusBar = “Bắt đầu sử dụng gõ tắt”
CommandBars(“Menu Bar”).Controls(12).TooltipText = “Tắt bỏ gõ tắt”
End If
End With
End Sub

Bật tắt gõ tắt trong EXCEL có khác một chút, ta đánh vào tệp PESONAL.XLS:

Sub BatGoNhanh()
Application.AutoCorrect.CorrectSentenceCap = True
If Application.AutoCorrect.ReplaceText = True Then
Application.AutoCorrect.ReplaceText = False
Application.CommandBars("Worksheet Menu Bar").Controls(14).TooltipText = "Bật gõ nhanh"
Else
Application.AutoCorrect.ReplaceText = True
Application.CommandBars("Worksheet Menu Bar").Controls(14).TooltipText = "Tắt gõ nhanh"
End If
End Sub

Sau khi đánh xong ta có thể gán Macro vào phím F11 bằng cách:

Vào Customize (Chọn Tools\Customize). Tại Tab tên Command chọn mục Macro, chọn tên Macro BatGoNhanh. Rồi chọn mục Keyboard. Từ đây ta gán PressNew Shortcut Key để trỏ vào và nhấn phím F11. Chọn Assign và OK.

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com