Mavila
07-10-2016, 12:38 PM
I'm doing a Find/Replace of text INSIDE A WORD TABLE with Chr(13) but I get boxes instead of the return. Chr(7) works but not Chr(13). Any ideas as to what I should be doing differently to get the actual carriage return instead? It's Times New Roman font. Here is the code:
ActiveDocument.Tables(1).Range.Select
With Selection.Find
.Text = ">P"
.Replacement.Text = Chr(13)
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Thank you!
ActiveDocument.Tables(1).Range.Select
With Selection.Find
.Text = ">P"
.Replacement.Text = Chr(13)
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Thank you!