Zurück zu den Tipps

In Word mit VBA vertical verbundene Zellen trennen (Makro)

Nachfolgendes Script (ausführbar über Makroname V_ZelleTeilen) markiert die aktuell selektierte Zelle in der Tabelle, prüft, ob es eine vertical (von oben nach unten) gespannte/verbundene Zelle aus mehreren Zeilen ist.
Ist dies der Fall, trennt es die Zelle in der Anzahl der gesamten verbundenen Zeilen auf.

Sub V_ZelleTeilen()

    If Selection.Information(wdWithInTable) Then

        Dim AnzGespannterZeilen As Integer
        Selection.Cells(1).Select
        AnzGespannterZeilen = Selection.Information(wdEndOfRangeRowNumber) - Selection.Information(wdStartOfRangeRowNumber) + 1

        If AnzGespannterZeilen > 1 Then
            Selection.Cells.Split NumRows:=AnzGespannterZeilen, NumColumns:=1, MergeBeforeSplit:=False
        Else
            MsgBox "Die Zelle, in welcher sich der Cursor befindet ist nicht vertical gespannt!"
        End If

    Else
        MsgBox "Der Cursor muss sich in einer Tabellen-Zelle befinden, in der mehrere Zeilen verbunden sind!"
    End If

End Sub