Public Sub WorkWith Revisions()
	'работа с	исправлениями
	'Открываем документ DocTwo
	Dim MyPath As String
	Dim MyRange As Range
	Dim Revis As  Revision
	'DocOne должен быть открыт
	MyPath = Documents("DocOne").Path
	Documents.Open MyPath & "\DocTwo.doc"
	Documents("DocTwo").Activate
	With ActiveDocument
		'Работа с исправлениями
		. Show Revisions = True
		'Удаляем все имеющиеся исправления
		. Revisions.RejectAll
				
		'Добавляем новый абзац
		.Paragraphs.Add
		.Paragraphs.Last.Range.Text = "В книгах для программистов" _
			& " тексты программ играют важную роль"
		.Paragraphs.Last.Range.Select
		'Вводим исправления в последний абзац (автор Fooler)
		.Track Revisions = True
		Application.UserName = "Fooler"
		Selection.Range.Text = "В книгах для программистов" _
				& " тексты программ не играют особой роли," _
				& " а лишь усложняют понимание"
		'Добавляем новый абзац
		.Track Revisions = False
		.Paragraphs.Add
		.Paragraphs.Last.Range.Text = "В книгах для программистов" _
				& " тексты программ играют важную роль."
		.Paragraphs.Last.Range.Select
		'Вводим исправления в последний абзац (автор Thinker)
		.Track Revisions = True
		Application.UserName = "Thinker"
		Selection.Range.Text = "В книгах для программистов" _
				& " тексты программ весьма полезны," _
				& " если только это хорошие программы."

		For Each Revis In . Revisions
			Debug.Print Revis.Author, Revis.Date, Revis.Range.Text
			If Revis.Author = "Fooler" Then
				Revis.Reject
			ElseIf Revis.Author = "Thinker" Then
				Revis.Accept
			End If
		Next Revis
		Debug.Print . Revisions.Count
		.Track Revisions = False
		. Show Revisions = False
		Application.UserName = "Vladimir Billig"
		End With

End Sub