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

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

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

---

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

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

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

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, чтобы запустить этот код. Все подписи таблиц переместятся снизу наверх таблиц. См. снимок экрана:

Примечание: Чтобы переместить Подпись таблицы сверху вниз каждой таблицы, используйте следующий код 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’s Множественные подписи вы сможете добавить подписи ко всем таблицам, изображениям или формулам за считанные секунды! Хотите быстрее справляться с похожими задачами в Word? Попробуйте Kutools для Word и сделайте свою повседневную работу проще! СкачатьПодробнее