replacing with ""

[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?

 

[Thomas Lindberg]

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?

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