How to find a specific word and replace the immediate next word

Hi All,

I'm searching for a particular word in a word document using a macro. Say for example i'm searching the word "Amount". I need to replace the very next word of the found word. Suppose there is a sentence like "Amount $5,000". I will search for the word "Amount" and have to replace the $5,000 with some other value.

One can raise a doubt why need to search for "Amount" instead of "$5,000". I will tell the reason. $5,000 will not be same in all the documents. whereas "Amount" will be constant. So I'm invoking a search t find the word "Amount" and replace the very next word. I did some coding. Can you please let me know where should i have to correct.

Please Login or Register  to view this content.

Hi.. anyone got idea on this??

Originally Posted by OllieB

You can use a single find & replace instruction for the entire document using wildcards

Please Login or Register  to view this content.

Thank You so much for your reply. Your idea works fine but for onething. Here in this place the word will be "Amount $?????". it means the word Amount will be BOLD always. so when i replace that word with "Amount $ 7,500" $7,500 also getting bold. I dont want it to be bold. Any suggestion??

Originally Posted by OllieB

Yes:
- set the format on the first find & replace to normal font (to remove the BOLD);
- run a second find & replace for the "Amount" string only and set format to BOLD

I did this after replacing the word. But unfortunately its not working.

Please Login or Register  to view this content.

am i missing something?

Originally Posted by OllieB

I just recorded a MACRO with the actions and it worked without a problem.

Please see the attached code

Please Login or Register  to view this content.

when i use this part of code i'm getting wrong number of arguments or invalid property assignment error. can u please let me know what should i do. Ive used Option Explicit in the top

Please Login or Register  to view this content.

Originally Posted by OllieB

The "Selection" part does not work because you are working from Excel and not from within Word. I recorded the macro in Word so you will need the selection variable to rng like you have done yourself in the first post.

Please Login or Register  to view this content.

Thanks that's working great.
I just faced one problem.

"Amount $????????"
Here the dollar value will not be always same. It will change everytime. So it can't be fixed. So is there anyother way where i can extract the next word of the Amount.

I'm sorry to bug you all the time when i need a help.

Originally Posted by OllieB

I am not sure what you mean. The Find "Amount $????????" will find every occurrence of the string Amount $.... irrespective of the actual amount shown after the $, just like you asked.

yes you are right.. Let me tell you clearly. I have these two sentences with bullets.

• Amount $5,000
• Payment $8,500

so now "Amount $????????" replacing some part of next sentence as well.(ie its getting replaced as Amount $7,500yment $8,500). And also $5,000 can be $15,000 at times. so we can't fix the number of Question marks. This is my concern here. Hope i'm clear

Originally Posted by OllieB

If this is your problem, the automated find & replace solution will only work if you know the length of the amount string you are replacing. If you do not this up front, then the current solution we are discussing will not work and you are back at square one.

OOPS.. my bad.. I know this is too much to ask you...you got any idea for my problem?

Originally Posted by OllieB

For "small" document the following might work (replace new_amount with actual value provided as a parameter or something like that)

Please Login or Register  to view this content.

Thanks much for your help. I will try this.