"Г.Г.Кудрявцев. Как на самом деле делаются книги для lib.ru " - читать интересную книгу автора

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