Tính năng Tự động sửa lỗi của Word có thể hữu ích khi bạn đang viết, vì nó có thể thay thế “kiểu nhầm lẫn” của bạn bằng những gì bạn thực sự dự định ngay từ đầu. AutoCorrect đã được định cấu hình với nhiều lỗi đánh máy phổ biến, nhưng để làm cho công cụ này thực sự hữu ích, bạn cần thêm các mục nhập AutoCorrect của riêng mình phản ánh thói quen đánh máy cá nhân của bạn.

Cách thông thường để thêm các mục nhập Tự động sửa là nhập chúng vào từng mục một, sử dụng tab Tự động sửa của hộp thoại Tự động sửa (Công cụ | Tự động sửa). Điều gì sẽ xảy ra nếu bạn muốn nhập khá nhiều mục nhập Tự động sửa thay vì nhập chúng vào? Thông tin hữu ích về xuất và nhập các mục Tự động sửa có tại đây, tại http://word.mvps.org [Trang web Word MVP]:

http://wordmvp.com/FAQs/Customization/ExportAutocorrect.htm

Như bạn có thể biết từ trang web, điểm mấu chốt là không có chức năng nội tại nào trong Word cho phép bạn nhập các mục Tự động sửa. Vì vậy, bạn phải sử dụng macro để thực hiện công việc. Sau đây là một trong những macro như vậy, sẽ nhập các mục nhập và đặt chúng trực tiếp trong danh sách Tự động sửa.

Sub AddToTheAutoCorrectList()

Dim r As Range, r1 As Range     Dim par As Paragraph, bo As Boolean     Dim pars As Paragraphs     Dim ACE As AutoCorrectEntry     Dim ACEs As AutoCorrectEntries     Dim ActD As Document

Set ActD = ActiveDocument     Set pars = ActD.Paragraphs     Set r1 = Selection.Range     Set r = Selection.Range     Set ACEs = Application.AutoCorrect.Entries

On Error Resume Next     For Each par In pars         If par.Range.End = ActD.Content.End Then Exit Sub         r1.Start = par.Range.Start         r1.End = r1.Start         r1.MoveEndUntil vbTab         r.Start = r1.End + 1         r.End = par.Range.End - 1         If Len(r1.Text) > 0 Or Len(r.Text) > 0 Then             If Len(ACEs(r1.Text).Value) > 0 Then                 bo = Repl(ACEs, r, r1)

Else                 bo = True             End If             If bo Then ACEs.Add r1.Text, r.Text         End If     Next End Sub
Private Function Repl(a As AutoCorrectEntries, _   r As Range, r1 As Range) As Boolean     If a(r1.Text).Value <> r.Text Then         Repl = MsgBox("To replace " & UCase(a(r1.Text).Value) & _           " with " & UCase(r.Text) & " click OK", vbYesNo + _           vbQuestion, "REPLACE ENTRY?") = vbYes     End If End Function

Để sử dụng macro, chỉ cần đảm bảo rằng bạn đặt một mục nhập trên mỗi đoạn trong tài liệu. (Không nên có gì khác trong tài liệu.) Phần “Replace” của mục nhập phải được tách biệt với phần “With”

phần của một ký tự tab. Nếu macro gặp phải mục nhập Tự động sửa được đề xuất sẽ ghi đè mục nhập hiện có, bạn sẽ được hỏi có muốn thực hiện thay đổi hay khô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 (1732) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003.