AMuhanin

Дата регистрации: 2011-09-15 16:49:15

Ник: AMuhanin

Комментариев: 1

Редактировать персональные данные

Его последние комментарии:

• Уровни Разбивки и Схема Документа
  2011-09-15 16:49:15
  

  Спасибо за статью!

  запустив макрос в документе на 500 стр., повесил Word на 30 мин... )))

  после чего, решил немного подправить код, стало работать гораздо быстрее...

  Sub ReSetOutline()

  Dim myPara As Paragraph

  For Each myPara In ActiveDocument.Paragraphs

  If myPara.OutlineLevel = wdOutlineLevel1 Then

  myPara.OutlineLevel = myPara.Style.ParagraphFormat.OutlineLevel

  End If

  Next myPara

  End Sub