Открываем документ DocTwo Dim MyPath
|
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 |
| Листинг 1.36. |
| Закрыть окно |
