Hi Alan,
Use a macro containing the following code to reverse the letters in the
selected word :
Dim j As Integer, i As Integer, m As String, n As String
j = Selection.Words(1).Characters.Count
For i = 1 To Int(j / 2)
m = Selection.Words(1).Characters(i)
n = Selection.Words(1).Characters(j - i + 1)
Selection.Words(1).Characters(i) = n
Selection.Words(1).Characters(j - i + 1) = m
Next i
If you want to do it to every word in the document, use
Dim j As Integer, i As Integer, k As Integer, m As String, n As String,
myrange As Range
For k = 1 To ActiveDocument.Words.Count
Set myrange = ActiveDocument.Words(k)
myrange.End = myrange.End - 1
j = myrange.Characters.Count
For i = 1 To Int(j / 2)
m = myrange.Characters(i)
n = myrange.Characters(j - i + 1)
myrange.Characters(i) = n
myrange.Characters(j - i + 1) = m
Next i
Next k
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
