Deboldare care nu merge

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

Deboldare care nu merge

Mesaj de Apostolu » Mar Sep 11, 2018 11:10 am

Win 10, Office 2016

Asta nu face nimic.
De ce ?
Multumesc.

Cod: Selectaţi tot

Sub Deboldare()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.Font.Bold = False
    With Selection.Find
        .Text = "(1)"
        .Replacement.Text = "(1)"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Ultima oară modificat Mie Mar 27, 2019 10:37 am de către Dr.Windows, modificat 1 dată în total.
Motiv: Adaugare taguri CODE

Dr.Windows
Moderator
Moderator
Mesaje: 4570
Membru din: Vin Iul 31, 2009 7:32 am

Re: Deboldare care nu merge

Mesaj de Dr.Windows » Mie Mar 27, 2019 10:47 am

Nu functioneaza din mai multe motive:

1. Nu ai specificat ce sa caute ;)

Selection.Find.Font.Bold = True

2. Nu trebuiau puse acele "(1)"

.Text = ""
.Replacement.Text = ""

adica codul a functionat in formatul asta:

Cod: Selectaţi tot

Sub Deboldare()

    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Bold = False
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

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

Re: Deboldare care nu merge

Mesaj de Apostolu » Joi Mar 28, 2019 5:56 pm

Multumesc.
O sa verific.

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

Re: Deboldare care nu merge

Mesaj de Apostolu » Sâm Mar 30, 2019 11:19 am

Multumesc, functioneaza.

Închis

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