+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Word (https://office-fragen.de/forum-3.html)
+--- Thema: Macro - Unterschiedliche Tabs pro Spalte (/thread-11561.html)
Macro - Unterschiedliche Tabs pro Spalte - Quinni - 03.07.2020
Ein herzliches Hallo zusammen.
Ich bin ein wenig am Grübeln. Ich habe ein AddIn welches mir Excel Tabellen nach Word importiert und Formatiert.
Es sind leider auch Tabellen dabei die dann weniger Spalten haben und meine Std. Formatierung nicht hinhaut.
Also habe ich begonnen, mit kleinen Macros nachzuformatieren.
Das funktioniert ganz gut. Nur bin ich jetzt an einem Punkt wo ich nicht weiter weiß.
Es gibt eine Tabellensorte da muss ich nachträglich die Spaltenbreite umformatieren um dann die zahlen ausrichten mittels Dezimaltab.
Per Default ist dieser an Position 2.5cm je Spalte (Alle Tabellen erhalten das selbe Tabellenformat).
Es ist egal ob ich jetzt ein anderes Tabellenformat nutze oder auch gebänderte Spalten konfiguriere. Die Ausrichtung sieht generell nicht stimmig aus. Ich MUSS die Spalten genau ansprechen und sagen WELCHE spalte erhält WELCHE Tabulatureneinstellung.
Ich bin So weit gekommen. Das Problem was ich habe ist das ich nicht weis wie ich im Makro eine Spalte selectieren UND dann die Tabulatorenposition ändere.
WEnn ich die Tabs "cleare" und dann eine neue position hinzufüge übernimmt er es mit auf alle. Soll aber wie in meinem Code nur bei Spalte 5 und 8 Anwendung finden
Code:
Sub xphasetabelle()
With Selection.Tables(1)
.Columns(1).Width = CentimetersToPoints(1.3) 'nummerierung
.Columns(2).Width = CentimetersToPoints(11.25) 'beschreibung
.Columns(3).Width = CentimetersToPoints(2.25) 'zahl - tabstops bei 0 links und 1,5 dez
.Columns(4).Width = CentimetersToPoints(2.25) 'zahl - tabstops wie oben
.Columns(5).Width = CentimetersToPoints(2.5) 'zahl - tabstops bei 0 links und 1.6 dez
.Columns(6).Width = CentimetersToPoints(2.8) 'zahl - tabstops bei 0 links und 2 dez
.Columns(5).Select
Selection.Paragraphs.TabStops.ClearAll
With Selection.Paragraphs.TabStops
.Add Position:=CentimetersToPoints(0), Alignment:=wdAlignTabLeft
.Add Position:=CentimetersToPoints(1), Alignment:=wdAlignTabDecimal
End With
.Columns(7).Width = CentimetersToPoints(2.25) 'rabatt
.Columns(8).Width = CentimetersToPoints(3.1) 'rabatt
.Columns(8).Select
Selection.Paragraphs.TabStops.ClearAll
With Selection.Paragraphs.TabStops
.Add Position:=CentimetersToPoints(0), Alignment:=wdAlignTabLeft
.Add Position:=CentimetersToPoints(2.5), Alignment:=wdAlignTabDecimal
End With
Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
End With
End SubWenn jemand weis wie ich die Tab eisntellung nur auf die ausgewählten Spalten stelle, wäre ich echt dankbar!