Hi Kanishk

Changed your code

$word->Selection->Find->Execute({Replace=>wdReplaceAll});
[download]

Thanks
Gopal R.