Hallo,
Kunnen we in word VBA de tekst volgend na ‘ een andere kleur of VET of ander lettertype markeren
En/of combinaties van?
Vb.    '[color=green]uitvoeren van de zoekactie[/color]
Vb Tekst:
Sub e_nummers()

Dim arr() 'definitie van een array om de resultaten in te verzamelen
With CreateObject("VBScript.RegExp")
    .Global = True                          'aangeven dat ALLE overeenkomsten moeten behouden blijven
                                            'met False zou E415 uit rij 7 er niet bij komen
    .Pattern = "[E][0-9]{3}"                'E gevolgd door 3 maal een karakter uit 0 tot 9
    For i = 3 To 10
        tekst = Cells(i, 2)
        Set r = .Execute(tekst)             'uitvoeren van de zoekactie
        For Each it In r                    'voor elke waarde uit dat resultaat:
            aantal = aantal + 1
            ReDim Preserve arr(1 To aantal) 'de array met 1 element uitbreiden
            arr(aantal) = it                'en de waarde aan dat laatste element toekennen
        Next it
    Next i
End With
Cells(3, 4) = "aantal: " & aantal
Cells(5, 4).Resize(UBound(arr)) = Application.Transpose(arr)
    'transpose enkel om de array-elementen verticaal op het werkblad te zetten

End Sub
Alvast bedankt!
Met vriendelijke groeten,
Georgyboy

Hallo Georgyboy,

Als ik zo van ver naar je 'gevonden werkende code' kijk, dan krijg ik nochtans het gevoel dat dit fout zal gaan. Vermoedelijk doe jij het dus op een andere manier dan hoe ik het zou doen.
Laat dus vooral weten waar ik het verkeerd zie!
Je wil volgens mij vba-code (in dit geval uit Excel) in een Word-document plakken, ik veronderstel als documentatie (?), en daarin ter optimalisering van de leesbaarheid de commentaren in het groen zetten?
Voor mezelf zou ik dan enkel de Excel-code kopiėren en plakken, en vervolgens Word-code uitvoeren. Ik vraag me dus af welke stappen jij nog meer doet, want met de code die jij hebt toegevoegd verwacht ik dat alles na de eerste ' groen gaat kleuren.

Groetjes,
Molly

Hallo Georgyboy,

Ja hoor, mijn interesse gaat wel een beetje verder dan enkel Excel 
Om mijn eigen uitspraken even te checken heb ik het effectief geprobeerd en het deed wat ik verwachtte. Ik heb ondertussen (eindelijk!) ook een nieuwere Office (Professional Plus 2019), dus niet direct duidelijk waar het verschil zit. Misschien gebeurt er een kleinigheid anders bij het plakken.
Ik heb toch maar de code eens aangepast waarbij ik eerst de ganse inhoud selecteer, vervolgens een nieuwe lijn gebruik i.p.v. een harde return om het einde van de zoektekst aan te geven, en meteen wat ballast verwijderde.
Dan ziet de code er zo uit:
Sub Color_VBA_Comments()

Selection.WholeStory
With Selection.Find
    .Text = "'*[^11]"
    .Replacement.Font.Color = wdColorGreen
    .Execute Replace:=wdReplaceAll
End With
Selection.HomeKey Unit:=wdStory

End Sub
Nu maar hopen dat het niet omgekeerd is en deze bij jou niet werkt  . Test je misschien eens?

Groetjes,
Molly

Hallo MollyHV,

Hartelijk dank voor je code en toelichting 
Je bent ook dit (Word CVA) machtig

Bij test via F8 zie ik de tekst via de code wijzigen in een volledig rode kleur komende van .Font.Color = wdColorRed
Echter de kleur van de commentaar na het ' teken blijft ook rood 

Probeer het ook even uit te zoeken, maar weet dat het voor jouw ook weer een uitdaging is.

Groetjes,
Georgyboy

Hallo Georgyboy,

Dan blijft er tussen jouw en mijn werkwijze en/of Office-versie toch nog ergens een verschilletje.
Die ^13 staat voor een harde return en zoals ik een aantal posts geleden al aangaf zitten die er bij mij blijkbaar niet in, want dan wordt de integrale tekst vanaf de eerste ' groen. Met ^11 (laten we dat dan een zachte return noemen, volgens Microsoft een verticale tab) doet hij het hier altijd goed, om het even hoe ik de tekst plak.
Of het al dan niet een raadsel zal blijven doet er niet veel toe, als het bij jou gaat met ^13 is ons doel in elk geval bereikt 

Groetjes,
Molly

Hallo Georgyboy,

Als ik tegen een mysterie aanloop wil ik het graag ook oplossen.
En het is simpel: ik had de te behandelen tekst gekopieerd uit je eerste post hier en als ik die in Word plak worden de regels gescheiden door chr(11), maar als ik die kopieer uit de vba-editor is dat door chr(13), dus daarmee zijn we er helemaal uit.
Niet dat het nog enig nut heeft  , maar ik wou het je toch graag nog laten weten.

Groetjes,
Molly