Làmthếnào để "mở" file .ACL (Autocorrect List File)?

[khodan]

Mình đang tìm cách tạo một bảng AutoCorrect bằng Excel dựa trên file .ACL có sẵn.

Vấn đề là chưa biết cách để export (hay extract, open...) file đó vào bảng excel để khỏi mất công tạo lại từ đầu.

Rất mong nhận được sự giúp đỡ...

 

[tedaynui]

Bạn Search tìm *.ACL trên ổ đĩa C (đối với MO 2003 : C:\Documents and Settings\Welcome\Application Data\Microsoft\Office)
+ Nếu bạn muốn lưu lại thì vào đây copy ra
+ Nếu muốn Import trên máy khác thì cũng vào đây và chép đè lên.

TDN

 

[khodan]

Bạn Search tìm *.ACL trên ổ đĩa C (đối với MO 2003 : C:\Documents and Settings\Welcome\Application Data\Microsoft\Office)
+ Nếu bạn muốn lưu lại thì vào đây copy ra
+ Nếu muốn Import trên máy khác thì cũng vào đây và chép đè lên.

TDN

Bác chưa hiểu ý, nếu cần chép đè hay tìm thư mục chứa file ACL thì đã ko ghi export (hay extract, open...) làm gì.

Giống như file MSO.ACL có nhiều cụm từ viết tắt được gán cho cụm từ đầy đủ, làm cách nào để tui đưa cái cụm từ viết tắt (phần Replace) này ra cột 1, cụm từ đầy đủ (phần With) này ra cột 2 của bảng Excel ấy.

 

[tedaynui]

Bác chưa hiểu ý, nếu cần chép đè hay tìm thư mục chứa file ACL thì đã ko ghi export (hay extract, open...) làm gì.

Giống như file MSO.ACL có nhiều cụm từ viết tắt được gán cho cụm từ đầy đủ, làm cách nào để tui đưa cái cụm từ viết tắt (phần Replace) này ra cột 1, cụm từ đầy đủ (phần With) này ra cột 2 của bảng Excel ấy.

Thì ra là như vậy, trước đây mình có viết một đoạn code để làm việc này. Nhưng lâu rồi không dùng đến nên không nhớ nó ở đâu. Để mình xem lại.
Đại loại như sau : Mình có 2 cột
+ Cột A (chữ tắt) : ví dụ

tp
qh
tt
​

+ Cột B (chữ đầy đủ) : ví dụ

thành phố
quận huyện
tỉnh thành
​

Đoạn code sẽ tự động đưa chúng vào Auto Corect (thay vì làm thủ công từng cái một)


Không biết có phải ý của bạn là vậy không ?

TDN

 

[khodan]

Thì ra là như vậy, trước đây mình có viết một đoạn code để làm việc này. Nhưng lâu rồi không dùng đến nên không nhớ nó ở đâu. Để mình xem lại.
Đại loại như sau : Mình có 2 cột
+ Cột A (chữ tắt) : ví dụ

tp
qh
tt
​

+ Cột B (chữ đầy đủ) : ví dụ

thành phố
quận huyện
tỉnh thành
​

Đoạn code sẽ tự động đưa chúng vào Auto Corect (thay vì làm thủ công từng cái một)


Không biết có phải ý của bạn là vậy không ?

TDN

Đúng ra là "đưa chúng ra" Auto Correct.

Nếu thêm "đưa chúng vào" Auto Correct thì càng tốt.

 

[fantasylove]

Em cũng đang quan tâm đến cái này.Lục tung 4rum tìm dc mỗi bài này khả thi nhất mà lại chả có tí thông tin j cả.Up lên hỏi lại các bác vậy.Thankssssssssssssssssssssssssssssssssss

 

[TranThanhPhong]

Đây là code thêm từ mới vào AutoCorrect, xoá từ khỏi AutoCorrect và liệt kê tất cả các từ trong AutoCorrect.

Option Explicit

'Author: TeDayNui
Sub AddWords()
Dim ItemCount As Integer, Row As Integer
Dim ShortText As String, LongText As String
ItemCount = Application.CountA(Range("Sheet1!A:A"))
For Row = 1 To ItemCount
ShortText = Cells(Row, 1)
LongText = Cells(Row, 2)
Application.AutoCorrect.AddReplacement ShortText, LongText
Next Row
End Sub

'Author: TeDayNui
Sub Clear()
On Error Resume Next
Dim ItemCount As Integer, Row As Integer
Dim ShortText As String, LongText As String
ItemCount = Application.CountA(Range("Sheet1!A:A"))
For Row = 1 To ItemCount
ShortText = Cells(Row, 1)
LongText = Cells(Row, 2)
Application.AutoCorrect.DeleteReplacement What:=ShortText
Next Row
End Sub


'Author: ttphong2007
Sub ExtractWords()
Dim i As Integer
Dim repl
repl = Application.AutoCorrect.ReplacementList
For i = 1 To UBound(repl)
Cells(i, 7).Value = repl(i, 1)
Cells(i, 8).Value = repl(i, 2)
Next
End Sub

Thanh Phong

 

[tuan_tram77]

Cho mình hỏi:
Đoạn mã trên bị báo lỗi thế này là lý do gì?

Có thể khắc phục được không?