Import & Export trong AutoCorrect

[tedaynui]

Mừng ngày nhà giáo, xin gởi đến Quý thầy cô 1 file ví dụ về cách Import và Export AutoCorrect.
Trong file :
+ Cột A : từ viết tắt (không được trùng)
+ Cột B : từ viết đầy đủ

Thầy cô có thể Import những từ của mình thường sử dụng. Ví dụ dùng để nhập lý lịch học sinh :
n : Nguyễn
t : Thị
tr : trần
....
Khi không dùng nữa thì xoá chúng ra khỏi AutoCorrect

Đây là File ví dụ, nếu thầy cô dùng thường thì có thể tạo thành file AddIn, và nút lệnh trên thanh Menu.

TDN

 

[SA_DQ]

Bổ sung nhỏ phương pháp tốc ký trên máy vi tính

Xuất phát điểm: Trên bàn phím máy vi tính còn 3 chữ cái mà tiếng Việt ít xài!
Thử nghiệm:
Nhờ AutoCorrect tạo ra cách nhập dữ liệu nhanh;
VD: chw - chương
chw1 - chướng
chw2 = chường
chw3 - chưởng
qj - quyên
qj1 - quyến
qj2 - quyền
qj3 - quyển
qj4 - quyễn
qj5 - quyện
chz - chông
chz2 - chồng
chz1 - chống
chz3 - chổng
. . . . .
. . . .

Mình tạm gọi phương thức này: Bắt cái đầu tham gia đánh máy VT!

 

[Mr Okebab]

Mừng ngày nhà giáo, xin gởi đến Quý thầy cô 1 file ví dụ về cách Import và Export AutoCorrect.
Trong file :
+ Cột A : từ viết tắt (không được trùng)
+ Cột B : từ viết đầy đủ

Thầy cô có thể Import những từ của mình thường sử dụng. Ví dụ dùng để nhập lý lịch học sinh :
n : Nguyễn
t : Thị
tr : trần
....
Khi không dùng nữa thì xoá chúng ra khỏi AutoCorrect

Đây là File ví dụ, nếu thầy cô dùng thường thì có thể tạo thành file AddIn, và nút lệnh trên thanh Menu.

TDN

Cái này hay đấy bác ạ.

Tuy nhiên :

    Application.AutoCorrect.DeleteReplacement What:=ShortText
    With Application.AutoCorrect
        .TwoInitialCapitals = True
        .CorrectSentenceCap = True
        .CapitalizeNamesOfDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
    End With

Sao không là :

    With Application.AutoCorrect
        .DeleteReplacement What:=ShortText
        .TwoInitialCapitals = True
        .CorrectSentenceCap = True
        .CapitalizeNamesOfDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
    End With

Hơn nữa khi xóa AC thì không cần đến đoạn mã :

    With Application.AutoCorrect
        .TwoInitialCapitals = True
        .CorrectSentenceCap = True
        .CapitalizeNamesOfDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
    End With

Vì vậy trong Sub Clear chỉ cần

    Application.AutoCorrect.DeleteReplacement What:=ShortText

Và 1 cái nữa : Việc tạo ra các biến chỉ sử dụng 1 lần là không nên, hơn nữa nó lại phải gán giá trị khác khi hết một vòng lặp.

Thân!

 

[tedaynui]

To Mr.OkeBab
Cám ơn Hiếu đã góp ý. Quả đúng như vậy, mình rút kinh nghiệm. Có 1 bạn nào đó hỏi cách Import và Export AutoCorrect nên mình nhớ cái này mình có làm cách đây lâu lắm rồi. Tìm lại, thấy nó và post lên. Khi ấy, chưa có GPE mà, nên nghĩ sao thì Record Macro làm vậy.

Thanks Hiếu rất nhiều, để mình sửa lại.

Thân!

 

[khodan]

Vừa thử search ở google thấy có cái code VB này dùng để export entries ACL của Word 97. Các bác chuyển nó sang cho Excel được ko?

AutoOpen module:

Public Sub MAIN()
Dim Button

WordBasic.BeginDialog 522, 144, "Export Word 97 AutoCorrect Entries"
    WordBasic.OKButton 165, 72, 88, 21
    WordBasic.Text 4, 105, 505, 13, "______________________________________________________", "Text6"
    WordBasic.CancelButton 277, 72, 88, 21
    WordBasic.Text 17, 12, 400, 13, "Exports your AutoCorrect entries to a new document.", "Text1"
    WordBasic.Text 20, 28, 301, 13, "Only Plain Text entries will be exported.", "Text2"
    WordBasic.Text 24, 121, 469, 13, "Written by Christopher S. Lim (74542.1670@compuserve.com)", "Text4"
    WordBasic.EndDialog

Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
Button = WordBasic.Dialog.UserDialog(dlg)
If Button = -1 Then
    WordBasic.ToolsMacro Name:="ExportAutoCorrect", Run:=1, Show:=3
End If

End Sub

ExportAutoCorrect module:

Public Sub MAIN()
Dim d$
Dim e$
Dim u$
Dim esc$
Dim clear_$
Dim last$
Dim first$
Dim a$
Dim RewindCount
Dim Rewind$
Dim text_$
Dim i
    ' AUTHOR: Christopher S. Lim (74542.1670@compuserve.com)
    ' Subroutine to export Plain Text Autocorrect entries.
    ' This subroutine is able to circumvent the list navigation bug ' present in Word 95.
    ' Placed in the public domain by the Author.
    ' Use at your own risk.

    WordBasic.FileNewDefault
    WordBasic.EditSelectAll
    WordBasic.WW6_EditClear
    
    Dim ACE As AutoCorrectEntry
    For Each ACE In Application.AutoCorrect.Entries
        If Not ACE.RichText Then
            WordBasic.Insert ACE.Name + " " + Chr(9) + ACE.Value + Chr(13)
        End If
       
    Next
     
    
End Sub