Office: Kasten mit einem Klick auflösen

Liebe ExpertInnen,

ich habe von meinem Verlag ein Manuskript zum Lektorieren bekommen, das voller Kästen ist. Die Autorin hat alles Mögliche statt in einen Fließtext in so einen Kasten getan.
Es handelt sich um diese komische Kastenart, wo über der oberen Abgrenzungslinie ein Symbol für "Drehen" erscheint, wenn man draufklickt (unten Beispiel). Ich muss den Inhalt jedesmal mühsam mit Strg + C rauskopieren und in den normalen Fließtext einfügen, wobei man aufpassen muss, ob die Anordnungen korrekt sind, z.B. wenn nicht nur Text in dem Kasten ist, sondern auch eine Abbildung oder sogar mehrere Abbildungen in einem Kasten - also Kästen in dem ganzen Kasten.

Kennt jemand eine Möglichkeit bei Word, mit einem Klick den Kasten aufzulösen? Sodass der Inhalt normal auf der Seite zurückbleibt. Ich habe lange gesucht und auch den Verlag gefragt, ob sie eine Lösung kennen, haben sie aber nicht. (Zu meinem Lektoratsauftrag gehört auch das Formatieren, sonst würde ich das so stehen lassen.)

Viele Grüße
Mihrican

 

Diese "Kästen" sind Textfelder, und ich würde mich an Deiner Stelle weigern, so ein Manuskript anzunehmen. Soll bitte die Autorin ein gescheites Manuskript nach Verlagsvorgaben abliefern.
Mit VBA ließe sich da was machen, aber auch nur mit aufwendigen Nacharbeiten, also auch keine einfache Lösung.

Gruß
G. O.

 

Hallo Mihrican,

ich fürchte, ich muss meinem Vorredner recht geben.

Du kannst ja mal einen Versuch per untigem Makro machen. Aber teste es an einer Kopie des Dokumentes und erstmal nur an einem Teil davon.

Die Unwägbarkeiten an diesem Verfahren sind:

• Wo ist der Anker? Das ist der Absatz, an dem das Textfeld "hängt". Wenn das direkt neben der rechten oberen Ecke des Textfeldes zu sehen ist (wie in deinem Screenshot), mag das vielleicht gut gehen, aber der Anker kann irgendwo entfernt vom Textfeld positioniert sein, und dann wird der Text dort eingefügt.
• Steht hinter dem Textfeld noch Text? So scheint es bei deinem Screenshot zu sein). Dann ist sehr unwahrscheinlich, dass der Inhalt des Textfeldes dort eingefügt wird, wo der Autor es vermutlich haben wollte.

Kurz: Wenn das Makro nicht völliges Chaos produziert, wird dir noch einiges an Handarbeit bleiben.
Ich täts nicht machen müssen wollen.

Code:

Sub textfeld()
Dim anker As Range
Dim i As Long

With ActiveDocument
  
    For i = ActiveDocument.Shapes.Count To 1 Step -1
        
        'wenn das Element ein Textfeld ist
        If .Shapes(i).Type = msoTextBox Then
            
            'die Verankerungsstelle des Textfeldes als Einfügestelle merken
            Set anker = .Shapes(i).Anchor
            
            'Text und eventuelle Bilder aus der Textbox ausschneiden
            .Shapes(i).TextFrame.TextRange.Cut
            
            'leeres Textfeld löschen
            Shapes(i).Delete
            
            'Text am ehemaligen Anker einfügen
            anker.Paste
        End If
    Next i

End With
End Sub

 

Lieber Tuhls, lieber Gerhard,

vielen Dank. Dann weiß ich jetzt, dass es nicht so ohne Weitere geht. Inhalt kopieren und in Fließtext einfügen bliebt dann als Option. Meine Mehrarbeit muss dann entsprechend bezahlt werden.

Grüße
Mihrican