|
Hallo Raul,
leider habe ich kein Word 2010 zur Verfügung, aber zwei Tips have ich noch:
With appWord.Selection.Tables(1)
Borders.Enable = True
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
wenn das auch nicht hilft, kannst Du es noch probieren mit Makro - Aufzeichnen und das geht so:
Du kopierst die Tabelle in Word, dann aktivierst Du Extras - Makro - Aufzeichnen
Du fügst händisch einen Rahmen um die Tabelle unter Format - Rahmen und Schattierung
Dann schließt Du Extras - Makro - Aufzeichnung beenden
Der VBA - Code für die Aktion steht dann im VBE von Word unter Normal.dot
Grüße Lutz
|