Word nervt auch:
Hallo Rene,
wenn du kurz Zeit für mich hättest. Ich habe ein kleines Problem mit Word: Wie bringe ich den blöden Bindestrich weg?
VG
Robert
#####
Hallo Robert,
es ist perfide:
Du schreibst mit VBA den Inhalt eines Textbausteins nach Word an eine Textmarke:
Set wdAD = ActiveDocument
[…]
wdAD.AttachedTemplate.AutoTextEntries(„Abstufung2“).Insert _
Where:=wdAD.Bookmarks(„Abstufung“).Range
Der Absatz, in dem sich die Textmarke „Abstufung“ befindet, ist korrekt formatiert.
![](http://www.excel-nervt.de/wp-content/uploads/2018/03/20180326WordFormat01-300x197.png)
Der Textbaustein „Abstufung2“ ist korrekt formatiert.
![](http://www.excel-nervt.de/wp-content/uploads/2018/03/20180326WordFormat02-300x58.png)
In dem Moment, wenn der Textbaustein an die Textmarke (ohne Formatierung) eingefügt wird, wird eine Formatierung eingeschaltet: hängender Einzug, Aufzählungszeichen mit Tabulator.
![](http://www.excel-nervt.de/wp-content/uploads/2018/03/20180326WordFormat03-300x77.png)
Wenn ich den Textbaustein mit (seiner korrekten) Formatierung einfüge, ist alles paletti:
wdAD.AttachedTemplate.AutoTextEntries(„Abstufung2“).Insert _
Where:=wdAD.Bookmarks(„Abstufung“).Range, RichText:=True
Blöde allerdings, dass er nun die Linien mit übernimmt.
Lösung: entweder Textbaustein neu anlegen oder rausformatieren:
With wdAD.Tables(2)
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
End With
schau es dir mal an
Liebe Grüße
Rene
########
Hallo Rene,
ich versteh das Ganze aber immer noch nicht, aber egal es funktioniert.
Vielen Dank für Deine Hilfe.
PS: Hab das Mail bzgl. der Excellent Days weitergeleitet an unsere IT Abteilung.
VG
Robert