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

Степан Федин 20

Создал таблицу в Word, мне нужно разделить ее по строкам, чтобы каждая строка считалась отдельной таблицей, но при этом чтобы между ними не было пробела. То есть должна быть одна таблица, но строки у нее считаются как отдельные таблицы.

Комментариев: 0

Ответ, принятый автором вопроса

Kimberly Olaño 23,615

Yes there's a way to do that, and it requires turning off all auto width adjustment mechanisms. Make sure you don't miss a step below.

Click anywhere inside the table.

Go to Table Tools then Layout then AutoFit.

Make sure “Fixed Column Width” is selected.

If “AutoFit to Window” or “AutoFit to Contents” is selected, columns will still move when the page width changes.

Next is, right-click inside the table then Table Properties.

On the Table tab:
- Set a Preferred width (in cm or inches).
- Choose Measure in: Centimeters (not percent). Using percent makes width relative to window size.
Click Options... (bottom right) and ensure:
- “Automatically resize to fit contents” is unchecked.
- Cell margins are fixed (e.g., left/right: 0.19 cm default).
Click OK then OK.

This stops table and column scaling when the window or margins change.

Now, if certain columns still adjust:

Select those columns.

Right-click then Table Properties then Column tab.

Check Preferred width, enter a numeric value, and click OK.

This locks the exact column width and disables dynamic resizing at the cell level.

Комментариев: 0

Дополнительные ответы: 8

Kimberly Olaño 23,615 Баллы репутации

2025-11-06T04:02:23.7466667+00:00
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
Этот ответ помог вам?
Степан Федин 20 Баллы репутации

2025-11-06T15:44:20.4933333+00:00

Сделал все, как Вы написали, но проблема не решилась

Lutter 0 Баллы репутации

2026-06-16T07:14:04.9833333+00:00

namespace WpfApp.Models {     public class Customer     {         public string CustomerId { get; set; }         public string CompanyName { get; set; }         public string Inn { get; set; }         public string CompanyAddress { get; set; }         public string Phone { get; set; }     } } using System; using System.Collections.Generic; using System.Data.SqlClient; using WpfApp.Models;

namespace WpfApp.Database {     public class CustomerRepository     {         private string connectionString = @"Server=localhost;Database=YourDatabaseName;Integrated Security=true;";

        public List<Customer> GetAllCustomers()         {             List<Customer> customers = new List<Customer>();             string query = "SELECT customer_id, company_name, inn, company_address, phone FROM Customers";

            using (SqlConnection conn = new SqlConnection(connectionString))             {                 SqlCommand cmd = new SqlCommand(query, conn);                 conn.Open();                 SqlDataReader reader = cmd.ExecuteReader();

                while (reader.Read())                 {                     customers.Add(new Customer                     {                         CustomerId = reader["customer_id"].ToString(),                         CompanyName = reader["company_name"].ToString(),                         Inn = reader["inn"]?.ToString(),                         CompanyAddress = reader["company_address"]?.ToString(),                         Phone = reader["phone"]?.ToString()                     });                 }             }

            return customers;         }     } } <Window x:Class="WpfApp.MainWindow"         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"         Title="Заказчики" Height="450" Width="800">     <Grid Margin="10">         <Grid.RowDefinitions>             <RowDefinition Height="Auto"/>             <RowDefinition Height="*"/>             <RowDefinition Height="Auto"/>         </Grid.RowDefinitions>

        <TextBlock Text="Список заказчиков" FontSize="20" FontWeight="Bold" Margin="0,0,0,10"/>

        <DataGrid x:Name="CustomersGrid" Grid.Row="1" AutoGenerateColumns="True"                   IsReadOnly="True" Margin="0,10,0,10"/>

        <StackPanel Grid.Row="2" Orientation="Horizontal" HorizontalAlignment="Right">             <Button x:Name="LoadButton" Content="Загрузить данные" Width="120" Height="30" Click="LoadButton_Click"/>         </StackPanel>     </Grid> </Window> using System.Windows; using WpfApp.Database;

namespace WpfApp {     public partial class MainWindow : Window     {         private CustomerRepository customerRepository;

        public MainWindow()         {             InitializeComponent();             customerRepository = new CustomerRepository();         }

        private void LoadButton_Click(object sender, RoutedEventArgs e)         {             try             {                 CustomersGrid.ItemsSource = customerRepository.GetAllCustomers();             }             catch (System.Exception ex)             {                 MessageBox.Show($"Ошибка загрузки данных: {ex.Message}", "Ошибка",                               MessageBoxButton.OK, MessageBoxImage.Error);             }         }     } } <?xml version="1.0" encoding="utf-8"?> <configuration>     <connectionStrings>         <add name="DefaultConnection"              connectionString="Server=localhost;Database=YourDatabaseName;Integrated Security=true;"              providerName="System.Data.SqlClient"/>     </connectionStrings> </configuration> WpfApp.Database<?xml version="1.0" encoding="utf-8"?> <configuration>     <connectionStrings>         <add name="DefaultConnection"              connectionString="Server=localhost;Database=YourDatabaseName;Integrated Security=true;"              providerName="System.Data.SqlClient"/>     </connectionStrings> </configuration>using System; using System.Collections.Generic; using System.Configuration; using System.Data.SqlClient; using WpfApp.Models;

namespace WpfApp.Database {     public class CustomerRepository     {         private string connectionString;

        public CustomerRepository()         {             connectionString = ConfigurationManager.ConnectionStrings["DefaultConnection"].ConnectionString;         }

        public List<Customer> GetAllCustomers()         {             List<Customer> customers = new List<Customer>();             string query = "SELECT customer_id, company_name, inn, company_address, phone FROM Customers";

            try             {                 using (SqlConnection conn = new SqlConnection(connectionString))                 {                     SqlCommand cmd = new SqlCommand(query, conn);                     conn.Open();                     SqlDataReader reader = cmd.ExecuteReader();

                    while (reader.Read())                     {                         customers.Add(new Customer                         {                             CustomerId = reader["customer_id"]?.ToString() ?? "",                             CompanyName = reader["company_name"]?.ToString() ?? "",                             Inn = reader["inn"]?.ToString(),                             CompanyAddress = reader["company_address"]?.ToString(),                             Phone = reader["phone"]?.ToString()                         });                     }                 }             }             catch (Exception ex)             {                 throw new Exception($"Ошибка при получении данных: {ex.Message}");             }

            return customers;         }     } } <Window x:Class="WpfApp.MainWindow"         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"         Title="Заказчики" Height="450" Width="800">     <Grid Margin="10">         <Grid.RowDefinitions>             <RowDefinition Height="Auto"/>             <RowDefinition Height="Auto"/>             <RowDefinition Height="*"/>             <RowDefinition Height="Auto"/>         </Grid.RowDefinitions>

        <TextBlock Text="Список заказчиков" FontSize="20" FontWeight="Bold" Margin="0,0,0,10"/>

        <StackPanel Grid.Row="1" Orientation="Horizontal" Margin="0,0,0,10">             <TextBlock Text="Поиск:" VerticalAlignment="Center" Margin="0,0,10,0"/>             <TextBox x:Name="SearchBox" Width="200" TextChanged="SearchBox_TextChanged"/>             <Button x:Name="SearchButton" Content="Найти" Width="80" Height="25" Margin="10,0,0,0" Click="SearchButton_Click"/>         </StackPanel>

        <DataGrid x:Name="CustomersGrid" Grid.Row="2" AutoGenerateColumns="True"                   IsReadOnly="True" Margin="0,10,0,10"/>

        <StackPanel Grid.Row="3" Orientation="Horizontal" HorizontalAlignment="Right">             <Button x:Name="LoadButton" Content="Загрузить данные" Width="120" Height="30" Click="LoadButton_Click"/>             <Button x:Name="RefreshButton" Content="Обновить" Width="100" Height="30" Margin="10,0,0,0" Click="RefreshButton_Click"/>         </StackPanel>     </Grid> </Window> using System.Windows; using System.Windows.Controls; using WpfApp.Database;

namespace WpfApp {     public partial class MainWindow : Window     {         private CustomerRepository customerRepository;         private List<Customer> allCustomers;

        public MainWindow()         {             InitializeComponent();             customerRepository = new CustomerRepository();         }

        private void LoadButton_Click(object sender, RoutedEventArgs e)         {             try             {                 allCustomers = customerRepository.GetAllCustomers();                 CustomersGrid.ItemsSource = allCustomers;             }             catch (System.Exception ex)             {                 MessageBox.Show($"Ошибка загрузки данных: {ex.Message}", "Ошибка",                               MessageBoxButton.OK, MessageBoxImage.Error);             }         }

        private void RefreshButton_Click(object sender, RoutedEventArgs e)         {             LoadButton_Click(sender, e);         }

        private void SearchButton_Click(object sender, RoutedEventArgs e)         {             PerformSearch();         }

        private void SearchBox_TextChanged(object sender, TextChangedEventArgs e)         {             PerformSearch();         }

        private void PerformSearch()         {             if (allCustomers == null || string.IsNullOrWhiteSpace(SearchBox.Text))             {                 CustomersGrid.ItemsSource = allCustomers;                 return;             }

            string searchText = SearchBox.Text.ToLower();             var filtered = allCustomers.FindAll(c =>                 c.CompanyName.ToLower().Contains(searchText) ||                 c.CustomerId.ToLower().Contains(searchText) ||                 (c.Inn != null && c.Inn.Contains(searchText)) ||                 (c.Phone != null && c.Phone.Contains(searchText))             );

            CustomersGrid.ItemsSource = filtered;         }     } } System.Configuration.ConfigurationManager
Войти и оставить комментарий

В комментариях можно запросить пояснения, дополнительные сведения или уточнение вопроса.
Kimberly Olaño 23,615 Баллы репутации

2025-11-06T22:38:33.4433333+00:00
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”.
Этот ответ помог вам?
Степан Федин 20 Баллы репутации

2025-11-07T03:33:22.5866667+00:00

Сделал, как Вы написали, сохранил макрос в формате Normal.dotm. Как его применять?
Войти и оставить комментарий

В комментариях можно запросить пояснения, дополнительные сведения или уточнение вопроса.
Kimberly Olaño 23,615 Баллы репутации

2025-11-07T03:39:12.4+00:00

Click anywhere inside your table.

Go to Developer then Macros.

Select SplitTableIntoSingleRowTables.

Click Run.
Этот ответ помог вам?
Степан Федин 20 Баллы репутации

2025-11-07T03:43:15.61+00:00

Выдает ошибку: Run-time error '5991': отсутствует доступ к отдельным ячейкам, поскольку таблица имеет ячейки, объединенные по вертикали.
Войти и оставить комментарий

В комментариях можно запросить пояснения, дополнительные сведения или уточнение вопроса.
Kimberly Olaño 23,615 Баллы репутации

2025-11-07T03:47:10.3233333+00:00

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
Этот ответ помог вам?
Степан Федин 20 Баллы репутации

2025-11-07T04:22:06.96+00:00

Выдает ошибку: Next without For. Выделил Next i в конце кода. И Syntax error для continue for
Войти и оставить комментарий

В комментариях можно запросить пояснения, дополнительные сведения или уточнение вопроса.

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

Дополнительные ответы: 8

Ваш ответ