Put each letter on a seperate line?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

goldslip@gmail.com - 31 May 2006 09:41 GMT

Hi all,

I want to get a vertical list of letters in a word document and cant
figure out how to do it...

Basically I want 'The quick brown fox' to end up looking like"
t
h
e
q
u
i
c
k
b
r
o
w
n
f
o
x

Using ^l (Manual Line Break) can get it to do:

The
quick
brown
fox

But thats not what Im after, I need each letter to be on a seperate
line of its own.
Its to sort a paragraph of Chinese or Japanese text so each character
is on a seperate line.

The list will then be copied and pasted to an excel worksheet so I dont
know if I can bypass word altogether and do it all in excel.

I'd really appreciate any help on this, it's driving me crazy!

Thanks in advance :>)

Reply to this Message

Graham Mayor - 31 May 2006 11:52 GMT

Replace (wildcards)
[a-zA-Z]{1}
with
^&^p

http://www.gmayor.com/replace_using_wildcards.htm

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

> Hi all,
>
[quoted text clipped - 37 lines]
>
> Thanks in advance :>)

Reply to this Message

goldslip@gmail.com - 31 May 2006 14:04 GMT

Hi Graham,

^&^p works like a charm!

Thanks so much!

> Replace (wildcards)
> [a-zA-Z]{1}
[quoted text clipped - 52 lines]
> >
> > Thanks in advance :>)

Reply to this Message

Doug Robbins - Word MVP - 31 May 2006 12:03 GMT

The following macro should do what you want:

Dim i As Long
Dim crange As Range
With ActiveDocument
For i = .Characters.Count To 1 Step -1
Set crange = .Characters(i)
crange.InsertAfter vbCr
Next i
End With

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> Hi all,
>
[quoted text clipped - 37 lines]
>
> Thanks in advance :>)

Reply to this Message

Rate this thread: