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

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