Обработчик документации

doc_processing.vb

Sub rep_processing()
    
    is_prev_header = False
    Dim pp As Paragraph
    Dim regEx
    
    ' Add paragraphs
    For Each p In ActiveDocument.Paragraphs
        If p.Style.NameLocal = "Çàãîëîâîê 1" Or _
           p.Style.NameLocal = "Çàãîëîâîê 2" Or _
           p.Style.NameLocal = "Çàãîëîâîê 3" Or _
           p.Style.NameLocal = "Çàãîëîâîê 4" Or _
           p.Style.NameLocal = "Çàãîëîâîê 5" Or _
           p.Style.NameLocal = "Çàãîëîâîê 6" Or _
           p.Style.NameLocal = "Çàãîëîâîê 7" Or _
           p.Style.NameLocal = "Çàãîëîâîê 8" Then
            If is_prev_header = True Then
                pp.Range.InsertParagraphAfter
                is_prev_header = True
                Set pp = p
            Else
                is_prev_header = True
                Set pp = p
            End If
        Else
            is_prev_header = False
        End If
    Next
    
    ' Remove formatting for inserted paragraphs
    For Each p In ActiveDocument.Paragraphs
        If p.Style.NameLocal = "Çàãîëîâîê 1" Or _
           p.Style.NameLocal = "Çàãîëîâîê 2" Or _
           p.Style.NameLocal = "Çàãîëîâîê 3" Or _
           p.Style.NameLocal = "Çàãîëîâîê 4" Or _
           p.Style.NameLocal = "Çàãîëîâîê 5" Or _
           p.Style.NameLocal = "Çàãîëîâîê 6" Or _
           p.Style.NameLocal = "Çàãîëîâîê 7" Or _
           p.Style.NameLocal = "Çàãîëîâîê 8" Then
  
            Set regEx = New RegExp            ' Create a regular expression.
            ' regEx.Pattern = "\s*(\d+\.)+\s*"
            regEx.Pattern = "^\s*$"
            If regEx.Test(p.Range.Text) Then
                p.Range.Select
                Selection.ClearFormatting
            End If
        End If
    Next
    
    ' Removes image titles
    For Each p In ActiveDocument.Paragraphs
        If p.Style.NameLocal = "Íàçâàíèå îáúåêòà" Then
            p.Range.Delete
        End If
    Next
    
    ' Replace image styles
    For Each image In ActiveDocument.InlineShapes
        image.Select
        Selection.Paragraphs(1).Style = ActiveDocument.Styles("Èçîáðàæåíèå")
    Next
    
    ' Replace header 6 and header 7
    For Each p In ActiveDocument.Paragraphs
        If p.Style.NameLocal = "Çàãîëîâîê 6" Then
            p.Style = ActiveDocument.Styles("Äîï. ñòèëü çàãîëîâêà 6")
        End If
        If p.Style.NameLocal = "Çàãîëîâîê 7" Then
            p.Style = ActiveDocument.Styles("Äîï. ñòèëü çàãîëîâêà 7")
        End If
    Next

End Sub