VBA Insert spaces between each character...

[Chayes]

Hi All




I'm trying to insert hard spaces into some text in a Word Document.


This would mean that after running the code on the selected text ,


Hello There!


would become


H e l l o T h e r e !




including a double space between the words.

Can someone advise with some code , please?




Grateful for any help.

[macropod]

You don't need a macro for that - a simple Find/Replace will do the job, where:
Find = ^?
Replace = ^&^32
or:
Find = ^?
Replace = ^&^160
the latter will help keep words together.

[slaycock]

Depending on why you wish to add such spacing you might also consider the font spacing which might be easier to manage in the long term.

e.g. Try increasing the font spacing to 5 pt for a section of text. This gives the appearance of adding spaces between characters.

[macropod]

Originally Posted by slaycock

This gives the appearance of adding spaces between characters.

It also has the advantage of not unnecessarily breaking words for line-wrapping purposes.

[Chayes]

Hi


Ok thanks for this. I find



Find = ^?
Replace = ^&^32


works fine. It inserts a hard space between each letter in a word , which is exactly what I was looking for.


Curiously , where a space exists say between two words in a phrase , it makes this into 3 spaces rather than the expected 2. Easily remedied with another search / replace , but I thought you'd like to know.


Thanks for your help - much appreciated.

[macropod]

The Find/Replace inserts a space after every character - including spaces. So, if you replace a letter followed by a space with those characters and spaces, you'll end up with a letter followed by three spaces.

[Chayes]

Yes , I can see how that works. As I was saying , It's relatively easily remedied with another search/replace , but it's a pity it can't be done on first application. At any rate , thanks again for your help.

[macropod]

You could use a wildcard Find/Replace, where:
Find = [! ]
Replace = ^&^32

[Chayes]

Yes , that's got it. Perfect first time. Many thanks for your help.