"Макросы MS-Word для обработки текстов" - читать интересную книгу автора

End If
If (Selection.Text > " ") Then
Selection.Move Unit:=wdCharacter, Count:=-1
i = i - 1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.InsertAfter (" ")
Else
Selection.Move Unit:=wdCharacter, Count:=2
i = i + 2
If (Selection.Text > " ") Then
Selection.Move Unit:=wdCharacter, Count:=1
i = i + 1
End If
End If
End If
Next
End Sub
Last-modified: Tue, 25 Jul 2000 07:20:44 GMT