Losing formatting using .Text to replace

[treva31]

Hi,

I have this little sub that removes leading and trailing spaces from text in cells of all my tables.

It works great but it turns any coloured text to black.



Is there a way to keep the formatting?

Thanks.

Sub RemoveSpaces() 
    Dim oRng As Range 
    Dim oTable As Table 
    Dim acell As Cell 
    For Each oTable In ActiveDocument.Tables 
        With oTable 
            For Each acell In oTable.Range.Cells 
                Set oRng = acell.Range 
                oRng.End = oRng.End - 1 
                oRng.Text = Trim(oRng.Text) 
            Next acell 
        End With 
    Next oTable 
End Sub