Lịch sử Quân sự Việt Nam
Tin tức: Lịch sử quân sự Việt Nam
 
*
Chào Khách. Bạn có thể đăng nhập hoặc đăng ký. 29 Tháng Ba, 2024, 07:09:24 pm


Đăng nhập với Tên truy nhập, Mật khẩu và thời gian tự động thoát


Trang: 1   Xuống
  In  
Tác giả Chủ đề: Cùng nhau số hoá sách với VnDOCR 4.0 demo  (Đọc 15135 lần)
0 Thành viên và 1 Khách đang xem chủ đề.
Bodoibucket
Thành viên
*
Bài viết: 913


« vào lúc: 08 Tháng Ba, 2010, 12:10:55 pm »

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ủ Smiley
   ... 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)
Logged
Bodoibucket
Thành viên
*
Bài viết: 913


« Trả lời #1 vào lúc: 08 Tháng Ba, 2010, 12:58:31 pm »

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
Logged
Bodoibucket
Thành viên
*
Bài viết: 913


« Trả lời #2 vào lúc: 08 Tháng Ba, 2010, 01:25:43 pm »

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!
Logged
Bodoibucket
Thành viên
*
Bài viết: 913


« Trả lời #3 vào lúc: 08 Tháng Ba, 2010, 01:32:41 pm »

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!  Grin
----------------------------------------------------
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

--------------------------------------------
« Sửa lần cuối: 08 Tháng Ba, 2010, 01:39:20 pm gửi bởi Bodoibucket » Logged
Bodoibucket
Thành viên
*
Bài viết: 913


« Trả lời #4 vào lúc: 08 Tháng Ba, 2010, 01:37:10 pm »

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

http://ifile.it/8h1z5xr/137-182.rar
Logged
rongxanh
Thành viên
*
Bài viết: 2085

Mơ về nơi xa lắm.


« Trả lời #5 vào lúc: 08 Tháng Ba, 2010, 10:45:10 pm »

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ì? Grin
Logged
Trang: 1   Lên
  In  
 
Chuyển tới:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines

Valid XHTML 1.0! Valid CSS! Dilber MC Theme by HarzeM