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

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