OK. Below is the “advanced version.” I have included the “Q” which I believe 2long also replaces, but only when it is a leading “q” in a word such as 2ip, 2ote, or 2een.

Iraq would remain un2uched.

And just 2 make every1 laugh and simply 4 giggles, I added some possible combinations 4 the other obvious variants, like 1 and 4.

So copy and paste the code below, just like my earlier post instructed. (In case it is not in2itive at this point). And enjoy!!!!

NCW

==START OF ADVANCED CODE =============
Sub toolongese()
'
' toolongese Macro
' This macro replaces all the characters that 2long likes to use a 2 4
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "too"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "to"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "tu"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "two"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "couple"
.Replacement.Text = "2ple"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "both"
.Replacement.Text = "2th"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll


With Selection.Find
.Text = " qu"
.Replacement.Text = " 2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "for"
.Replacement.Text = "4"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "four"
.Replacement.Text = "4"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "one"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "won"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "wun"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

LMAO!!!!!!!!!!!

A1s0, t0uch3d !s a w0rd, st!11, n0t a numb3r/w0rd. !t d03sn't hav3 th3 r32u!s!t3 "2" s0und, but rath3r, a "Tuh" s0und.

And y3s, ! d0 s0m3t!m3s us3 2 !nst3ad of "q", as !n th3 cap!ta1 scr!pt 2!

-01' 210ng

No. It was "too whit".

Do you need a 2long de-compiler?

NCW,

My office needs you.

I, 2, now have a headache.

K!w!J:

! [email]c@n[/email] [email]m@k3[/email] !+ w0r53, 2!

-01 210ng

0K,

H3r3 is th3 @dv@nc3d @DV@NC3D v3rsi0n.

It [email]r3p1@c3s[/email] @11 th3 13tt3r “E” with th3 numb3r 3, @11 th3 L’s with th3 numb3r 1, @11 th3 0’s with th3 numb3r 0 @nd just 4 grins I w3nt @h3@d @nd [email]m@d3[/email] @11 th3 @’s 0ut 0f th3 “at” sign.

3v3n th0ugh @ is n0t [email]r3@11y[/email] @ numb3r.

@ppr0v3?

== Start of Advanced Advanced Code =====
Sub toolongese()
'
' toolongese Macro Advanced Version
' This macro replaces all the characters that 2long likes to use a 2 4
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "too"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "to"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "tu"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "two"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "couple"
.Replacement.Text = "2ple"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "both"
.Replacement.Text = "2th"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll


With Selection.Find
.Text = " qu"
.Replacement.Text = " 2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "for"
.Replacement.Text = "4"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "four"
.Replacement.Text = "4"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "one"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "won"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "wun"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "e"
.Replacement.Text = "3"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "a"
.Replacement.Text = "@"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "l"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "o"
.Replacement.Text = "0"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Yep, hangin' out with brains will do that to you.

I'm still looking for the "flash" of light in the sunset, long after I have forgotten what color that flash is supposed to be...green or blue, I forget.

I try to tell of the things I have learned here, but still all I get is that "caught in the headlights" look.

Which reminds me of a poem called "Caught in the Headlights"...but I digress.

And when one starts using phrases like "but I digress", one knows they have been around 2long. <img src="/ubbt/images/graemlins/grin.gif" alt="" />

ncw:

N0w, y0u n33d 2 @dd:

5 4 "s"

! 4 "i"

+ 4 "t"

+h3r3 [email]m@y[/email] b3 m0r3, 2!
'01 210ng

ROTFLMAOPMP!!!!!!!!!

You really are a very clever man - it's quite scarey. Put you together with 2long and the brainpower is a bit overwhelming.

Weaver, I know what you're saying.

Thing is, words have always been my thing, they don't frighten me no matter how big they are - it's these guys (and Appy and JL and GC) that scare me.

Brains coupled with humour is a scary thing...but without (the humour)it is a downright shame.

[email]w3@v3r:[/email]

There are a lot of good sites about the green flash, but this one has the most pic2res I could find:

http://www.intersoft.it/galaxlux/GreenFlashGallery.htm

I've heard tell that Venus can do a green flash, 2. But I've never seen it.

...I have seen a "moonbow", though!

-ol 2long

Okay Jen (cus I know you like poetry), the poem I was thinking of was not called "Caught in the Headlights", is was this one (below) by William Stafford.

Now some might think this is a sad poem, but I like it...because this is life, and hard decisions.

And then I'll let ya'll get back to your coding and decoding fun.


Traveling Through The Dark

Traveling through the dark I found a deer
dead on the edge of the Wilson River road.
It is usually best to roll them into the canyon:
that road is narrow; to swerve might make more dead.

By glow of the tail-light I stumbled back of the car
and stood by the heap, a doe, a recent killing;
she had stiffened already, almost cold.
I dragged her off; she was large in the belly.

My fingers touching her side brought me the reason--
her side was warm; her fawn lay there waiting,
alive, still, never to be born.
Beside that mountain road I hesitated.

The car aimed ahead its lowered parking lights;
under the hood purred the steady engine.
I stood in the glare of the warm exhaust turning red;
around our group I could hear the wilderness listen.

I thought hard for us all--my only swerving--,
then pushed her over the edge into the river.

William Stafford

Ooo!

http://www.sundog.clara.co.uk/rainbows/bowim15.htm

-ol' 2long

Thank you 2long. I'm going to witness that someday.

[email]W3@v3r[/email], 3t. @1,

This is y0ur [email]br@in[/email] 0n 210ng w0rds.


PS: Sun d0gs @r3 v3ry c0mm0n h3r3.

OK.

I think I have it with further enhancements.

Sample text:


Same text with all 2long's enhancements:


Same text with NEW modification - the word reverser:


Same text with the 2upled solution of toolongese AND reversing:

Final revision of toolongese

===START OF CODE======
Sub toolongese()
'
' toolongese Macro
' This macro replaces all the characters that 2long likes to use a 2 4
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "too"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "to"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "tu"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "two"
.Replacement.Text = "2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "couple"
.Replacement.Text = "2ple"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "both"
.Replacement.Text = "2th"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll


With Selection.Find
.Text = " qu"
.Replacement.Text = " 2"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "for"
.Replacement.Text = "4"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "four"
.Replacement.Text = "4"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "one"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "won"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "wun"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "e"
.Replacement.Text = "3"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "a"
.Replacement.Text = "@"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "l"
.Replacement.Text = "1"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "o"
.Replacement.Text = "0"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "s"
.Replacement.Text = "5"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "i"
.Replacement.Text = "!"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "t"
.Replacement.Text = "+"
.Forward = True
.Wrap = wdFindContinue
End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub