Anzeige
Archiv - Navigation
1612to1616
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

In Word-Tabelle Eintrag Fett und dopp. unterstrich

In Word-Tabelle Eintrag Fett und dopp. unterstrich
12.03.2018 10:39:16
Oisse
Hallo Zusammen,
ich übertrage Rechnungsdaten aus Excel per Vba in ein Worddokument und dort auch in eine Tabelle.
In der letzten Tabellenzeile möchte ich nun, weil es die Gesamtsumme ist, die Werte Fett und doppelt unterstrichen darstellen.
Mein Code-schnipsel sieht so aus:

k = 1
'Tabelle mit der entsprechenden Textmarke wurde gefunden, die gesamte Tabelle wird daraufhin  _
als Range definiert
Set oTable = WordObj.ActiveDocument.Bookmarks("Leistung").Range.Tables(1)
With oTable     'WordObj.ActiveDocument.Tables(1)
.cell(k, 1) = Leistungsbeschr
.cell(k, 2) = Format(Netto, "#,##0.00 €")
.cell(k, 2).Range.ParagraphFormat.Alignment = 2             '2 ist rechtsbündig
.Rows(k).SetHeight RowHeight:=15, HeightRule:=wdRowHeightAtLeast
.Rows(k).Select
.Columns(2).SetWidth ColumnWidth:=220, RulerStyle:=wdAdjustNone
.cell(k + 1, 1) = Arr(0, 0)
.cell(k + 1, 1).Range.ParagraphFormat.Alignment = 2
.cell(k + 1, 2) = Format(Arr(1, 0), "#,##0.00 €")
.cell(k + 1, 2).Range.ParagraphFormat.Alignment = 2
.cell(k + 2, 1) = Arr(0, 1)
.cell(k + 2, 1).Range.ParagraphFormat.Alignment = 2
.cell(k + 2, 2) = Format(Arr(1, 1), "#,##0.00 €")
.cell(k + 2, 2).Range.ParagraphFormat.Alignment = 2
.cell(k + 4, 1) = Arr(0, 2)
.cell(k + 4, 1).Range.ParagraphFormat.Alignment = 2
.cell(k + 4, 1).Cells.Font.Bold = True
.cell(k + 4, 2) = Format(Arr(1, 2), "#,##0.00 €")
.cell(k + 4, 2).Range.ParagraphFormat.Alignment = 2
.cell(k + 4, 2).Cells.Font.Bold = True 'wdToggle        'funktioniert nicht
.cell(k + 4, 2).Cells.Font.Underline = wdUnderlineDouble 'funktioniert nicht
End With

Ich habe schon einiges ausprobiert, wie ihr seht, funktioniert aber nicht.
Wie muss hier der Code lauten, damit die Zellinhalte fett und doppelt unterstrichen dargestellt werden?
Danke für eure Hilfe
Gruß Oisse

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

Betreff
Datum
Anwender
Anzeige
AW: In Word-Tabelle Eintrag Fett und dopp. unterstrich
12.03.2018 13:33:47
Robert
Hallo Oisse,
versuche es mal statt mit dem Cells-Objekt mit dem Range-Objekt
.cell(k + 4, 2).Range.Font.Bold = True 'wdToggle
.cell(k + 4, 2).Range.Font.Underline = wdUnderlineDouble

Gruß
Robert
AW: In Word-Tabelle Eintrag Fett und dopp. unterstrich
12.03.2018 19:29:40
Oisse
Hallo Robert,
genau das war´s.
Hab vielen herzlichen Dank für Deine Hilfe.
Gruß
Oisse
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige