word styles - RenaissanceTeam/smarthome GitHub Wiki

Как пользоваться:

  1. Добавляем макросы в ворд: View -> Macros -> View Macros
  2. в док вставляем результат прогонки скрипта генерации имен классов и их исходного кода, каждый класс будет в формате
_#subkey
Интерфейс Lalala

<code>

  1. меняем в With ActiveDocument.Range(4) цифру, с которой стартует текст программы (после всех титульников и аннотаций)

  2. запускаем макрос MakeSubParagraphByKey, он применит стиль .Next.Style = ActiveDocument.Styles("Heading 3") к строке, которая следует за _#subkey, то есть сделает заголовком название класса

  3. остается только убрать теги, запустим для этого макрос RemoveSubKeys

Sub MakeSubParagraphByKey()
  With ActiveDocument.Range(4)
    'set base style for document
    
    ' Find chapter headings and apply Heading 1
    With .Find
      .ClearFormatting
      .Text = "_#subkey"
      .Replacement.Text = " "
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = True
      .MatchWholeWord = False
      .MatchWildcards = True
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With

    Do While .Find.Found
      With .Paragraphs.First
        
        .Next.Style = ActiveDocument.Styles("Heading 3")
      End With
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
    
  End With

End Sub

Sub RemoveSubKeys()
With ActiveDocument.Range

With .Find
      .ClearFormatting
      .Text = "_#subkey"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = True
      .MatchWholeWord = False
      .MatchWildcards = True
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
    End With

End Sub
⚠️ **GitHub.com Fallback** ⚠️