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.)
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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.