---------------------------------------------------------------
(bmn(a)lib.ru)
Date: 24 Oct 2003
---------------------------------------------------------------
, - -
. , ,
, ,
, .
, (
, ) , ,
-
.
.
(, )
10 , -
300 .
A4 1-5
.
, "",
, 45-55%
.
400
( , ).
600
9 .
FineReader'e 6.0 ( FR) Tools -> Options ->
Scan/Open Image -> Use TWAIN-Source interface
. ,
,
,
"Scan" ( ) .
" " (Tools -> Options ->
Scan/Open Image -> Split dual pages),
, , , , FR
"" , ,
. , ""
. ,
, .
, ,
, , .
,
, ,
, "
", FR . ( - bmn)
, - , "
" (ctrl+shift+E),
.
. FR ,
. (
, ,
. - bmn.)
" "
" ", .
, , :
Tools -> Options -> Recognition -> Autodetect Tools
-> Options -> Formatting -> Formats Settings -> TXT ,
,
() Keep line
breaks Tools -> Options -> Recognition -> Plain text
formatted with spaces. ( ,
" "
" ".
, FR . - bmn)
, ,
,
.
. ,
, , ,
. (, ,
"-". - bmn)
,
, . , ,
, .
.
" ".
(MS
Word (97 )).
"^p" "^p " (
). ( "^p^p" "^p "
.
, , .
- bmn)
" DOS" (
.
textform (. ).
.
" DOS", " DOS
",
( )
" DOS"
.
- .
-
: 5 ,
76 , DOS .
,
, .
textform,
: http://lib.ru/COMPULIB/ocr_bychkov_textfmt.rar
,
. ,
,
, (
textform ".-" ". - ", ",-" ", - ", "!-" "! - ", "?-"
"? - ", "" ,
textform .
. - bmn)
DOS. textform' ,
,
"", "" ( ,
,
. - bmn).
" DOS c
", ,
" ", " ",
.
.
.
.
: { }
.
[]. (,
. - bmn)
.
-
( ,
, . - bmn)
( 3),
( , , . - bmn)
( 11). ,
.
.
. . Visual Basic
Word'e alt+F11.
1. , 5
.
2. - -,
.
3. . . -
. -
(
).
.
4. .
.
5.
. lib.ru,
.
6. .
7. - .
.
8. "" .
"" html- .
9. "" . ,
(.
. - bmn)
.
,
.
(
. 13-17
, , , - 25.
- 21-23 . - bmn)
<> <>
1)
Sub AltEnter()
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.TypeText Text:=" "
End Sub
2)
Sub CtrlAltShiftEnter()
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=""
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=""
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:=" "
End Sub
3)
Sub AltE()
1 Dim N As String
3 Dim pos As Integer
2 Dim x, y, i, f, c, j, Mypos As Integer
4 Dim F1, F2 As String
x = Selection.Start
y = Selection.End
N = ActiveDocument.Range(x, y).Text
F2 = Chr$(13)
f = 1
c = 0
Rem
20 Mypos = InStr(f, N, F2, 1)
22 If Mypos <> 0 Then f = Mypos + 1: c = c + 1: GoTo 20
Rem
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
pos = Selection.EndKey(Unit:=wdLine, Extend:=wdMove)
Selection.HomeKey Unit:=wdLine
80 x = Int((76 - pos) / 2)
Rem MsgBox (x)
Rem
90 For i = 1 To x
100 Selection.TypeText Text:=" "
110 Next i
Rem
Rem
For j = 1 To c - 1
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
For i = 1 To x
Selection.TypeText Text:=" "
Next i
Next j
j = 0
End Sub
4)
Sub AltR()
1 Dim N As String
3 Dim pos As Integer
2 Dim x, i As Integer
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
pos = Selection.EndKey(Unit:=wdLine, Extend:=wdMove)
Selection.HomeKey Unit:=wdLine
80 x = Int((76 - pos))
90 For i = 1 To x
100 Selection.TypeText Text:=" "
110 Next i
End Sub
5)
Sub ctrlaltM()
'
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.Delete Unit:=wdWord, Count:=1
Selection.TypeText Text:="<> "
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=" <>"
1 Dim N As String
3 Dim pos As Integer
2 Dim x, y, i, f, c, j, Mypos As Integer
4 Dim F1, F2 As String
x = Selection.Start
y = Selection.End
N = ActiveDocument.Range(x, y).Text
F2 = Chr$(13)
f = 1
c = 0
Rem
20 Mypos = InStr(f, N, F2, 1)
22 If Mypos <> 0 Then f = Mypos + 1: c = c + 1: GoTo 20
Rem
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
pos = Selection.EndKey(Unit:=wdLine, Extend:=wdMove)
Selection.HomeKey Unit:=wdLine
80 x = Int((76 - pos) / 2)
Rem
90 For i = 1 To x
100 Selection.TypeText Text:=" "
110 Next i
Rem
For j = 1 To c - 1
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
For i = 1 To x
Selection.TypeText Text:=" "
Next i
Next j
j = 0
End Sub
4)
Sub AltR()
1 Dim N As String
3 Dim pos As Integer
2 Dim x, i As Integer
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
pos = Selection.EndKey(Unit:=wdLine, Extend:=wdMove)
Selection.HomeKey Unit:=wdLine
80 x = Int((76 - pos))
90 For i = 1 To x
100 Selection.TypeText Text:=" "
110 Next i
End Sub
End Sub
6)
Sub ctrlNum1
Selection.TypeText Text:=" ["
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="]"
End Sub
Sub ctrlNum2
Selection.TypeText Text:=" ["
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeText Text:="]"
End Sub
Sub ctrlNum3
Selection.TypeText Text:=" ["
Selection.MoveRight Unit:=wdCharacter, Count:=3
Selection.TypeText Text:="]"
End Sub
7)
Sub ctrl1()
ActiveWindow.SplitVertical = 50
End Sub
Sub ctrl`()
ActiveWindow.ActivePane.Next.Activate
End Sub
Sub ctrl2()
ActiveWindow.SplitVertical = 0
End Sub
8) ""
Sub altI()
Selection.Cut
Selection.TypeText Text:="<I>"
Selection.Paste
Selection.TypeText Text:="</I>"
End Sub
8) ""
Sub ctrlaltE()
1 Dim N As String
3 Dim pos As Integer
2 Dim x, y, i, f, c, j, Mypos As Integer
4 Dim F1, F2 As String
Rem ,
If Len(Selection.Text) < 2 Then GoTo 200
Rem
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p "
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
x = Selection.Start
y = Selection.End
N = ActiveDocument.Range(x, y).Text
F2 = Chr$(13)
f = 1
c = 0
p1 = 0
p2 = 0
ls = 0
lm = 0
Rem
20 Mypos = InStr(f, N, F2, 1)
22 If Mypos <> 0 Then p2 = Mypos: ls = p2 - p1: f = Mypos + 1: c = c + 1: p1 = p2
24 If Mypos <> 0 And ls > lm Then lm = ls
25 If Mypos = 0 Then GoTo 30
26 GoTo 20
30 Rem
Selection.HomeKey Unit:=wdLine
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Rem
x = Int((76 - lm) / 2)
Selection.HomeKey Unit:=wdLine
Rem
90 For i = 1 To x
100 Selection.TypeText Text:=" "
110 Next i
Rem
For j = 1 To c - 1
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=" "
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
For i = 1 To x
Selection.TypeText Text:=" "
Next i
Next j
j = 0
200 Rem - -
End Sub
Last-modified: Wed, 29 Oct 2003 10:56:27 GMT