VBA to enter three spaces after a period

[kreepa]

I was transferring some data from Excel to Word. Sometimes this data goes onto legal files so I need the spacing and punctuation to be crisp and presentable.

I know it is something like:

ActiveDocument.Content.Select if(count of blank <> 3 adjust it to 3).
TypeText Text:=" "

I hope this makes since to someone. I have the outline, I just can't string it together.

 

[trevor101]

I think the easiest way would be firstly to reduce all spaces to one, e.g. B1=Trim(A1) and then use substitute(B1," "," "), or combining them substitute(Trim(A1)," "," "). I don't do VB but I imagine this would would be simple to convert, if not paste it after each cell/line in Excel

 

[Smitty]

Check out www.theofficeexperts.com/forum

There is a Word forum there.

HTH,

Smitty

 

[vconfused]

The problem I see if that you do not want ALL periods to have 3 spaces after them, or do you. For instance "Mr. John Doe" versus "...end of the line. Next sentance...". If you did want 3 spaces after EVERY period. You could have a simple macro that replaced period + space with just a period and have that loop a couple times and then replace all period's with a period + 3 spaces. Or conversely, have a macro that replaced all period's with a period + 3 spaces and then have a loop to replace all instances of 4 spaces with 3 spaces. Neither approach is good, but would work...