Caps After Roundbracket

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

Caps After Roundbracket

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

Win 10
Office 2016
Macro care nu merge.
Ma depaneaza cineva ?
Multumesc.




Sub CapAfterRoundbracket()

'(5)î cu (5)Î

With ActiveDocument.Range.Find
.ClearFormatting
With .Replacement.Font
.SmallCaps = False
.AllCaps = True
End With

.MatchWildcards = True
.Text = "([(][0-9]{1,}[)]) ([î])"
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
End With

End Sub

Scrie răspuns

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