Lịch sử Quân sự Việt Nam

Mục đích
Dùng cho nhóm cùng số hoá 1 cuốn sách, sau khi đã có 1 bản scan.

Yêu cầu
- Có VnDOCR 4.0 demo trên máy (tải xuống từ đây: http://www.vndocr.com/upload/vndocr40demo.zip)

Cách làm
- 1 người scan sách ra dạng file .tif (1 bit B/W) rồi chia file .tif này thành các file nhỏ hơn
- 1 người dùng VnDOCR nhận dạng "THÔ" và gởi các file dang dở đó cho các thành viên cùng nhóm (thường người này giữu vai trò mở topic và theo dõi cập nhật tiến độ)
- các thành viên trong nhóm mở file nhận dạng thô và sửa chính tả, xong có 2 việc cần làm
   ... 1. Save lại cái file nhận dạng đó và gởi lại cho khổ chủ :)
   ... 2. Copy phần đã sửa chính ta ra thành file văn bản và cũng gửi lại cho người gửi
- Người mở topic post bài lên topic theo thứ tự ...
(xem ví dụ bằng hình ảnh trang tiếp theo)

Dành cho thành viên sửa lỗi chính tả:

Giả sử bạn đã cài đặt thành công phần mềm VnDOCR 4.0 demo trên máy của mình.
Và bạn nhận được file nén 137-182.rar

1 - Bạn hãy xả nén file đó vào 1 thư mục, thí dụ là thư mục 137-182
2 - Mở file cần sửa lỗi chính tả trên VnDOCR 4.0 demo theo các bước 1-2-3-4 của hình thứ nhất
3 - Sửa lỗi chính tả (khi bạn sửa lỗi tới đâu thì chữ trên bản scan sẽ hiện theo tới đó)-  hình thứ 2

Sau khi chỉnh sửa lỗi chính tả xong hoặc làm dở nửa chừng, bạn hãy save lại!

Giả sử bạn đã sửa lỗi chính tả xong! Bạn có 2 lựa chọn

1 - save lại như hình trên và nén cái thư mục 137-182 ấy lại gửi ngược trở lại cho người đã gửi!
2 - bạn muốn gửi chỉ file word đã sửa chính tả xong cho người đã gởi? Hãy mở đồng thời Word lên, dùng chuột đánh dấu bên VnDOCR rồi kéo thả qua word!

Nếu bạn muốn chỉnh format file word thì có thể dùng macro làm cho nhanh!
Đây là đoạn mã macro dùng để chỉnh format file đã sửa chính tả - phần này bạn nào không rành tạo và chạy macro thì bỏ qua và làm bằng tay cũng được!  ;D
----------------------------------------------------
Sub ChinhTa3()
'
' ChinhTa3 Macro
' Macro recorded 2/10/2010 by User
'
    Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 14
    With Selection.ParagraphFormat
        .SpaceBefore = 6
        .SpaceBeforeAuto = False
        .SpaceAfter = 6
        .SpaceAfterAuto = False
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ".^p"
        .Replacement.Text = "xxx."
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=55
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "!^p"
        .Replacement.Text = "xxx!"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "?^p"
        .Replacement.Text = "xxx?"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.ActivePane.VerticalPercentScrolled = 80
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "?^p"
        .Replacement.Text = "xxx?"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _
        ShowAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ":^p"
        .Replacement.Text = "xxx:"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.ActivePane.VerticalPercentScrolled = 87
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "xxx."
        .Replacement.Text = ".^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "xxx!"
        .Replacement.Text = "!^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "xxx?"
        .Replacement.Text = "?^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "xxx:"
        .Replacement.Text = ":^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.WholeStory
    Selection.Font.Color = wdColorAutomatic
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "xxx:"
        .Replacement.Text = ":^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub
--------------------------------------------

download file 137-182.rar về làm thử!

http://ifile.it/8h1z5xr/137-182.rar

Bác không giải thích công dụng đoạn Macro word để làm gì à?
Nó sẽ xóa những ký tự gì? thay thế bằng ký tự gì? ;D