Public Sub WorkWithComments()
	'работа с комментариями, сносками
	'Открываем документ DocTwo
	Dim MyPath As String
	Dim myRange As Range
	Dim Fnote As Footnote, Enote As Endnote
	MyPath = Documents("DocOne").Path	'DocOne должен быть открыт
	Documents.Open MyPath & "\DocTwo.doc"
	Documents("DocTwo").Activate
	With ActiveDocument
		Set myRange = .Sections(2).Range.Paragraphs(2).Range
		.Comments.Add myRange, "Программный проект этого документа" _
			& vbCrLf & " содержит примеры главы 1"
		.Comments(1).Author = "Владимир Биллиг"
		'Показ комментария
		ActiveWindow.View.SplitSpecial = wdPaneComments
		.Comments. ShowBy = "Владимир Биллиг"
		
		'Передвигается объект Range и устанавливаются сноски:
		'подстраничная и конечная
		myRange.Move Unit:=wdParagraph, Count:=1
		.Footnotes.Add Range:=myRange, _
			Text:="документ DocTwo используется для экспериментов."
		myRange.Move Unit:=wdParagraph, Count:=1
		'нумерация конечных сносок с начала страницы
		'.Endnotes.NumberingRule = wdRestartPage
		.Endnotes.Add Range:=myRange, _
			Text:="документ DocThree используется для экспериментов."
		'Печать сносок
		For Each Fnote In .Footnotes
			Debug.Print Fnote.Range
		Next Fnote
		For Each Enote In .Endnotes
			Debug.Print Enote.Range
		Next Enote
		
	End With
End Sub