Word VBA для копирования определенных выделенных цветов и вставки в новый документ без потери форматирования

У меня есть текстовый документ на 180 страниц, в котором все цвета выделения используются случайным образом по всему документу. Документ имеет несколько различных форматов: курсив, маркеры и подчеркивание, а также шрифты разного размера.

То, что я пытаюсь сделать, это отфильтровать документ, выбрать все абзацы, которые содержат определенный цвет, а затем вставить его в новый документ, сохраняя все форматирование на месте. Затем он снова проходит через цикл, выбирает следующую цветовую подсветку и вставляет ее в тот же новый документ с разрывом страницы между ними или просто в новый документ вместе. Я пытался понять это в течение 2 дней.

Я пробовал формулы из этого Word VBA копирует выделенный текст в новый документ и сохраняет форматирование и другие в Stack Overflow, но ни одна из них не сохраняет все форматирование или ту, которую я обнаружил, я мог только скопировать весь документ с форматированием и вставить, но не выбранные основные моменты.

Это делает свое дело, но удаляет все форматирование и не может понять, как разместить разрыв страницы.

Sub ExtractHighlightedTextsInSameColor()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range
  Dim strFindColor As String
  Dim highliteColor As Variant
  highliteColor = Array(wdYellow, wdTeal)

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add

  objDoc.Activate

  For i = LBound(highliteColor) To UBound(highliteColor)
   With Selection
   .HomeKey Unit:=wdStory
    With Selection.Find
       .Highlight = True
      Do While .Execute
        If Selection.Range.HighlightColorIndex = highliteColor(i) Then
         Set objRange = Selection.Range
         objDocAdd.Range.InsertAfter objRange & vbCr
         Selection.Collapse wdCollapseEnd
        End If
      Loop
     End With
    End With
   Next
  End Sub

'Это копирует только весь текст в документе, а не только highliteColor запрошенный

    Sub HighlightedColor()
    Dim objDoc As Document, objDocAdd As Document
    Dim objRange As Range
    Dim highliteColor As Variant
    highliteColor = Array(wdYellow, wdTeal, wdPink)

    Set objDoc = ActiveDocument
    Set objDocAdd = Documents.Add

    objDoc.Activate

    For i = LBound(highliteColor) To UBound(highliteColor)
      With Selection
      .HomeKey Unit:=wdStory
        With Selection.Find
          .Highlight = True
          Do While .Execute
            If Selection.Range.HighlightColorIndex = highliteColor(i) Then
              Set objRange = Selection.Range.FormattedText
              objRange.Collapse wdCollapseEnd
              objDocAdd.Content.FormattedText = objRange
            End If
           Loop
         End With
        End With
     Next

     End Sub

Я ожидаю, что на выходе будет скопирован весь текст с определенным цветом выделения, вставлен в новый документ с сохранением всего форматирования, а затем разорвана страница. Вернитесь назад, выберите следующий цвет выделения и вставьте его в документ, пока не будут получены все цвета.