Add X from every numeric value

Hi,

I wonder if someone can present a VBA (or any other solution) how to browse an entire document (full of text and numbers) and when the selected word is a numeric value (can be 123 or 06) to add X which will be inputted by the user via a Inputbox command.

Hopefully, such a solution will be capable also to add the same X to a typed Date (to increase the day only in a non date field type)

It will be nice if the macro will stop at any founded numeric value and ask weather to add or to leave the value intact and move to the next word.

Any suggestions will be more that appreciated.

I managed to write a short code but it does not work as expected.

If X = 3 and the found value is 5 - the result gets to be 53

Please Login or Register  to view this content.

Thanks, Elm

Perhaps:

Please Login or Register  to view this content.

Might be worth having an escape clause if X is 0.

The above would only partially work with "numeric-alphas" rather than "alpha-numerics" - eg 123test would be found whereas test123 would not (Val being 0) - not clear what your requirements are on that front

The dates - based on my v limited testing - it would seem each part of the date is interpreted as being a different word - treating as a date serial would warrant testing 5 words (delimiter pending) and testing resulting string for IsDate - handling appropriately.

I have v little experience using Word object model - others are far more proficient and may have a better alternative to the above (RegExp perhaps).