fed skrift i alle tabeller i word?

Forudsætningen for, at du kan ændre pr. kolonne, er, at tabellerne er ”uniform” i VBA-forstand, dvs. ikke noget med flettede celler eller andet, som gør tabellerne irregulære. Hvis man opererer på individuelle celler, undgås det problem.

Den makro, du har vist, vil også fejle, hvis der er lodret flettede celler, dvs. hvis de enkelte kolonner ikke har lige mange celler.

Jeg har lavet denne makro, som gør første kolonne i hver tabel fed:

Sub BoldColumn1_AllTables()
    Dim oTable As Table
    Dim oCol As Column
    Dim oCell As Cell
   
    For Each oTable In ActiveDocument.Tables
        'apply bold to all cells that have column index 1, i.e. first cell in row
        For Each oCell In oTable.Range.Cells
            If oCell.ColumnIndex = 1 Then
                oCell.Range.Font.Bold = True
            End If
        Next oCell
    Next oTable
           
End Sub


NB Den makro, du har vist, kan laves noget mere elegant. Desuden er det mere effektivt  at operere med For Each i stedet for at bruge en tæller (koden kører hurtigere), og at nøjes med at referere samme objekt én gang ved at bruge With og End With. Nedenfor er en version, som jeg har tilrettet. Den vil stadig fejle, hvis der er lodret flettede celler (kan ændres svarende til makroen ovenfor):

Sub TestRevised()

    Dim oTable As Table

    For Each oTable In ActiveDocument.Tables
        With oTable.Rows(1).Range
            .Font.Bold = True
            .Font.ColorIndex = wdWhite
            .Shading.ForegroundPatternColor = wdColorAutomatic
            .Shading.BackgroundPatternColor = -671039489
        End With
    Next oTable
End Sub

De to linjer med .Font kunne reelt også anvende With/End With. Det samme gælder  de to linjer med .Shading - men det er OK at gøre som vist her.