Pagina 1 din 1
Deboldare care nu merge
Scris: Mar Sep 11, 2018 11:10 am
de Apostolu
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
Re: Deboldare care nu merge
Scris: Mie Mar 27, 2019 10:47 am
de Dr.Windows
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
Re: Deboldare care nu merge
Scris: Joi Mar 28, 2019 5:56 pm
de Apostolu
Multumesc.
O sa verific.
Re: Deboldare care nu merge
Scris: Sâm Mar 30, 2019 11:19 am
de Apostolu
Multumesc, functioneaza.