Giáo trình Xử lý tự động công nghệ thông tin trong văn phòng

Co_Dau Dim ViTri ‘Cố định ký tự trong danh sách UNI_Co_Dau ViTri = InStr(UNI_Co_Dau, Ch) If (ViTri > 0) Then ‘Nếu nó là ký tự thường, chọn ánh xạ của chữ hoa tương ứng trong BangMa KhongDau1KyTu = ChuKhongDau(ViTri) Else ‘Nếu nó chỉ là ký tự ANSI (Chữ không dấu) thì hoa lên KhongDau1KyTu = UCase(Ch) End If End Function Public Sub InUnicode() Dim ChuoiKQua As String, I ‘Khởi tạo danh sách các ký tự tiếng Việt có dấu (UNI_Co_Daus), ‘67 ký tự có dấu là chữ thường và 67 ký tự có dấu là chữ hoa ‘Nên nhớ là dùng các hàm Function chrW, ký tự &HE1 Unicode ‘được chứa bên trong danh sách này ‘như &HE100 cho 1 chuỗi ký tự ChuoiKQua = ChuoiKQua & ChrW(&HE1) & ChrW(&HE0) & ChrW(&H1EA3) _ _& ChrW(&HE3) & ChrW(&H1EA1) & ChrW(&H103) & ChrW(&H1EAF) _ _& ChrW(&H1EB1) & ChrW(&H1EB3) & ChrW(&H1EB5) & ChrW(&H1EB7) _ _& ChrW(&HE2) & ChrW(&H1EA5) & ChrW(&H1EA7) & ChrW(&H1EA9) _ _& ChrW(&H1EAB) & ChrW(&H1EAD) & ChrW(&HE9) & ChrW(&HE8) _ _& ChrW(&H1EBB) ChuoiKQua = ChuoiKQua & ChrW(&H1EBD) & ChrW(&H1EB9) _ _& ChrW(&HEA) & ChrW(&H1EBF) & ChrW(&H1EC1) & ChrW(&H1EC3) _ _& ChrW(&H1EC5) & ChrW(&H1EC7) & ChrW(&HED) & ChrW(&HEC) _ _& ChrW(&H1EC9) & ChrW(&H129) & ChrW(&H1ECB) & ChrW(&HF3) _ _& ChrW(&HF2) & ChrW(&H1ECF) & ChrW(&HF5) & ChrW(&H1ECD) _ _& ChrW(&HF4) & ChrW(&H1ED1) ChuoiKQua = ChuoiKQua & ChrW(&H1ED3) & ChrW(&H1ED5) _ _& ChrW(&H1ED7) & ChrW(&H1ED9) & ChrW(&H1A1) & ChrW(&H1EDB) _ _& ChrW(&H1EDD) & ChrW(&H1EDF) & ChrW(&H1EE1) & ChrW(&H1EE3) _ _& ChrW(&HFA) & ChrW(&HF9) & ChrW(&H1EE7) & ChrW(&H169) _ _& ChrW(&H1EE5) & ChrW(&H1B0) & ChrW(&H1EE9) & ChrW(&H1EEB) _ _& ChrW(&H1EED) & ChrW(&H1EEF) ChuoiKQua = ChuoiKQua & ChrW(&H1EF1) & ChrW(&HFD) _ _& ChrW(&H1EF3) & ChrW(&H1EF7) & ChrW(&H1EF9) & ChrW(&H1EF5) _ _& ChrW(&H111) & ChrW(&HC1) & ChrW(&HC0) & ChrW(&H1EA2) _ _& ChrW(&HC3) & ChrW(&H1EA0) & ChrW(&H102) & ChrW(&H1EAE) _ _& ChrW(&H1EB0) & ChrW(&H1EB2) & ChrW(&H1EB4) & ChrW(&H1EB6) _ _& ChrW(&HC2) & ChrW(&H1EA4) ChuoiKQua = ChuoiKQua & ChrW(&H1EA6) & ChrW(&H1EA8) _ _& ChrW(&H1EAA) & ChrW(&H1EAC) & ChrW(&HC9) & ChrW(&HC8) _ _& ChrW(&H1EBA) & ChrW(&H1EBC) & ChrW(&H1EB8) & ChrW(&HCA) _ _& ChrW(&H1EBE) & ChrW(&H1EC0) & ChrW(&H1EC2) & ChrW(&H1EC4) _ _& ChrW(&H1EC6) & ChrW(&HCD) & ChrW(&HCC) & ChrW(&H1EC8) _ _& ChrW(&H128) & ChrW(&H1ECA) ChuoiKQua = ChuoiKQua & ChrW(&HD3) & ChrW(&HD2) _ _& ChrW(&H1ECE) & ChrW(&HD5) & ChrW(&H1ECC) & ChrW(&HD4) _ _& ChrW(&H1ED0) & ChrW(&H1ED2) & ChrW(&H1ED4) & ChrW(&H1ED6) _ _& ChrW(&H1ED8) & ChrW(&H1A0) & ChrW(&H1EDA) & ChrW(&H1EDC) _ _& ChrW(&H1EDE) & ChrW(&H1EE0) & ChrW(&H1EE2) & ChrW(&HDA) _ _& ChrW(&HD9) & ChrW(&H1EE6) ChuoiKQua = ChuoiKQua & ChrW(&H168) & ChrW(&H1EE4) _ _& ChrW(&H1AF) & ChrW(&H1EE8) & ChrW(&H1EEA) & ChrW(&H1EEC) _ _& ChrW(&H1EEE) & ChrW(&H1EF0) & ChrW(&HDD) & ChrW(&H1EF2) _ _& ChrW(&H1EF6) & ChrW(&H1EF8) & ChrW(&H1EF4) & ChrW(&H110) ‘Gắn vào danh sách UNI_Co_Dau UNI_Co_Dau = ChuoiKQua Dim ChuKhongDau ‘Khởi tạo mảng chữ không dấu tương ứng CHUKHONGDAU = ARRAY(“A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”,_ _ “A”, “A”, “A”, “A”, “A”, “A”, “A”, “E”, “E”, “E”, “E”, “E”, “E”, “E”, “E”, “E”,_ _ “E”, “E”, “I”, “I”, “I”, “I”, “I”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”,_ _ “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “U”, “U”, “U”, “U”, “U”, “U”, “U”,_ _ “U”, “U”, “U”, “U”, “Y”, “Y”, “Y”, “Y”, “Y”, “D”, “A”, “A”, “A”, “A”, “A”, “A”,_ _ “A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”, “A”, “E”, “E”, “E”, “E”, “E”,_ _ “E”, “E”, “E”, “E”, “E”, “E”, “I”, “I”, “I”, “I”, “I”, “O”, “O”, “O”, “O”, “O”,_ _ “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “O”, “U”, “U”, “U”,_ _ “U”, “U”, “U”, “U”, “U”, “U”, “U”, “U”, “Y”, “Y”, “Y”, “Y”, “Y”, “D”) End Sub Sub BoDau() 'Thủ tục bỏ dấu đoạn văn bản đang lưạ chọn Selection.Text = KhongDau1Xau(Selection.Text) End Sub Sub HoaThuong() 'Chuyển đổi hoa thường đoạn văn bản đã bôi đen Dim x As Integer x = Windows.Count If x = 0 Then Exit Sub End If With Selection.Font 'Nếu tên font có dấu chấm, chỉ việc chuyển đổi sang font chữ hoa/thường If Left(.Name, 1) = "." Then If Right(.Name, 1) = "H" Then .Name = Left(.Name, Len(.Name) - 1) StatusBar = "Thôi không dùng Font hoa." Else .Name =.Name + "H" StatusBar = "Sang Font hoa." End If Else 'trường hợp khác gọi thủ tục xử lý hoa chữ UNICODE Call HoaUNI End If End With End Sub 4.2.5. Sử dụng các nút thiết kế trong module UNICODE a) Hoa thường - Chức năng: Chuyển đổi hoa/thường đoạn văn bản bôi đen. - Phím tắt đề nghị: Alt+H. Thủ tục: HoaThuong. VD 10: Chuyển đổi chuỗi "HỌC VIỆN PHÒNG KHÔNG - KHÔNG QUÂN" và "học viện phòng không - không quân" chỉ việc nhấn nút này. b) Hoa đầu câu - Chức năng: Chuyển ký tự đầu mỗi câu, thuộc đoạn bôi đen thành chữ hoa. - Phím tắt đề nghị: Ctrl+A. Thủ tục: HoaTuDongDauCau. c) Hoa đầu từ - Chức năng: Chuyển ký tự đầu mỗi từ, thuộc đoạn bôi đen thành chữ hoa. - Phím tắt đề nghị: Alt+A. Thủ tục: HoaDauTu. d) Bỏ dấu - Chức năng: Chuyển các ký tự thuộc đoạn bôi đen thành chữ hoa không dấu. - Thủ tục: BoDau. e) ABC chuyển sang UNICODE - Chức năng: Chuyển các ký tự thuộc đoạn văn bản bôi đen từ font chữ dùng bảng mã và font ABC thành chữ dùng bảng mã và font UNICODE. - Thủ tục: ABC2UNI. f) UNICODE chuyển sang ABC - Chức năng: Chuyển các ký tự thuộc đoạn văn bản bôi đen từ font chữ dùng bảng mã và font UNICODE thành chữ dùng bảng mã và font ABC. - Thủ tục: UNI2ABC. g) VNI chuyển sang UNICODE - Chức năng: Chuyển các ký tự thuộc đoạn văn bản bôi đen từ font chữ dùng bảng mã và font VNI thành chữ dùng bảng mã và font UNICODE. - Thủ tục: VNI2UNI. h) UNICODE chuyển sang VNI - Chức năng: Chuyển các ký tự thuộc đoạn văn bản bôi đen từ font chữ dùng bảng mã và font UNICODE thành chữ dùng bảng mã và font VNI. - Thủ tục: UNI2VNI. Kết luận chương 4 Câu hỏi và bài tập chương 4 1. Viết lại các ví dụ trong chương theo phần mềm trong máy tính của đồng chí đang sử dụng. 2. Sử dụng vòng For Each DoHoa In ActiveDocument.Shapes để chuyển đổi những phần chữ trong các đối tượng đồ hoạ Drawing từ ABC sang UNICODE theo mẫu: With DoHoa If.HasText = True Then 'Nếu có chữ thì If.Font.Name=".VnTime" then 'Nếu là font ABC hoặc dùng Left kiểm tra tên font End If 'Chuyển đổi End If End With 3. Sử dụng thuộc tính Selection.Information(wdWithInTable) = True để xác định trỏ thanh đang nằm trong 1 bảng, căn cứ vào hàm mẫu đọc từng ô trong bảng ở ví dụ sử dụng Function RestoreACEntries() trang 158 hãy viết một thủ tục để đọc từng ô trong bảng, tuỳ thuộc vào giá trị trong ô nếu là font TCVN3(ABC) thì chuyển văn bản đó sang font và dùng mã UNICODE. Chương 5: Xử lý hỗn hợp trong WinWord Chương này tập trung xử lý nội dung theo các cách tăng tốc gõ tắt, xử lý nhanh, ngoài ra những nội dung thường xuyên nhưng ít được chú trọng như xử lý tổng hợp kèm định dạng. Nếu áp dụng sẽ mang lại hiệu quả rất cao đối với công tác thường xuyên trong văn phòng vì là những nội dung thông thường nhưng với cách thức tiếp cận và sử dụng khác đối với WinWord. 5.1. Xử lý tự động về nội dung ngay lúc gõ 5.1.1. AutoCorect a) Ngăn nhớ Hình 5.1. Hộp thoại thiết lập AutoCorrect với thẻ AutoCorrect WinWord cho phép lưu rất nhiều cụm từ gõ tắt vào các ngăn nhớ, khi cần người dùng chỉ việc gõ: TênNgăn _ hoặc TênNgăn. là được nội dung của ngăn. hoặc TênNgăn, VD 11: hoặcTênNgăn DấuCâu Ngăn nhớ tên là sx có nội dung là sản xuất TênNgăn ¿ Khi gõ sx. sẽ hiện thành sản xuất. Các ngăn nhớ AutoCorrect được gọi là tự động sửa lỗi khi người dùng đặt quy ước của mình vào ngăn nhớ. Ngăn nhớ được thiết đặt trong bất cứ phần mềm Microsoft Office nào, ví dụ WinWord, nhưng sau khi đặt xong, đều sử dụng cho các phần mềm Office khác như Excel, PowerPoint, Access... b) Đặt ngăn nhớ cho các phần mềm Office Các ngăn nhớ này có thể được đặt trong 2 dạng là: - Đoạn văn bản thông thường; - Đoạn văn bản đã định dạng. Nếu đoạn văn bản cần lưu vào ngăn nhớ có định dạng thì trước khi thực hiện đặt nó vào ngăn nhớ phải bôi đen. Thực hiện thiết đặt các ngăn nhớ bằng nháy Tools/AutoCorrect để hiện hộp thoại thiết lập AutoCorrect (hình 5.1 trang 152). Gõ tên ngăn nhớ vào hộp Replace. Tên ngăn bằng chữ nên không dấu, tối thiểu 2 ký tự và không có dấu cách trong tên ngăn, có thể dùng kèm với con số, nhưng ký tự đầu tiên bắt buộc phải là chữ. - Nếu đoạn văn bản làm nội dung của ngăn đã được định dạng, chọn nút chọn Formatted Text. - Nếu đoạn văn bản bình thường khác, hãy chọn Plain text. c) Sử dụng, không sử dụng gõ tắt AutoCorrect Khi không muốn gõ tắt thực hiện, vào Tools/AutoCorrect để tắt bỏ nút Replace Text as you type (hình 5.1 trang 152). Điều này thật bất tiện nên ở đây đề xuất phương án là thiết kế một lệnh gán vào phím tắt (F11 chẳng hạn). Khi đó nhấn F11, bật gõ tắt. Nhấn tiếp lần nữa F11, tắt gõ tắt. Sub BatGoNhanh() With Autocorrect ‘Nếu gõ tắt đang bật thì If.ReplaceText = True Then ‘Tắt bỏ hoa đầu câu .CorrectSentenceCaps = False ‘Tắt thay thế tên ngăn bằng nội dung gõ tắt .ReplaceText = False ‘thông báo ở thanh trạng thái StatusBar = abc22uni(“Stop Gõ nhanh.Muốn bật gõ tắt lên, nhấn F11.”) ‘thay đổi thuyết minh tên nút gõ tắt, ‘Ví dụ đặt nút ở thanh menuBar, vị trí thứ 2 ‘dùng hàm chuyển đổi abc22uni CommandBars(“Menu Bar”).Controls(2).TooltipText = abc22uni(“Gõ Nhanh (F11)”) Else ‘trường hợp khác thiết lập gõ tắt .CorrectSentenceCaps = True .ReplaceText = True ‘thông báo ở thanh trạng thái StatusBar = abc22uni(“Gõ tắt đang sử dụng. Muốn tắt gõ tắt, nhấn F11.”) ‘thay đổi thuyết minh tên nút gõ tắt, ‘Ví dụ đặt nút ở thanh menuBar, vị trí thứ 2 CommandBars(“Menu Bar”).Controls(2).TooltipText =_abc22uni(“Stop Gõ nhanh (F11)”) End If End With End Sub d) Ngôn ngữ khi dùng AutoCorrect Khi phần gõ văn bản sử dụng ngôn ngữ khác với ngôn ngữ khi lưu trữ AutoCorrect thì nội dung các ngăn AutoCorrect sẽ phải thiết lập lại. Nếu như tạo các ngăn AutoCorrect ở phần thiết lập ngôn ngữ là tiếng Anh (English), thì khi phần chọn thiết lập là tiếng Việt, tất cả các thiết lập CSDL AutoCorrect sẽ trở về trạng thái AutoCorrect ngầm định. Điều này thường xảy ra khi copy văn bản từ một tài liệu khác sang tài liệu đang dùng. Để sử dụng các chức năng gõ tắt AutoCorrect, cần bôi đen và đặt lại ngôn ngữ đã thiết lập AutoCorrect. Nếu không đặt đúng ngôn ngữ, không thể tìm thấy nội dung các ngăn nhớ đã đặt trước đó. Giả sử đặt gõ tắt bằng ngôn ngữ English, thì với văn bản thiết đặt ngôn ngữ là Vietnamese, các gõ tắt không sử dụng được. Hình 5.2. Khi chuyển sang ngôn ngữ Vietnamese, vào Tools/AutoCorrect sẽ thấy tất cả nội dung ngăn AutoCorrect bị xoá sạch Để thiết lập ngôn ngữ cho phần chọn, chọn Tools/Language/Setlanguage, hộp thoại Language xuất hiện (hình 5.3 trang 155), chọn ngôn ngữ và OK. Hình 5.3. Hộp thoại thiết lập ngôn ngữ đối với phần chọn e) Lưu và thay đổi nội dung gõ tắt Trường hợp nhiều người dùng chung một máy tính, hoặc máy tính làm việc với nhiều mục tiêu khác nhau, cần phải lưu giữ, hoặc đổi nội dung gõ tắt. Thì cần phải vào VBA tạo lập một UserForm tương tự như sau để giải quyết vấn đề này. Hình 5.4. Thiết lập form để lưu, đổi, xoá CSDL gõ tắt Bảng 5.1. Thuộc tính cơ bản của Form Đối tượng Thuộc tính Giá trị ban đầu Ý nghĩa UserForm Name GoTat Tên form Caption Sử dụng gõ tắt theo ý muốn Tiêu đề form CommandButton Name btnBackup Nút cất CSDL Caption Cất gõ tắt vào tệp CommandButton Name btnRestore Nút tải CSDL ra thay thế CSDL hiện có Caption Đổi gõ tắt từ tệp CommandButton Name btnDelete Nút xoá bỏ CSDL hiện tại Caption Xoá gõ tắt AutoCorrect CommandButton Name btnClose Nút đóng Form Caption Thôi Label Name Label1 Tên nhãn Caption Chương trình sẽ cho phép bạn cất những nội dung của AutoCorrect hiện tại vào một tệp. Chọn nút Cất để tạo tệp cơ sở dữ liệu gõ tắt đó, nhớ đặt tên riêng để tiện sử dụng. Chọn nút “Đổi Gõ Tắt” để thay tệp gõ tắt hiện tại bằng tệp Cơ sở dữ liệu gõ tắt có trên đĩa. Chọn nút “Xoá gõ tắt” để bỏ toàn bộ bảng gõ tắt hiện tại. Nội dung thông báo trên form Thủ tục khi khởi tạo form: Option Explicit ‘START LOCALIZATION’ Const StatMsg1 = “Thêm nội dung AutoCorrect thứ: “ Const StatMsg2 = “ trên tổng số “ Const StatMsg3 = “Đang Format...” Const StatMsg4 = “Đang cất...” Const TagText = “Tệp CSDL AutoCorrect - Tin học ABC - 0988 529 310” Const TinABC = “Có thể thêm gõ tắt theo bảng, nhưng đừng thay đổi tiêu đề máy_ _sẽ từ chối thực hiện.” Const szAppName = “Thay đổi tệp gõ tắt” Const szErrorMsg = “Có một lỗi. Đồng chí có muốn thử lại không?” Const szACEntriesErrorMsg = “Đã có một lỗi. Tệp văn bản không phải tệp_ _Format chuẩn.” Const szWarnMsg = “Chương trình sẽ thay thế nội dung của AutoCorrect hiện_ _tại bằng nội dung gõ tắt của tệp CSDL mới. Đồng chí có muốn tiếp tục nữa không?” Const szFormatIncorrect = “Văn bản này không phải tệp gõ tắt AutoCorrect,_ xin đóng lại và đổi tệp khác.” Const szRestoreCompletemsg = “Đã tiến hành thay gõ tắt xong._ _ Đồng chí có thể sử dụng theo gõ tắt mới.” ‘END LOCALIZATION’ Private Sub UserForm_Initialize() Label1.Caption = abc22uni(Label1.Caption) btnRestore.Caption = abc22uni(btnRestore.Caption) btnBackup.Caption = abc22uni(btnBackup.Caption) btnDelete.Caption = abc22uni(CommandButton1.Caption) btnClose.Caption = abc22uni(btnClose.Caption) End Sub Private Sub btnDelete_Click() Dim anEntry Dim MyConfirm GoTat.Hide MyConfirm = MsgBox(“Đồng chí có muốn xoá bỏ bảng AutoCorrect_ _hiện tại không? “, vbOKCancel + vbQuestion + vbDefaultButton2) If MyConfirm = vbOK Then For Each anEntry In Application.Autocorrect.Entries anEntry.Delete Next MsgBox “Tin học ABC đã tiến hành điều khiển Word xoá xong bảng gõ tắt_ _hiện tại. Nếu đồng chí cần gõ tắt xin tạo tệp gõ tắt rồi chọn chức năng_ _ “”Đổi gõ tắt từ tệp””.”, vbInformation, “Tin học ABC - 0988 529 310” End If GoTat.Show End Sub ‘*********** btnBackup_Click() ****************** ‘ ‘Giấu Form, tạo một văn bản mới, gọi thực hiện GetAutoCorrectEntries(), ‘thêm vào đoạn “Tệp CSDL AutoCorrect” tại đầu văn bản, ‘và cat văn bản với tên gọi SaveACDoc. ‘ ‘Sử dụng biến giá trị y nhưng không làm việc gì cả. Private Sub btnBackup_Click() Dim Y As Integer GoTat.Hide Application.ScreenUpdating = False ‘Tạo tệp văn bản mới Application.Documents.Add ‘gọi GetAutoCorrectEntries() mà người sử dụng vừa định nghĩa Y = GetAutoCorrectEntries() ‘thêm tiêu đề vào đầu văn bản With Selection .SplitTable .TypeText Text:=abc22uni(TagText + Chr(13) + TinABC) .TypeParagraph End With ‘thêm format With ActiveDocument.Sentences(1) .Bold = True .Font.Size = 14 End With ' ‘Cất văn bản, gọi SaveACDoc() mà người sử dụng đã định nghĩa, 'và đóng lại nếu thành công Application.StatusBar = StatMsg4 If SaveACDoc = True Then ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges End If Application.ScreenUpdating = True GoTat.Show End Sub Private Sub btnClose_Click() GoTat.Hide End Sub ' ‘************* btnRestore_Click() ************** ‘ ‘Thông báo đầu tiên sẽ thay thế nội dung hiện tại của AutoCorrect ‘Nếu người dùng trả lời không thi kết thúc thực hiện công việc. ‘Tiếp đến hiện hộp thoại ‘FileOpen để nhận tên tệp CSDL gõ tắt đã được định nghĩa. ‘(đã tạo bởi nút Cat). ‘Tiếp theo gọi OpenACDoc() để mở tệp. nếu thành công sẽ gọi ‘RestoreACEntries(). Cuối cùng đóng văn bản lại. ‘ Private Sub btnRestore_Click() Dim ACFileName, Title As String Dim Style, Response, x As Integer ' GoTat.Hide ‘Thông báo sẽ thay nội dung... Style = vbYesNo + vbInformation + vbDefaultButton2 ‘Define buttons. Title = szAppName Response = MsgBox(szWarnMsg, Style, Title) If Response = vbNo Then ‘exit GoTo bye: End If ‘nhận tên tệp gõ tắt With Dialogs(wdDialogFileOpen) .Display ACFileName =.Name End With ' ‘Mở tệp CSDL, gọi OpenACDoc() đã định nghĩa If OpenACDoc(ACFileName) = True Then ‘error ‘Hiện nội dung, gọi hàm hiện đã được định nghĩa để lấy x = RestoreACEntries() ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges End If ' bye: GoTat.Show End Sub ' Function RestoreACEntries() Dim I, NumRows As Integer Dim oDoc, oACorrect, oTable As Object ' Dim szName As String Dim szValue As String Dim szRTF As String ' Err.Clear On Error GoTo RestoreACEntriesErrors: ‘Kiểm tra format If ActiveDocument.Words(1) = “Tệp “ Then Application.ScreenUpdating = False ' Set oDoc = ActiveDocument Set oTable = oDoc.Tables(1) Set oACorrect = Application.Autocorrect.Entries ' NumRows = ActiveDocument.Tables(1).Rows.Count Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst Selection.MoveRight Unit:=wdCell, Count:=3 ' For I = 2 To NumRows szName = Selection.Text ' Selection.MoveRight Unit:=wdCell szValue = Selection.Text ' Selection.MoveRight Unit:=wdCell szRTF = Selection.Text ' If szRTF = “False” Then Application.StatusBar = abc22uni(StatMsg1) & szName oACorrect.Add Name:=szName, Value:=szValue Else Application.StatusBar = abc22uni(StatMsg1) & szName ' Selection.MoveLeft Unit:=wdCell oACorrect.AddRichText szName, Selection.Range Selection.MoveRight Unit:=wdCell End If Selection.MoveRight Unit:=wdCell Next I Application.ScreenUpdating = True MsgBox szRestoreCompletemsg,, “Tin học ABC - 0988 529 310” Else MsgBox szFormatIncorrect,, “Tin học ABC - 0988 529 310” End If ' RestoreACEntriesErrors: Select Case Err.Number Case 0: ‘Không lỗi Case Else MsgBox (szACEntriesErrorMsg & vbCr & Err.Number & “ “ & Err.Description & “_ _ “ & szName),, “Tin học ABC - 0988 529 310” End Select End Function ‘****** GetAutoCorrectEntries() ****** ‘ ‘Thêm mới nội dung AutoCorrect vào tệp CSDL với nội dung và giá trị ‘hoặc không nếu nó bị format. Tên là phần gõ vào, ‘Giá trị là phần nhận được ‘và RTF là giá trị logic sẽ là True nếu giá trị được format ‘bởi hộp “formatted text” ‘Sau đó chuyển văn bản vào bảng và thêm tiêu đề ở đầu và cuối bảng. ‘ ‘biến x được sử dụng để lặp nếu còn nội dung Gotat. ‘TotalACEntries là tổng số nội dung của AC. ' Private Function GetAutoCorrectEntries() Dim x As Integer Dim TotalACEntries As Integer ' TotalACEntries = Application.Autocorrect.Entries.Count For x = 1 To TotalACEntries With Selection .TypeText Text:=Application.Autocorrect.Entries.Item(x).Name .TypeText vbTab ' ‘Kiểm tra formatting và chèn chữ RTF nếu cần thiết If Application.Autocorrect.Entries.Item(x).RichText = True Then Application.Autocorrect.Entries(x).Apply Range:=Selection.Range Else .TypeText Text:=Application.Autocorrect.Entries.Item(x).Value End If ' .TypeText vbTab .TypeText Text:=Application.Autocorrect.Entries.Item(x).RichText .TypeParagraph End With ' ‘thông báo ở thanh trạng thái Application.StatusBar = abc22uni(StatMsg1 & x & StatMsg2 & TotalACEntries) Next x ‘convert thành một bảng Application.StatusBar = abc22uni(StatMsg3) Selection.HomeKey Unit:=wdStory, Extend:=wdExtend ' Selection.ConvertToTable Separator:=wdSeparateByTabs,_ _Format:=wdTableFormatSimple1, _ ApplyBorders:=False, ApplyShading:=False, ApplyFont:=False,_ ApplyColor:=False, _ ApplyHeadingRows:=False, ApplyLastRow:=False,_ _ApplyFirstColumn:=False, ApplyLastColumn:=False, _ _AutoFit:=True ‘Thêm tiêu đề bảng With Selection .MoveUp Unit:=wdLine, Count:=1 .InsertRows 1 .TypeText Text:=abc22uni(“Tên”) .MoveRight Unit:=wdCell .TypeText Text:=abc22uni(“Giá trị”) .MoveRight Unit:=wdCell .TypeText Text:=”RTF” .HomeKey Unit:=wdStory End With ' ‘Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext ‘Selection.InsertBreak Type:=wdPageBreak ' End Function Public Function SaveACDoc() Dim Style, Response As Integer Dim Title As String ' SaveACDoc = True Err.Clear On Error GoTo SaveACDocErrors ' ActiveDocument.Save SaveACDocErrors: Select Case Err.Number Case 0: ‘không có lỗi Case 4198: ‘thôi SaveACDoc = False Case Else Style = vbYesNo + vbCritical + vbDefaultButton2 ‘Định nghĩa nút ' ‘đặt số lỗi và mô tả lên tiêu đề của hộp thoại Title = Err.Number & “ “ & Err.Description ' Response = MsgBox(szErrorMsg, Style, Title) If Response = vbYes Then Resume ‘hiện lại SaveAs Else ‘người dùng chọn No. SaveACDoc = False End If End Select ' End Function Public Function OpenACDoc(ByVal ACFileOpenName As String) As Boolean Dim Style As Integer OpenACDoc = True Err.Clear On Error GoTo OpenACDocErrors ' Documents.Open FileName:=ACFileOpenName OpenACDocErrors: If Err.Number 0 Then OpenACDoc = False End If End Function f) Đặt ngăn gõ tắt ngay trong bộ gõ UNIKEY Hình 5.5. Đặt gõ tắt trong bộ gõ Unikey - Ưu điểm hơn AutoCorrect: + Gõ tắt được ở bất cứ chỗ nào trong Windows. Copy dễ dàng đi sang máy khác. Còn AutoCorrect thì nếu không thạo sẽ không copy tệp.ACL gõ tắt của mình đè lên gõ tắt của máy khác mới sử dụng được ở máy khác. + Sử dụng bất cứ bảng mã nào đều ra kết quả đúng - Nhược điểm: Không đặt được nhiều. Không có chức năng đặt đoạn đã định dạng. - Cách đặt: Nháy phải Bộ gõ UNIKEY, chọn Soạn bảng gõ tắt. Bật tắt gõ tắt dạng này: nháy phải Bộ gõ UNIKEY, chọn Bật tính năng gõ tắt. Chú ý: Khi ngăn gõ tắt của UNIKEY và AutoCorrect trùng nhau ví dụ trong gõ tắt UniKey ngăn sx đặt là tăng gia, còn trong AutoCorrect cũng có ngăn sx đặt là sản xuất nếu đều bật cho phép gõ tắt, thì khi người dùng gõ, máy tính sẽ theo gõ tắt của bộ gõ, nên sẽ được tăng gia. 5.1.2. AutoText AutoText cho phép đặt tên các ngăn nhớ để lưu văn bản, bảng biểu, sơ đồ, biểu đồ, đồ họa, đồ thị hay dữ liệu tổng hợp (lưu được cả các trường của WinWord). a)Đặt nhanh AutoText B1. Bôi đen khối dữ liệu cần đặt. B2. Alt + F3, hiện hộp thoại (hình 5.6 trang 163). Gõ tên ngăn và nháy OK. b) Sử dụng Mỗi khi dùng ngăn nào, nhấn TênNgăn rồi F3 Để kiểm soát các ngăn này, nháy Tools, Autocorrect Options hộp thoại, nháy thẻ AutoText (hình 5.7 trang 163). Hình 5.6. Hộp thoại tạo ngăn AutoCorrect Hình 5.7. Hộp thoại AutoCorrect thẻ AutoText Sử dụng các nút với tên tiếng Anh để thực hiện: - Add: Thêm vào - Delete: Xóa - Insert: Chèn ra - Preview: Xem trước - Show ToolBar: Hiện thanh công cụ AutoText - Show AutoComplete suggestions: Hiện chế độ tự hoàn thiện nội dung. AutoText sẽ được lưu vào tệp Normal.dot. AutoText không cần phải bật tắt, vì khi sử dụng người dùng đã chủ động qua phím F3 rồi. Dữ liệu lưu ở dạng AutoText khác với AutoCorrect là có thể chủ động được, đặc biệt AutoText lưu giữ trong ngắn nhớ được các trường Word khi chèn ra AutoText lưu các trường này, kết quả tự thay đổi theo vị trí cập nhật của trường. Còn AutoCorrect thì không lưu được trường (xem chương 6 trang 200). Bảng 5.2. So sánh một số nội dung khác nhau giữa AutoText và AutoCorrect Hành động Dữ liệu được lưu với thể thức AutoText AutoCorrect Lưu vào ngăn nhớ Bôi đen, Alt + F3, đặt tên ngăn hoặc Tools/AutoCorrect/AutoText Gõ tên ngăn, chọn Add Tools/AutoCorrect thêm vào, gõ các nội dung, chọn Add. Chèn ra Gõ tên ngăn, nhấn F3 Gõ tên ngăn, dùng một dấu phân cách từ (dấu chấm, phảy, cách, enter, tab...) Vị trí lưu Trong tệp Normal.dot Trong tệp.ACL Công dụng theo ngôn ngữ Luôn sử dụng được, bất kể ngôn ngữ nào Không sử dụng được với ngôn ngữ thiết đặt khác Tự động thay đổi nội dung theo máy tính Có thể được thông qua trường AutoText Không thay đổi c) Tự động thay đổi nội dung theo máy tính Có thể sử dụng trường có tên AutoText để chèn một nội dung ngăn nhớ AutoText ra vị trí văn bản. Điều này tưởng như không có tác dụng, nhưng nó lại rất thuận lợi khi nội dung của các ngăn nhớ AutoText thay đổi. Giống như chức năng tìm và thay thế, nhưng việc tìm và thay thế gần như là bí mật, âm thầm ngay cả người đọc văn bản nếu không trong cuộc cũng không hề biết. VD 12: Tất cả các máy tính ở các bộ phận trong đơn vị X có phần tiêu đề văn bản được đặt AutoText là TieuDe. Nhưng nội dung của các phần TieuDe của từng bộ phận là khác nhau như Hậu cần, Kỹ thuật, Hành chính... Khi sử dụng văn bản có chèn trường AutoText này, copy sang máy khác, nội dung sẽ tự thay đổi theo giá trị AutoText của máy mới. Cú pháp: { AUTOTEXT Tên_Ngăn_AutoText} (Nhấn Ctrl + F9 để hiện ra dấu móc {} rồi Gõ vào phần tô xám, không Gõ trực tiếp dấu {}, sẽ không thực hiện được). Trong nghiệp vụ tình báo ở nội dung mã hoá. Ở máy A, ngăn AutoText có tên mbd, gọi máy bay đối phương là Chim_Ưng thì khi hiển thị tại máy A đó, sẽ xuất hiện chữ Chim_Ưng ở vị trí chèn { AUTOTEXT mbd}. Khi copy văn bản sang máy tính B, mà tại máy B, ngăn AutoText mbd có giá trị là Đại_Bàng thì tất cả những chỗ dùng trường { AUTOTEXT mbd} sẽ tự đổi và hiển thị lên chữ Đại_Bàng. Đặc biệt có thể đặt tên hoặc đặt giá trị của các ngăn AutoText là những con số, (như đặt tên ngăn 2 là số 1, ngăn 3 là số 2...) thì khi tài liệu bị rơi vào tay đối phương nếu không có tên AutoText hoặc có nhưng không đúng thì đối phương cũng không có được tài liệu chính xác với những nội dung và con số đó được. d) Spike Spike là một ngăn AutoText đặc biệt được đặt tên ngầm định sẵn của WinWord để có thể sử dụng thông qua các phím tắt. Spike là một vùng nằm trên đĩa, trong tệp normal.dot nên tồn tại ngay cả khi tắt máy. Có nghĩa là mỗi ngày có thể đưa vào Spike 1 ít