Tabelle in Fußzeile mittels VBA

  • Word

    Tabelle in Fußzeile mittels VBA

    Hallo,

    ich bin noch ziemlich neu im Umgang mit VBA und habe bisher mit Textmarken gearbeitet. Jetzt möchte ich eine Tabelle in die Fußzeile einfügen um in die jwl. Spalten dann dynamischen Inhalt einfügen zu können (wenn das angeklickt wurde, dann bitte das einfügen usw.). Doch ich scheitere an der Tabelle in der Fußzeile. Ich bekomme einfach nicht den Befehl heraus dass die Fußzeile angesprochen wird. Ich wäre wirklich dankbar, wenn mir jemand helfen könnte.

    Vielen Dank.

    1. Meine Tabelle wird eingefügt

    2. Meine Tabelle soll eigentlich in die Fußzeile

    Visual Basic-Quellcode

    1. Sub FußzeilenTabelleEinfügen()
    2. Dim Bereich As Range
    3. Dim Tabelle As Table
    5. Set Bereich = ActiveDocument.Range(Start:=0, End:=0)
    6. Set Tabelle = ActiveDocument.Tables.Add _
    7. (Range:=Bereich, NumRows:=3, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
    8. wdAutoFitFixed)
    9. With Selection.Tables(1)
    10. If .Style <> "Tabellenraster" Then
    11. .Style = "Tabellenraster"
    12. End If
    13. End With
    15. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    16. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    17. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    18. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    19. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    20. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    21. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    22. Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    23. Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    24. Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    25. Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    26. Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    27. Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
    28. Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    29. Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    30. Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    31. With Selection.Borders(wdBorderRight)
    32. .LineStyle = Options.DefaultBorderLineStyle
    33. .LineWidth = Options.DefaultBorderLineWidth
    34. .Color = Options.DefaultBorderColor
    35. End With
    36. Selection.MoveLeft Unit:=wdCharacter, Count:=1
    37. With Selection.Borders(wdBorderRight)
    38. .LineStyle = Options.DefaultBorderLineStyle
    39. .LineWidth = Options.DefaultBorderLineWidth
    40. .Color = Options.DefaultBorderColor
    41. End With
    42. Selection.MoveDown Unit:=wdLine, Count:=1
    43. With Selection.Borders(wdBorderRight)
    44. .LineStyle = Options.DefaultBorderLineStyle
    45. .LineWidth = Options.DefaultBorderLineWidth
    46. .Color = Options.DefaultBorderColor
    47. End With
    48. Selection.MoveDown Unit:=wdLine, Count:=1
    49. With Selection.Borders(wdBorderRight)
    50. .LineStyle = Options.DefaultBorderLineStyle
    51. .LineWidth = Options.DefaultBorderLineWidth
    52. .Color = Options.DefaultBorderColor
    53. End With
    54. Selection.MoveRight Unit:=wdCharacter, Count:=1
    55. With Selection.Borders(wdBorderRight)
    56. .LineStyle = Options.DefaultBorderLineStyle
    57. .LineWidth = Options.DefaultBorderLineWidth
    58. .Color = Options.DefaultBorderColor
    59. End With
    60. Selection.MoveUp Unit:=wdLine, Count:=1
    61. With Selection.Borders(wdBorderRight)
    62. .LineStyle = Options.DefaultBorderLineStyle
    63. .LineWidth = Options.DefaultBorderLineWidth
    64. .Color = Options.DefaultBorderColor
    65. End With
    66. Selection.MoveUp Unit:=wdLine, Count:=1
    67. With Selection.Borders(wdBorderRight)
    68. .LineStyle = Options.DefaultBorderLineStyle
    69. .LineWidth = Options.DefaultBorderLineWidth
    70. .Color = Options.DefaultBorderColor
    71. End With
    73. End Sub


    Visual Basic-Quellcode

    1. Sub Test1()
    2. With ActiveDocument.Sections(1).Footers(1)
    3. .Range.Select
    4. With Selection
    6. Set Table = ActiveDocument.Tables.Add _
    7. (Range:=Range, NumRows:=3, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
    8. With Selection.Tables(1)
    9. If .Style <> "Tabellenraster" Then
    10. .Style = "Tabellenraster"
    11. End If
    12. End With
    13. End With
    14. End With
    15. End Sub

Facebook
Telefonspende