Hallo zusammen,
habe folgendes Problem:
Ich habe eine Teileliste in der die Überschriften mehrspaltig sein müssen.
Dafür gibt es ein Makro, welches bei einem "~" Zeichen
einen Zeilenumbruch einfügt und das "~" Zeichen anschließend löscht.
Hier ist es:
Public Sub SplitHeaderCustomTable()
Const max_wrap = 3
Dim odrawdoc As DrawingDocument
Set odrawdoc = ThisApplication.ActiveDocument
Dim osheet As Sheet
Set osheet = odrawdoc.ActiveSheet
Dim oGenericTable As CustomTable
Set oGenericTable = osheet.CustomTables.Item(1)
Dim oColumn As Column
For Each oColumn In oGenericTable.Columns
Dim strarray() As String
strarray = Split(oColumn.Title, "~")
oColumn.Title = strarray(0)
Dim i As Integer
For i = 0 To UBound(strarray)
If i > 0 And i <= max_wrap Then
oColumn.Title = oColumn.Title & Chr(13) & Chr(10) & strarray(i)
End If
If i > max_wrap Then
oColumn.Title = oColumn.Title & " " & strarray(i)
End If
Next i
Next oColumn
End Sub
Mit diesem Makro sollte es klappen.
Habe es von diesem Link:
http://inventorfaq.blogspot.de/2013/03/zeichnung-uberschriften-in-einer.html?utm_source=feedburner&utm_medium=email&utm_campaign=Feed:+inventorfaq+(Inventor+FAQ)
Leider scheint in Zeile 8 ein Fehler zu sein! Zumindest läuft es leider nicht durch!
Kennt sich jemand mit sowas aus?
Habe keine Ahnung was man da machen kann.
Würde es aber sehr gut gebrauchen können.
Dank im Voraus
------------------
Gruß Georg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP