Moin Moin, liebe Community,

ich habe bei excel ein Button einfegügt, mit welchem ich ganz gerne ein leeres Word-Doc öffne und dort ein Macro ausführe.

Bzw. ich habe bei word ein Macro aufgezeichnet und wollte das bei excel - für den Button - schlicht einfügen. Klappt nicht :/

Kann mir iwer weiterhelfen ?

oder hat wer eine Idee wo ich einen Ansatz finde?

schon einmal ganz vielen dank

Gruß

Ps.: der angefügte Befehl ist meine Word-Excel combo

Sub Drucken_1()

Dim xlApp As Word.Application
Set xlApp = CreateObject("Word.Application")
    xlApp.Documents.Add
    xlApp.Visible = True
    
    
    Selection.TypeText Text:="DAFD GmbH"
    Selection.TypeParagraph
    Selection.TypeText Text:="Potsdamer Platz 2"
    Selection.TypeParagraph
    Selection.TypeBackspace
    Selection.TypeText Text:=", 10115 Berlin"
    Selection.TypeParagraph
    Selection.TypeText Text:="e-mail: office@dafd.com"
    Selection.TypeParagraph
    Selection.TypeText Text:="internet: https://www.dafd.com"
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=15
    Selection.TypeText Text:="    "
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "
    Selection.MoveUp Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveLeft Unit:=wdCharacter, Count:=9, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Shrink
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=18
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend
    Selection.Font.Shrink
    Selection.Font.Shrink
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=8, NumColumns:= _
        2, 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
    End With
    Selection.InlineShapes.AddPicture Filename:= _
        "C:\Users\Denis\Documents\Bachelor_FH-Stralsund_Host\AKTUELL\Logistik-BG\Dennis_logo(1).png" _
        , LinkToFile:=False, SaveWithDocument:=True
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.MoveUp Unit:=wdLine, Count:=7
    Selection.TypeText Text:=" "
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=4
    Selection.MoveUp Unit:=wdLine, Count:=3
    Selection.MoveLeft Unit:=wdCharacter, Count:=15
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Angebotsdatum:"
    Selection.TypeParagraph
    Application.Move Left:=512, Top:=0
    Selection.TypeText Text:="Gültigkeitsdatum:"
    Selection.TypeParagraph
    Selection.TypeText Text:="Kunden-Nr.:"
    Selection.TypeParagraph
    Selection.TypeText Text:="Bearbeiter:"
    Selection.TypeParagraph
    Selection.TypeText Text:="Telefon:"
    Selection.MoveUp Unit:=wdLine, Count:=5
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=8
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCell
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.MoveUp Unit:=wdLine, Count:=4
    Selection.MoveRight Unit:=wdCharacter, Count:=7
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=18
    Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.MoveUp Unit:=wdLine, Count:=5
    Selection.MoveDown Unit:=wdLine, Count:=5, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
    Application.WindowState = wdWindowStateMaximize
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=14
    Application.Move Left:=512, Top:=0
    Selection.TypeText Text:="    "
    Application.WindowState = wdWindowStateMaximize
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "CREATEDATE  ", PreserveFormatting:=True
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "CREATEDATE  \@ ""dd.MM.yyyy"" ", PreserveFormatting:=True
    Application.Move Left:=512, Top:=0
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="        0001"
    Selection.MoveLeft Unit:=wdCharacter, Count:=4
    Selection.TypeText Text:="      "
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=7
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="     D.Wachter"
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:=" 0170/7317777"
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
    Selection.MoveLeft Unit:=wdCharacter, Count:=12
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=4
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="       "
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="         "
    Selection.TypeParagraph
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeText Text:="            "
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Angebot-Nr.: "
    Application.WindowState = wdWindowStateMaximize
    Selection.TypeText Text:="2017 - 0001"
    Application.Move Left:=512, Top:=0
    Selection.MoveLeft Unit:=wdCharacter, Count:=31, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=24, Extend:=wdExtend
    Application.WindowState = wdWindowStateMaximize
    Selection.Font.Bold = wdToggle
    Application.Move Left:=512, Top:=0
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="Sehr geehrte Damen und Herren,"
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=29, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=25, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Shrink
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.TypeText Text:= _
        "gemäß Ihrer Anfrage unterbreiten wir Ihnen nachfolgendes Ang"
    Selection.TypeText Text:="ebot."
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.TypeText Text:="Buchung:"
    Selection.MoveRight Unit:=wdCell
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.TypeParagraph
    Selection.TypeText Text:="Preis"
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=8, Extend:=wdExtend
    Application.WindowState = wdWindowStateMaximize
    Application.Move Left:=-99, Top:=132
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    Application.Move Left:=-6, Top:=-6
    Application.Move Left:=-265, Top:=4
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=5
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=7
    Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.Shading.Texture = wdTextureNone
    Selection.Shading.ForegroundPatternColor = wdColorAutomatic
    Selection.Shading.BackgroundPatternColor = -671023309
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=9
    Selection.EndKey Unit:=wdLine
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.MoveRight Unit:=wdCharacter, Count:=5
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeText Text:="Netto"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Application.Move Left:=512, Top:=0
    Application.WindowState = wdWindowStateMaximize
    Options.DefaultBorderColor = -570359809
    Options.DefaultBorderColor = -603946753
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Application.Move Left:=-387, Top:=42
    Options.DefaultBorderColor = -603946753
    Options.DefaultBorderColor = -603946753
    Options.DefaultBorderColor = -603946753
    Options.DefaultBorderColor = -603946753
    Application.Move Left:=-6, Top:=-6
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Application.Move Left:=512, Top:=0
    Selection.TypeParagraph
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Zwischensumme"
    Selection.TypeParagraph
    Selection.TypeText Text:="USt 20%"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="Gesamtbetrag:"
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=13, Extend:=wdExtend
    Application.WindowState = wdWindowStateMaximize
    Selection.Font.Bold = wdToggle
    Application.Move Left:=512, Top:=0
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.TypeText Text:="Wir freuen uns über Ihre Buchungsanfrage "
    Selection.MoveLeft Unit:=wdCharacter, Count:=43
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.EndKey Unit:=wdLine
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeText Text:= _
        "Vielen Dank für Ihre Buchungsanfrage, wir hoffen Sie sind no"
    Selection.TypeText Text:= _
        "ch immer mit Ihrer Zusammenstellung zufrieden. Sollte dies n"
    Selection.TypeText Text:= _
        "icht der Fall sein, stehen wir Ihnen zu jeder Zeit auch tele"
    Selection.TypeText Text:="fonisch zur verfügung. "
    Selection.MoveLeft Unit:=wdCharacter, Count:=10
    Selection.TypeBackspace
    Selection.TypeText Text:="V"
    Selection.MoveRight Unit:=wdCharacter, Count:=11
    Selection.TypeBackspace
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:= _
        "Wir freuen uns Sie alsbald bei uns an Bord begrüßen zu dürfe"
    Selection.TypeText Text:="n"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="mit hanseatischen Grüßen,"
    Selection.TypeParagraph
    Selection.TypeText Text:="Ihr DAFD-Team"
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=14, Extend:=wdExtend
    Application.WindowState = wdWindowStateMaximize
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineSingle
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineNone
    Selection.TypeText Text:="________________"
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.MoveDown Unit:=wdLine, Count:=4
    Application.Move Left:=512, Top:=0
    Selection.TypeText Text:="Bankverbindung" & vbTab & "BIC" & vbTab & "IBAN" _
         & vbTab & "UID-Nr."
    Selection.MoveLeft Unit:=wdCharacter, Count:=8
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
    Selection.MoveLeft Unit:=wdCharacter, Count:=4
    Selection.TypeBackspace
    Selection.MoveLeft Unit:=wdCharacter, Count:=4
    Selection.Delete Unit:=wdCharacter, Count:=1
    ActiveWindow.ActivePane.HorizontalPercentScrolled = 4
    Selection.TypeText Text:="                       "
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="                                       "
    Selection.MoveRight Unit:=wdCharacter, Count:=6
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:="                                "
    Selection.MoveRight Unit:=wdCharacter, Count:=7
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.TypeParagraph
    Selection.TypeText Text:= _
        "Meine Bank                               ABCDEF1234         "
    Selection.TypeText Text:="            AT9JH80786A785478"
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeText Text:="         "
    Selection.MoveDown Unit:=wdLine, Count:=1
    ActiveWindow.ActivePane.HorizontalPercentScrolled = 25
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=7
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="            ATU1111112222"
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=131, Extend:=wdExtend
    Application.WindowState = wdWindowStateMaximize
    Selection.Font.Bold = wdToggle
End Sub