Inlocuire ghilimele

Închis
Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Inlocuire ghilimele

Mesaj de Apostolu » Sâm Ian 10, 2015 7:57 am

WIN XP, Word 2003

Textul ce trebuie modificat:
“Cererea de ............. corespunzător”

Se doreste inlocuirea caracterului “ Chr(147) de la inceputul randului cu „ Chr(132)
Macro 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 ?

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

Închis

Înapoi la “Visual Basic for Application (VBA) - Intrebari tehnice”