Можно ли разделить таблицу на несколько частей по строкам без пробелов между ними в Word

Thanks for sharing the details, Степан! Yes you can do that manually.

Click in the row where you want to split the table.

On the Layout tab (under Table Tools), click Split Table.

• Word will separate the table into two tables.

You’ll now see a tiny blank paragraph (¶) between the tables, this creates a visual gap.

Turn on ¶ marks (Ctrl + Shift + 8) so you can see it.

Select and delete that empty paragraph mark.

Once deleted, the two tables will touch directly, no visual space, even though they’re separate tables.

Repeat steps 1–5 for each row.

You’ll have multiple one-row tables that appear to form one continuous table.

See if this helps. If you need further assistance just let me know.

Best regards,

Kimberly

It seems better to automate it, practically for large tables. Try this:

Enable the Developer tab if you don’t see it

• In Word, go to File then Options.
• Click Customize Ribbon on the left.
• On the right side, check Developer, then click OK. You’ll now see a Developer tab at the top.

Then open the VBA editor

• Go to the Developer tab.
• Click Visual Basic (far left), or press Alt + F11 on your keyboard.

Create a new module

• In the VBA window, click Insert then Module.
• A blank code window will appear.

Copy this code and paste it into the module window:

Sub SplitTableIntoSingleRowTables()

Dim tbl As Table, rw As Row, i As Long

Set tbl = Selection.Tables(1)

For i = tbl.Rows.Count - 1 To 1 Step -1

tbl.Rows(i).Select

Selection.SplitTable

Selection.MoveDown Unit:=wdLine, Count:=1

If Selection.Paragraphs.Count > 0 Then

Selection.Delete

End If

Next i

End Sub

Press Ctrl + S to save.

Close the VBA window (press Alt + Q or click the X).

When Word asks where to save it:

• If you want the macro to be available in all documents, save it in Normal.dotm (the default template).
• If you only need it for this document, save it in “This Document”.

Click anywhere inside your table.

Go to Developer then Macros.

Select SplitTableIntoSingleRowTables.

Click Run.

Replace it with this code, it skips vertically joined rows.

Sub SplitTableIntoSingleRowTables_Safe()

Dim tbl As Table, rw As Row, i As Long

On Error Resume Next

Set tbl = Selection.Tables(1)

On Error GoTo 0

If tbl Is Nothing Then

MsgBox "Please place the cursor inside a table first."

Exit Sub

End If

For i = tbl.Rows.Count - 1 To 1 Step -1

On Error Resume Next

tbl.Rows(i).Select

If Err.Number = 5991 Then

Err.Clear

' Skip rows with merged cells

Continue For

End If

Selection.SplitTable

Selection.MoveDown Unit:=wdLine, Count:=1

If Selection.Paragraphs.Count > 0 Then Selection.Delete

On Error GoTo 0

Next i

MsgBox "Done! Rows with vertical merges were skipped."

End Sub