replacing with ""

J

Juggernath

I tried to implement method to selection.find to replace some character code
with "" but it doesn't work.
What ist the best way to delete specific character code?
 
T

Thomas Lindberg

Juggernath said:
I tried to implement method to selection.find to replace some character
code
with "" but it doesn't work.
What ist the best way to delete specific character code?
Click to expand...
If I have understoodyour problem correctly this works:

Sub FindChar()
myChar = Chr(34) 'Chr(34) is "
Selection.Find.ClearFormatting
With Selection.Find
.Text = myChar
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub


If I misunderstood you pls revert!


Thomas
 
Top