Problem with find and replace macro

[santhescript01]

Hi everyone,
I got a macro that performs a find and replace function on a text.It's working fine but for some unicode character it replaces with weird character despite of original text character.


Code snippet given below::
[CODE=VB]
Selection.find. ClearFormatting
Selection.find. Replacement.Cle arFormatting
With Selection.find
.Text = findeditcontrol .Text
.Replacement.Te xt = replaceeditcont rol.Text
With Selection
If .find.Forward = True Then
.Collapse Direction:=wdCo llapseStart
Else
.Collapse Direction:=wdCo llapseEnd
End If
.find.Execute replace:=wdRepl aceOne
End With
[/CODE]

[Dököll]

Hi everyone,
I got a macro that performs a find and replace function on a text.It's working fine but for some unicode character it replaces with weird character despite of original text character.


Code snippet given below::
[CODE=VB]
Selection.find. ClearFormatting
Selection.find. Replacement.Cle arFormatting
With Selection.find
.Text = findeditcontrol .Text
.Replacement.Te xt = replaceeditcont rol.Text
With Selection
If .find.Forward = True Then
.Collapse Direction:=wdCo llapseStart
Else
.Collapse Direction:=wdCo llapseEnd
End If
.find.Execute replace:=wdRepl aceOne
End With[/CODE]

Hello Hello!

Is this VB or VBA? I am not too skilled in running or building a macro. What types of characters are you referring to, can you add them here, they're in a pop up!

Sorry for your troubles.

Dököll

[santhescript01]

Hello Hello!

Is this VB or VBA? I am not too skilled in running or building a macro. What types of characters are you referring to, can you add them here, they're in a pop up!

Sorry for your troubles.

Dököll

hi,
The code is in VBA. Unicode characters are being referred.