Inlocuire ghilimele

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

Inlocuire ghilimele

Mesaj de Apostolu » Mie Sep 23, 2015 12:18 pm

in 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 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
Ultima oară modificat Lun Sep 28, 2015 7:35 pm de către Dr.Windows, modificat 1 dată în total.
Motiv: Adaugare taguri CODE

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje: 1997
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest
Contact:

Re: Inlocuire ghilimele

Mesaj de Dr.Excel » Dum Sep 27, 2015 6:28 pm

Nu functioneaza pentru ca ai activate ghilimele "smart"
Dezactiveaza-le, apoi o sa-ti functioneze si CTRL + H (replace), cauti ghilimelele normale si le inlocuiesti tot cu ...cele normale ;)
Untitled.png
Untitled2.png
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

MCT, MCITP
MOS Master Instructor
IT Learning

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

Re: Inlocuire ghilimele

Mesaj de Apostolu » Dum Sep 27, 2015 8:22 pm

Multumesc !
Noroc ca stiam unde sunt optiunile de "autoformat as you type" (eu lucrez in 2003). :oops:

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

Re: Inlocuire ghilimele

Mesaj de Apostolu » Mar Sep 29, 2015 8:39 am

Dr. Excel nu ma mai iau dupa tine ! :lol:
A iesit o incurcarura de zile mari.
Eu chiar vreau ghilimele, nu betisoare, si le vreau jos si sus.
Am facut cum mi-ai zis si m-am trezit cu betisoare sus peste tot, si la inceput si la sfarsit !!! :o
Deci, trebuie sa inlocuiesc Chr(147) cu Chr(132).
Cum fac asta automat ?

Închis

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