Reverse large files

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Dear all,

Can someone explain why the following code doesn't invert a selection of 60,000 words. Only a small part at the end of the doc is inverted.

Sub ReverseSelection02()
Dim strA As String
If Selection.Type = wdNoSelection Then
MsgBox ("There is no selection.")
Else
strA = StrReverse(Selection)
Selection.TypeText (strA)
End If
End Sub

I'm asking this because I would like to invert a large document with occasional italic and bold formatting, as well as small caps. Is there another method to the text of docs like this - preserving character formatting? Given the file size, it has to be rather quick.

Chau
Nomey

.

Relevant Pages