Anzeige
Archiv - Navigation
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Word-Tabelle mittels Excel-VBA formatier

Word-Tabelle mittels Excel-VBA formatier
27.02.2023 20:52:30
Christoph
Hallo zusammen,
bisher konnte ich meine VBA-Fragen immer durch Recherche hier im Forum klären. Vielen Dank hierfür erstmal!
Jetzt komme ich aber leider nicht weiter. Ich möchte aus einem Excel-Arbeitsblatt die resultierenden Werte stumpf in eine Tabelle einer Word Vorlage kopieren. Das kopieren klappt ohne Probleme. Bei Bestimmten Zeilen möchte ich in der Tabelle im Word-Dokument eine Rahmenlinie einfügen. Mit folgendem Code passiert aber schlicht nichts. Das Ansprechen der Zeilen über Select hätte ich auch gerne umgangen, jedoch klappten Versuche mit Range nicht.
Vielen Dank im Voraus für Eure Hilfe!
Viele Grüße
Christoph
Anbei mein bisheriger Code:

 wdDok.Tables(1).Rows(ii).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
        .LineStyle = wdContinuous
        .ThemeColor = 1
        .TintAndShade = -0.25
        .Weight = wdThin
End With

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word-Tabelle mittels Excel-VBA formatier
28.02.2023 07:31:59
ralf_b
die erste Tabelle im Aktiven Dokument rechte und linke Rahmenseite
With ActiveDocument.Tables(1).Borders(wdBorderLeft)
        .LineStyle = wdLineStyleDashDot ' wdLineStyleSingle
        .LineWidth = wdLineWidth100pt
        .Color = -721354753
    End With
    With ActiveDocument.Tables(1).Borders(wdBorderRight)
        .LineStyle = wdLineStyleDashDot ' wdLineStyleSingle
        .LineWidth = wdLineWidth100pt
        .Color = -721354753
    End With

AW: Word-Tabelle mittels Excel-VBA formatier
28.02.2023 21:12:54
Christoph
Vielen Dank! So klappt es.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige