Chạy Macro dựa trên Từ khóa (Microsoft Word)
Eyal tự hỏi liệu có cách nào để chạy macro tự động nếu người dùng nhập một từ hoặc cụm từ cụ thể.
Thật không may, không có thủ tục sự kiện Word VBA nào sẽ phát hiện khi văn bản được nhập vào tài liệu. Tuy nhiên, Word phát hiện nội bộ khi một từ hoàn chỉnh được nhập để nó có thể thực hiện những việc như kiểm tra chính tả, Tự động sửa và cập nhật số lượng từ. Tuy nhiên, bạn không thể khai thác phương pháp phát hiện nội bộ này.
Có lẽ cách tiếp cận tốt nhất là sử dụng khả năng hẹn giờ của VBA để kiểm tra xem một từ đã được nhập hay chưa. (Hãy nhớ — Word cập nhật nội bộ số lượng từ mỗi khi hoàn thành một từ, vì vậy mã hẹn giờ của bạn có thể theo dõi số lượng từ để xem liệu nó có thay đổi hay không.) Phương thức OnTime có cài đặt tối thiểu là một giây, có nghĩa là bộ hẹn giờ của bạn- mã dựa trên chỉ có thể chạy một lần mỗi giây. Người đánh máy nhanh có thể gõ nhiều hơn một từ mỗi giây, vì vậy mã của bạn cần thực sự kiểm tra vài từ cuối cùng được nhập.
Đây là mã bạn có thể sử dụng:
Dim wCount As Long Dim aRange As Range Dim tWords Dim inactiveSW As Boolean Sub InitializeTimer() tWords = Array("APPLE", "ORANGE", "PEAR") wCount = ActiveDocument.Words.Count Set aRange = Selection.Range aRange.Start = ActiveDocument.Range.Start inactiveSW = False StartTimer End Sub
Public Sub StartTimer() Application.OnTime When:=Now + TimeValue("00:00:01"), _ Name:="TestWords" End Sub
Public Sub TestWords() Dim testWord As String Dim i As Long Dim k As Long Dim kw As Long Dim xc As Long If inactiveSW Then Exit Sub With ActiveDocument xc = .Range.Words.Count - wCount If xc > 0 And xc < 5 Then aRange.End = Selection.End kw = aRange.Words.Count - 1 If kw > 0 Then For k = kw - xc + 1 To kw testWord = UCase(Trim(aRange.Words(k).Text)) For i = 0 To UBound(tWords) If testWord = tWords(i) Then mysub (testWord) Exit For End If Next i Next k End If End If wCount = .Range.Words.Count End With StartTimer End Sub
Public Sub KillOnTime() 'cannot stop the timer so set inactive switch inactiveSW = True End Sub
Sub mysub(s As String) ' this subroutine is executed when a special word is entered MsgBox s End Sub
Quy trình đầu tiên bạn cần chạy là macro InitializeTimer. Nó thiết lập các biến cần thiết trước khi thực sự bắt đầu phương thức OnTime. Sau đó, nó gọi macro StartTimer thực sự đặt bộ đếm thời gian chạy macro Test AdWords.
Test AdWords kiểm tra xem số lượng từ có tăng lên không và nếu có, nó sẽ kiểm tra năm từ cuối cùng được nhập để xem chúng có khớp với bất kỳ từ kích hoạt nào của bạn hay không. (Các từ kích hoạt được đặt trong mảng t AdWords, trong macro InitializeTimer. Chúng phải được nhập vào mảng, tất cả bằng chữ hoa.) Nếu phát hiện thấy một từ kích hoạt, thì mã của bạn (mysub) sẽ được thực thi và từ kích hoạt được chuyển mã của bạn.
Cần lưu ý rằng số từ có thể tăng hơn năm, đặc biệt nếu văn bản được dán vào tài liệu. Nếu bạn muốn mã kiểm tra tất cả các từ có thể được dán vào tài liệu, thì bạn sẽ cần thay đổi dòng mã kiểm tra, đó là:
If xc > 0 And xc < 5 Then
Tất cả những gì bạn cần làm là thay đổi nó thành thế này:
If xc > 0 Then
Nếu bạn muốn dừng việc kiểm tra từ, hãy chạy macro KillOnTime, macro này sẽ đặt một cờ để dừng kiểm tra các từ. Để kiểm tra khởi động lại sau đó, chỉ cần chạy lại InitializeTimer.
_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 (12375) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: