Public Sub WorkWithLists()
'работа со списками
'Открываем документ DocTwo
Dim MyPath As String
Dim myRange As Range
MyPath = Documents("DocOne").Path	'должен быть открыт
Documents.Open MyPath & "\DocTwo.doc"
Documents("DocTwo").Activate
With ActiveDocument
	Debug.Print "Списков в документе - ", .Lists.Count
	Debug.Print "Они занимают -", .ListParagraphs.Count, " абзацев"
	'Создаем новый список
	Set myRange = .Range(Start:=.Paragraphs(3).Range.Start, _
		End:=.Paragraphs(6).Range.End)
	myRange. ListFormat.ApplyBulletDefault
	Debug.Print "Теперь списков -", .Lists.Count
	Debug.Print "Они занимают - ", .ListParagraphs.Count, "абзацев"
	'Повторное применение отменяет форматирование
	myRange. ListFormat.ApplyBulletDefault
	Debug.Print "Теперь списков -", .Lists.Count
	Debug.Print "Они занимают - ", .ListParagraphs.Count, "абзацев"
	
End With
End Sub