Boldare si centrare in tabel

[Apostolu]

Document cu multe tabele.

Se cere bolarea si centrarea textului din primul rand al tuturor tabelelor.

Cum se poate face automat ?

[IPP]

Buna ziua

Pe o copie a fisierului dvs. original, testati codul:

Cod: Selectaţi tot

Sub ChngFormatR1InTbls()

'IPP - 11.10.2013

Application.ScreenUpdating = False

Dim tTable As Table
      
For Each tTable In ActiveDocument.Tables
    tTable.Rows(1).Select
        With Selection
        .Font.Bold = wdToggle
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
        End With
Next

Application.ScreenUpdating = True

End Sub

IP

[Apostolu]

Pe niste table facute repede intr-un doc, a functionat perfect.
Sa vad zilele astea si pe ceva exemple reale.

Oricum multumesc foarte mult !