VBA formattering af tabel

Hvis du kender nummeret på den tabel der skal justeres, kan du bruge dennne sub:

Public Sub Table_TilpasBredde(TabelNummer As Long, Kolonne As Long, Bredde As Single)
  If TabelNummer < ActiveDocument.Tables.Count Then
      Debug.Print "TabelNr findes ikke (endnu)"
      Exit Sub
  End If
  With ActiveDocument.Tables(TabelNummer)
      If .Columns.Count < Kolonne Then
        Debug.Print "Kolonnen findes ikke i tabellen."
        Exit Sub
      End If
      .Columns(Kolonne).SetWidth ColumnWidth:=Bredde, RulerStyle:=wdAdjustNone
  End With
End Sub

Sub'en kan kaldes ved f.eks.:

Table_TilpasBredde ActiveDocument.Tables.Count, 2, CentimetersToPoints(2.5)
Table_TilpasBredde ActiveDocument.Tables.Count, 5, CentimetersToPoints(2.5)
for at få kolonne 2 og 5 til at have en bredde på 2,5 cm.

Du kan finde tabelnummeret ved at undersøge "ActiveDocument.Tables.Count" og evt. gemme nummeret i en variabel når tabellen bliver oprettet. (Hvis samme dokument skal have mange tabeller, som du skal kunne vende tilbage til ad flere gange, så bør du have variabler til at "huske" tabellens numre.)

hmmm jeg er ikke helt sikker på at jeg forstår koden.

Jeg havde nok forestillet mig noget simplere. Kan man ikke bruge with.selection...

Jeg kan nok ikke gøre det nemmere end det her:

Sub OpretTabel()
  ActiveDocument.Tables.Add Selection.Range, 2, 5, wdWord8TableBehavior
  With ActiveDocument.Tables(ActiveDocument.Tables.Count)
      .Columns(1).Width = CentimetersToPoints(7.5)
      .Columns(2).Width = CentimetersToPoints(2.5)
      .Columns(3).Width = CentimetersToPoints(2.5)
      .Columns(4).Width = CentimetersToPoints(2)
      .Columns(5).Width = CentimetersToPoints(2)
  End With
End Sub

Håber det kan hjælpe dig.

Havde glemt at lukke. Gør det nu.