Zeichnung: Überschriften in einer Tabelle umbrechen

Ich habe eine recht einfache Frage bekommen: Wie kann ich die Überschriften in einer normalen IDW Tabelle umbrechen, das sie z.B. so aussieht:

Ich habe leider keine Möglichkeit gefunden, das einfach "mal schnell" zu machen sondern nur eine Möglichkeit über VBA. Das ist zu tun:

1. Tabelle erstellen
2. Die Überschriften so schreiben, das dort wo der Umbruch kommen soll eine ~ steht, also z.B. Zeile 1~Zeile 2~Zeile 3
   
   
   
3. Das folgende Makro herunterladen und in den VBA-Editor einfügen und ausführen. (Wie du ein Makro in Inventor ausführst habe ich u.a. hier beschrieben)
   
   
   Das Makro fügt an alle Stellen, wo in der Überschrift eine Tilde ist (~) ist, einen Zeilenumbruch ein und entfernt die ~.

Jemand eine bessere Lösung?

[Quelle des Originalquelltextes, der von mir leicht modifiziert wurde)