How do I generate a list of the text with that has given color with MS Word? : I am looking for a way to create a new document containing all the text with a specific format from my document.

See below for what I wrote so far, but I'm stuck at two points:

- how do I stop my loop when end of document is reached?
- how do I add intelligence to my code to avoid a static loop, and rather do a "scan all my document"?

----

    Option Explicit
    
    Sub Macro1()
    
       Dim objWord  As Application
       Dim objDoc As Document
       Dim objSelection As Selection
    
        Dim mArray() As String
        Dim i As Long
        Dim doc As Word.Document
    
        For i = 1 To 100
          ReDim Preserve mArray(i)
          With Selection.Find
            .ClearFormatting
            .Font.Color = wdColorBlue
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .Format = True
            .Execute
          End With
          
          mArray(i) = Selection.Text
          
        Next
        
       Set objWord = CreateObject("Word.Application")
       Set objDoc = objWord.Documents.Add
       objWord.Visible = True
       Set objSelection = objWord.Selection
    
        For i = 1 To 100
        objSelection.TypeText (mArray(i))
        Next
            
    End Sub
    
Any help appreciated.