Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Spaltenbreite in Word-Tabelle einstellen

  Alt 17. Mai 2016, 10:54
Ist die Tabelle den vorher leer (ohne Zeile)? Hast du es mal in VBA versucht, wie es dann aussieht?
hat er nicht weil der Recorder sich mal wieder von der besten Zickenseite zeigt.
Ich hab da mal was gebastelt:
Code:
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Tabellenraster" Then
            .Style = "Tabellenraster"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
        .Rows.Add
        .Rows.Add
    End With
Bis auf die beiden .Rows.Add kommt das aus dem Macrorecorder. Da Add als Parameter "BeforeRow" erwartet, kann es durchaus sein, daß "emptyParam" und ein nicht vorhandener Parameter unterschiedliche Ergebnisse erzeugt.
Zitat:
Function Add([BeforeRow]) As Row
Element von Word.Rows
Gruß
K-H

P.S. VBA 7.1 / Word365
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector

Geändert von p80286 (17. Mai 2016 um 11:00 Uhr)
  Mit Zitat antworten Zitat