Autofit in Fusszeile (Tabelle)

Moderator: ModerationP

Autofit in Fusszeile (Tabelle)

Beitragvon Marco_H » 20. Nov 2019, 15:04

Hallo zusammen

Ich habe mir folgenden Code zusammengebaut. Irgendwie schaffe ich es nicht, dann meine Tabelle in der Fusszeile noch mit Autofit an die Grösse des Textes angepasst wird. Kann mir jemand helfen, dies anzupassen?

Code: Alles auswählen

  Dim rStory As Range
  Dim tbl As Table
  'Hauptkopfzeile
  'Ist immer vorhanden, kann aber auch leer sein.
  Set rStory = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
  Set tbl = rStory.Tables(1)
  'schreiben
  tbl.Cell(1, 1).Range.Text = "Test1"
  tbl.Cell(1, 2).Range.Text = "Test 2"
  tbl.Cell(1, 3).Range.Text = "Test 3"
 
  tbl.Cell(2, 1).Range.Text = "Test 4"
  tbl.Cell(2, 2).Range.Text = "Test 5"
  tbl.Cell(2, 3).Range.Text = "Test 61"



Vielen Dank und beste Grüsse
Hubi
Marco_H
 

Re: Autofit in Fusszeile (Tabelle)

Beitragvon halweg » 20. Nov 2019, 16:48

Mein Makro für solche Zwecke sieht so aus:
Code: Alles auswählen
Sub Tabelle_automatischeBreite() ' STRG+a,t
' Stellt die aktuelle Tabelle auf automatische Spaltenbreite und automatische Größenänderung
Dim spalte As Column
  selection.Tables(1).AllowAutoFit = True
  selection.Tables(1).PreferredWidthType = wdPreferredWidthAuto
  selection.Tables(1).PreferredWidth = 0
  For Each spalte In selection.Tables(1).Columns
    spalte.PreferredWidthType = wdPreferredWidthAuto
  Next spalte
End Sub
Vielleicht hilft das?
Office 2002, 2010; Windows 7, 10
Benutzeravatar
halweg
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 565
Registriert: 21. Okt 2010, 08:04
Wohnort: Dresden


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste