Boldare rand intre tabele

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

Boldare rand intre tabele

Mesaj de Apostolu » Sâm Iul 26, 2014 2:13 pm

Nu reusesc sa-mi dau seama de ce acest macro nu face nimic . :)
Ar trebui sa boldeze randurile dintre tabelele din fisierul atasat.
Ma puteti ajuta ?

Multumesc.


Sub Numerotare_si_boldare()

'
' Boldeaza 1. si ce urmeaza, intre tabele
'
On Error GoTo err
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.MatchWildcards = True
.Text = "(^13)<([0-9]{1,})(. UNIVERSITATEA)(*)(^13)"
With .Replacement
.Text = "^&"
.Font.Bold = True
End With
.Execute Replace:=wdReplaceAll
End With
Exit Sub
err:
MsgBox err.Description, vbOKOnly, "eroare"
End Sub
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Închis

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