$search-> {Text} = $oldtext; $replace-> {Text} = $newtext; $search-> Execute({Replace => wdReplaceAll}); #### $search-> {Text} = "\x{0021}"; $replace-> {Text} ="\x{0022}"; $exec_res = $search-> Execute({Replace => wdReplaceAll}); #### $search-> {Text} = "\x{270F}"; $replace-> {Text} = "\x{2702}"; #### $search-> {Text} = 'U' . "\x{270F}"; $replace-> {Text} ='U' . "\x{2702}";