Easy question

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

filo666 - 29 Dec 2005 01:34 GMT

1) How to tell word: for each character in the sheet change it to the next
character.
EX. apple chages to: bqqmf

2) if the character is A or B or C or D change it to "Å", goto next character

TIA

Reply to this Message

Jean-Guy Marcil - 29 Dec 2005 06:22 GMT

filo666 was telling us:
filo666 nous racontait que :

> 1) How to tell word: for each character in the sheet change it to the
> next character.
[quoted text clipped - 4 lines]
>
> TIA

Try this:

Application.ScreenUpdating = False

Dim i As Long

With ActiveDocument.Characters
For i = 1 To .Count
If Asc(.Item(i).Text) = 122 Then
.Item(i).Text = Chr(97)
ElseIf Asc(.Item(i).Text) > 96 And Asc(.Item(i).Text) < 122 Then
.Item(i).Text = Chr(Asc(.Item(i).Text) + 1)
ElseIf Asc(.Item(i).Text) > 64 And Asc(.Item(i).Text) < 69 Then
.Item(i).Text = Chr(197)
End If
Next
End With

Application.ScreenRefresh
Application.ScreenUpdating = True

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message