Перейти к содержимому

Как переместить подписи таблиц сверху вниз или наоборот в документе Word?

Author: Xiaoyang Last Modified: 2025-06-05

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

Перемещение подписей таблиц сверху вниз или наоборот в Word с помощью кода VBA


Перемещение подписей таблиц сверху вниз или наоборот в Word с помощью кода VBA

Чтобы переместить все подписи таблиц снизу наверх таблиц, следующий код VBA поможет вам — сделайте следующее:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий макрос в окно Модуля.

Перемещение подписей таблиц снизу наверх в документе Word

Sub ReLabelDownToUpTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngPre = .Characters.First.Previous.Characters.Last
                xRngPre.Select
                Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
                xRngNext.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, и все подписи таблиц будут перемещены снизу наверх таблиц, см. скриншот:

All table captions are moved from below to above

Примечание: Чтобы переместить подписи таблиц сверху вниз каждой таблицы, примените следующий код VBA:

Перемещение подписей таблиц сверху вниз в документе Word

Sub ReLabelUpToDownTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
                xRngNext.Select
                Set xRngPre = .Characters.Last.Next
                xRngPre.End = xRngPre.End - 1
                xRngPre.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

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

Обычно вы должны вставлять подписи к таблицам, изображениям или уравнениям по одному в файле Word. Но если у вас есть функция Множественные подписи в Kutools for Word, вы можете вставить подписи к таблицам, изображениям или уравнениям для всех таблиц, изображений или уравнений максимально быстро.

Batch Insert Captions

Kutools для Word — это идеальный надстройка для Word, которая упрощает вашу работу и повышает навыки обработки документов. Получите сейчас!

Лучшие инструменты для повышения продуктивности в офисе

Kutools для Word — расширьте возможности работы с Word с помощью более чем 100 уникальных функций!

🤖 Функции искусственного интеллекта Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалите лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для дополнительных инструментов удаления перейдите в группу Удалить...

Креативные вставки: Вставить разделители тысяч / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Быстро находите нужные страницы / Таблицы / Фигуры / Абзацы заголовка / Улучшайте навигацию с помощью дополнительных функций Выбрать...

Особые улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов для преобразования...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите опробовать эти функции? Скачайте Kutools для Word прямо сейчас! 🚀