Sub for replacement: how to get feeback

Hello guys,

I searched the Internet in the past and I found the following piece of code.

Please Login or Register  to view this content.

I do not understand this Range thing (despite my experience in VBA in Excel), however this code does work.

I need an upgrade to that code, to convert the Sub (the procedure) into a Function that would return the number of replacements.

This code has proved to be excellent in replacing two consecutive spaces with one but ... ... here comes the big Bee Yu Tee. What about having three consecutive spaces or four?

I could make a loop and run it many times e.g. 12 times. It would be rather unlikely to have more than 12 consecutive spaces in a document. But that sounds stupid and also increases the time required.


If I could get the number of replacement I could run it in a repeat-until loop and run it until the number of replacements becomes zero.

Any idea?

Originally Posted by Kaper

But then thought that looping inside each story will be quicker - so try also on a large document this possibly faster version:

Please Login or Register  to view this content.

It works, thank you very much.

Originally Posted by macropod

Try:

Please Login or Register  to view this content.

Note that the above code processes both ordinary spaces and non-breaking spaces. However many spaces are replaced at a given location are treated as a single replacement.

I got an erroe message.


Run-time error '5560';

The Find What text contains a Pattern Match expression which is not valid.

PS: thanks for your help anyway.

Hello again,

I have another question.

The code includes the following structure.

Please Login or Register  to view this content.

I suppose that a word document consists of ... Stories? Is it right?

The code above passes through all Stories and does the replacement.

Is it possible to alter the code? Insted of doing replacements across the whole document to do them to a part of the document I have selected.


Is anything like the following?

Please Login or Register  to view this content.

Yeeaaaaah!!!

This is what I needed. You see, I have a MS Word document in which I copy every day's reports (three per day). Each file has a full year's report. EVery time I run my code it passes through the whole document. I just need to have it done for the last days, not the all days.

Thanks buddy.

I had thought of that but I rejected the idea. It seemed a little bit counter productive.

macropod,

thanks for your code.

I worked on your code and the first work was successful. I had to alter the code a little in order to fit my needs (although further work is required).

Please Login or Register  to view this content.

One question, what is this "Application.ScreenUpdating" thing?