Textul ce trebuie modificat:
“Cererea de ............. corespunzător”
Se doreste inlocuirea caracterului “ Chr(147) de la inceputul randului cu „ Chr(132)
Macro de mai jos zice ca a gasit si inlocuit, in realitate ghilimelele raman tot sus.
Nici in replace din Word nu functioneaza direct, ci doar daca copiez un Chr(132) si la elementul inlocuitor pun ^c.
Ceva idei ?
Cod: Selectaţi tot
Sub ghilimele()
'Ghilimele in fata
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Chr(147)
.Replacement.Text = Chr(132)
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub