Можно ли разделить таблицу на несколько частей по строкам без пробелов между ними в 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-07T04:29:11.5633333+00:00

Okay, let's replace continue for, that's causing the error.

Sub SplitTableIntoSingleRowTables_Safe()

Dim tbl As Table

Dim 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 the table you want to split.", vbExclamation

Exit Sub

End If

' Loop from bottom row up to the second row (we keep the top as the last table head)

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

On Error GoTo SkipRow ' If an error occurs (e.g. merged cells) jump to SkipRow

tbl.Rows(i).Select

Selection.SplitTable

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

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

On Error GoTo 0 ' Clear error handler for the normal path

ContinueLoop:

Next i

MsgBox "Done! Rows that could not be split (merged vertically) were skipped.", vbInformation

Exit Sub

SkipRow:

' Clear the error and resume at the label just before Next i

Err.Clear

On Error GoTo 0

Resume ContinueLoop

End Sub

Reminder, place your cursor inside the table you want to split before running the macro.
Этот ответ помог вам?
Степан Федин 20 Баллы репутации

2025-11-07T04:40:50.9233333+00:00

Ошибок нет, макрос работает, но таблица опускается вниз, а не разделяется по строкам, сверху появляется знак абзаца
Войти и оставить комментарий

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

2025-11-07T05:06:25.93+00:00

You may have to manually remove those merged rows manually so everything row is on a different line.
Этот ответ помог вам?
Степан Федин 20 Баллы репутации

2025-11-07T05:10:58.71+00:00

Тогда задам другой вопрос: почему при изменении ширины ячеек вручную одновременно меняется ширина других ячеек? И у некоторых невозможно отредактировать ширину, она автоматически возвращается к исходному значению. Дело не в автоподборе ширины ячейки по содержимому, эта функция отключена.
Войти и оставить комментарий

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

2025-11-07T05:16:16.0166667+00:00
Technically, here are the answers:
- Word tables have a fixed total width. When you resize one column, Word adjusts neighboring columns to keep the table’s total width constant.
- AutoFit is usually enabled. With AutoFit on, Word automatically resizes columns and cells based on content or window size, overriding manual adjustments.
- Merged cells lock certain widths. If a cell spans multiple columns, Word preserves its combined width, so manual resizing snaps back.
Этот ответ помог вам?
Степан Федин 20 Баллы репутации

2025-11-07T05:19:31.68+00:00

Как отключить это автоматическое изменение размеров ячейки в зависимости от содержимого или окна, если автоподбор по содержимому уже отключен?
Войти и оставить комментарий

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

Lutter 0

I would like do this 
// CREATE TABLE Categories (
//     Id INT PRIMARY KEY IDENTITY(1,1),
//     Name NVARCHAR(100) NOT NULL UNIQUE
// );
//
// CREATE TABLE Manufacturers (
//     Id INT PRIMARY KEY IDENTITY(1,1),
//     Name NVARCHAR(100) NOT NULL UNIQUE
// );
//
// CREATE TABLE Products (
//     Id INT PRIMARY KEY IDENTITY(1,1),
//     Name NVARCHAR(200) NOT NULL,
//     Description NVARCHAR(MAX),
//     Price DECIMAL(18,2) NOT NULL CHECK (Price >= 0),
//     Stock INT NOT NULL CHECK (Stock >= 0),
//     Discount INT NOT NULL DEFAULT 0 CHECK (Discount BETWEEN 0 AND 100),
//     ImagePath NVARCHAR(500),
//     CategoryId INT NOT NULL FOREIGN KEY REFERENCES Categories(Id),
//     ManufacturerId INT NOT NULL FOREIGN KEY REFERENCES Manufacturers(Id)
// );
//
// CREATE TABLE Users (
//     Id INT PRIMARY KEY IDENTITY(1,1),
//     Login NVARCHAR(50) NOT NULL UNIQUE,
//     Password NVARCHAR(100) NOT NULL,
//     FullName NVARCHAR(200) NOT NULL,
//     Role NVARCHAR(50) NOT NULL CHECK (Role IN ('Администратор', 'Менеджер', 'Клиент')),
//     IsBlocked BIT NOT NULL DEFAULT 0
// );
//
// CREATE TABLE Orders (
//     Id INT PRIMARY KEY IDENTITY(1,1),
//     OrderDate DATETIME NOT NULL DEFAULT GETDATE(),
//     PickupDate DATETIME,
//     Status NVARCHAR(50) NOT NULL DEFAULT 'Новый',
//     PickupAddress NVARCHAR(500),
//     UserId INT NOT NULL FOREIGN KEY REFERENCES Users(Id)
// );
//
// CREATE TABLE OrderItems (
//     Id INT PRIMARY KEY IDENTITY(1,1),
//     OrderId INT NOT NULL FOREIGN KEY REFERENCES Orders(Id),
//     ProductId INT NOT NULL FOREIGN KEY REFERENCES Products(Id),
//     Quantity INT NOT NULL CHECK (Quantity > 0)
// );
//
// -- Вставка начальных данных
// INSERT INTO Categories (Name) VALUES ('Кроссовки'), ('Ботинки'), ('Сандалии');
// INSERT INTO Manufacturers (Name) VALUES ('Nike'), ('Adidas'), ('Reebok');
// INSERT INTO Users (Login, Password, FullName, Role) VALUES
// ('admin', 'admin123', 'Администратор', 'Администратор'),
// ('manager', 'manager123', 'Менеджер Иванов', 'Менеджер'),
// ('user', 'user123', 'Клиент Петров', 'Клиент');

Lutter 0

1.

CREATE TABLE Customers (

customer_id NVARCHAR(50) PRIMARY KEY,

company_name NVARCHAR(255) NOT NULL,

inn NVARCHAR(20) NULL,

company_address NVARCHAR(500) NULL,

phone NVARCHAR(50) NULL

);

-- 2. Таблица Материалы

CREATE TABLE Materials (

material_id INT IDENTITY(1,1) PRIMARY KEY,

material_name NVARCHAR(255) NOT NULL,

material_cost DECIMAL(10,2) NOT NULL DEFAULT 0.00

);

-- 3. Таблица Продукция

CREATE TABLE Products (

product_id INT IDENTITY(1,1) PRIMARY KEY,

product_name NVARCHAR(255) NOT NULL,

price DECIMAL(10,2) NOT NULL DEFAULT 0.00

);

-- 4. Таблица Спецификации (Связь Многие-ко-Многим между Продукцией и Материалами)

CREATE TABLE Specifications (

product_id INT NOT NULL,

material_id INT NOT NULL,

quantity DECIMAL(10,3) NOT NULL, -- Количество материала (например, 0.900 кг)

PRIMARY KEY (product_id, material_id),

FOREIGN KEY (product_id) REFERENCES Products(product_id) ON DELETE CASCADE,

FOREIGN KEY (material_id) REFERENCES Materials(material_id) ON DELETE CASCADE

);

-- 5. Таблица Заказы (Реализация продукции заказчикам)

CREATE TABLE Orders (

order_id INT IDENTITY(1,1) PRIMARY KEY,

customer_id NVARCHAR(50) NOT NULL,

product_id INT NOT NULL,

quantity INT NOT NULL CHECK (quantity > 0),

order_date DATE NOT NULL DEFAULT GETDATE(),

FOREIGN KEY (customer_id) REFERENCES Customers(customer_id),

FOREIGN KEY (product_id) REFERENCES Products(product_id)

);

2.

DELETE FROM Orders;

DELETE FROM Customers;

DECLARE @BinaryData VARBINARY(MAX);

DECLARE @JsonText NVARCHAR(MAX);

SELECT @BinaryData = BulkColumn

FROM OPENROWSET (BULK 'C:\Заказчики.json', SINGLE_BLOB) as j;

SET @JsonText = CONVERT(NVARCHAR(MAX), @BinaryData, 65001);

SET @JsonText = SUBSTRING(@JsonText, CHARINDEX('[', @JsonText), LEN(@JsonText));

INSERT INTO Customers (customer_id, company_name, inn, company_address, phone)

SELECT

id, 

name, 

NULLIF(inn, '') AS inn, 

addres, 

phone

FROM OPENJSON(@JsonText)

WITH (

id NVARCHAR(50) '$.id',

name NVARCHAR(255) '$.name',

inn NVARCHAR(20) '$.inn',

addres NVARCHAR(500) '$.addres',

phone NVARCHAR(50) '$.phone'

);

SELECT * FROM Customers;

3.

SELECT

O.order_id AS [Номер заказа],

C.company_name AS [Заказчик],

P.product_name AS [Наименование продукции],

O.quantity AS [Кол-во в заказе (шт)],



-- Считаем стоимость материалов на 1 шт. продукции (если рецепта нет, выведем 0)

ISNULL(SUM(S.quantity * M.material_cost), 0) AS [Стоимость материалов на 1 шт (руб)],



-- Считаем ПОЛНУЮ стоимость материалов на весь заказ (Кол-во * Расход * Цена сырья)

O.quantity * ISNULL(SUM(S.quantity * M.material_cost), 0) AS [ПОЛНАЯ стоимость материалов на заказ (руб)]

FROM Orders O

JOIN Customers C ON O.customer_id = C.customer_id

JOIN Products P ON O.product_id = P.product_id

-- Используем LEFT JOIN, чтобы запрос не скрывал заказы, даже если для них еще не занесена спецификация!

LEFT JOIN Specifications S ON P.product_id = S.product_id

LEFT JOIN Materials M ON S.material_id = M.material_id

GROUP BY O.order_id, C.company_name, P.product_name, O.quantity;

                           перед тем как этот надо это:

-- Добавим рецепт для Кефира 2,5% (например, идет 0.95 кг нормализованного молока)

INSERT INTO Specifications (product_id, material_id, quantity)

VALUES (

(SELECT product_id FROM Products WHERE product_name = N'Кефир 2,5% 900г.'),

(SELECT material_id FROM Materials WHERE material_name = N'Молоко нормализованное'),

0.950

);

-- Добавим рецепт для Молока 2,5% (идет 0.91 кг нормализованного молока)

INSERT INTO Specifications (product_id, material_id, quantity)

VALUES (

(SELECT product_id FROM Products WHERE product_name = N'Молоко 2,5% 900г.'),

(SELECT material_id FROM Materials WHERE material_name = N'Молоко нормализованное'),

0.910

);

Lutter 0

-- 1. Таблица Заказчики

CREATE TABLE Customers (

customer_id NVARCHAR(50) PRIMARY KEY,

company_name NVARCHAR(255) NOT NULL,

inn NVARCHAR(20) NULL,

company_address NVARCHAR(500) NULL,

phone NVARCHAR(50) NULL

);

-- 2. Таблица Материалы

CREATE TABLE Materials (

material_id INT IDENTITY(1,1) PRIMARY KEY,

material_name NVARCHAR(255) NOT NULL,

material_cost DECIMAL(10,2) NOT NULL DEFAULT 0.00

);

-- 3. Таблица Продукция

CREATE TABLE Products (

product_id INT IDENTITY(1,1) PRIMARY KEY,

product_name NVARCHAR(255) NOT NULL,

price DECIMAL(10,2) NOT NULL DEFAULT 0.00

);

-- 4. Таблица Спецификации (Связь Многие-ко-Многим между Продукцией и Материалами)

CREATE TABLE Specifications (

product_id INT NOT NULL,

material_id INT NOT NULL,

quantity DECIMAL(10,3) NOT NULL, -- Количество материала (например, 0.900 кг)

PRIMARY KEY (product_id, material_id),

FOREIGN KEY (product_id) REFERENCES Products(product_id) ON DELETE CASCADE,

FOREIGN KEY (material_id) REFERENCES Materials(material_id) ON DELETE CASCADE

);

-- 5. Таблица Заказы (Реализация продукции заказчикам)

CREATE TABLE Orders (

order_id INT IDENTITY(1,1) PRIMARY KEY,

customer_id NVARCHAR(50) NOT NULL,

product_id INT NOT NULL,

quantity INT NOT NULL CHECK (quantity > 0),

order_date DATE NOT NULL DEFAULT GETDATE(),

FOREIGN KEY (customer_id) REFERENCES Customers(customer_id),

FOREIGN KEY (product_id) REFERENCES Products(product_id)

);

-- Очистка таблиц перед загрузкой

DELETE FROM Orders;

DELETE FROM Customers;

-- Загрузка данных из JSON-файла (без поля phone)

DECLARE @BinaryData VARBINARY(MAX);

DECLARE @JsonText NVARCHAR(MAX);

SELECT @BinaryData = BulkColumn

FROM OPENROWSET (BULK 'C:\Заказчики.json', SINGLE_BLOB) as j;

SET @JsonText = CONVERT(NVARCHAR(MAX), @BinaryData, 65001);

SET @JsonText = SUBSTRING(@JsonText, CHARINDEX('[', @JsonText), LEN(@JsonText));

INSERT INTO Customers (customer_id, company_name, inn, company_address)

SELECT

id, 

name, 

NULLIF(inn, '') AS inn, 

addres

FROM OPENJSON(@JsonText)

WITH (

id NVARCHAR(50) '$.id',

name NVARCHAR(255) '$.name',

inn NVARCHAR(20) '$.inn',

addres NVARCHAR(500) '$.addres'

);

-- Проверка загруженных данных

SELECT * FROM Customers;

-- Добавление материалов

INSERT INTO Materials (material_name, material_cost) VALUES

(N'Молоко нормализованное', 45.00);

-- Добавление продукции

INSERT INTO Products (product_name, price) VALUES

(N'Кефир 2,5% 900г.', 75.00),

(N'Молоко 2,5% 900г.', 70.00);

-- Добавление рецептов

INSERT INTO Specifications (product_id, material_id, quantity)

VALUES (

(SELECT product_id FROM Products WHERE product_name = N'Кефир 2,5% 900г.'),

(SELECT material_id FROM Materials WHERE material_name = N'Молоко нормализованное'),

0.950

);

INSERT INTO Specifications (product_id, material_id, quantity)

VALUES (

(SELECT product_id FROM Products WHERE product_name = N'Молоко 2,5% 900г.'),

(SELECT material_id FROM Materials WHERE material_name = N'Молоко нормализованное'),

0.910

);

-- Запрос с расчетом стоимости материалов по заказам

SELECT

O.order_id AS [Номер заказа],

C.company_name AS [Заказчик],

P.product_name AS [Наименование продукции],

O.quantity AS [Кол-во в заказе (шт)],



-- Считаем стоимость материалов на 1 шт. продукции (если рецепта нет, выведем 0)

ISNULL(SUM(S.quantity * M.material_cost), 0) AS [Стоимость материалов на 1 шт (руб)],



-- Считаем ПОЛНУЮ стоимость материалов на весь заказ (Кол-во * Расход * Цена сырья)

O.quantity * ISNULL(SUM(S.quantity * M.material_cost), 0) AS [ПОЛНАЯ стоимость материалов на заказ (руб)]

FROM Orders O

JOIN Customers C ON O.customer_id = C.customer_id

JOIN Products P ON O.product_id = P.product_id

LEFT JOIN Specifications S ON P.product_id = S.product_id

LEFT JOIN Materials M ON S.material_id = M.material_id

GROUP BY O.order_id, C.company_name, P.product_name, O.quantity;

INSERT INTO Customers (customer_id, company_name, inn, company_address, phone)

SELECT

id, 

name, 

NULLIF(inn, '') AS inn, 

addres,

telephone

FROM OPENJSON(@JsonText)

WITH (

id NVARCHAR(50) '$.id',

name NVARCHAR(255) '$.name',

inn NVARCHAR(20) '$.inn',

addres NVARCHAR(500) '$.addres',

telephone NVARCHAR(50) '$.telephone'

);

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

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

Ваш ответ