Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Вставьте несколько заголовков таблиц, рисунков или формул в документ Word одновременно:

Как правило, вы должны вставить таблицу, рисунок или заголовок уравнения для таблицы, изображения или уравнения один за другим в файл Word. Но если у вас есть Кутолс для слова's Несколько титров Функция, вы можете вставить таблицу, изображение или заголовки уравнений для всех таблиц, изображений или уравнений как можно быстрее.

переместить заголовок таблицы документа 2

Kutools for Word: с более чем 100 удобными надстройками Word, бесплатно попробовать без ограничений в 60-дни. Нажмите, чтобы загрузить и бесплатно пробную версию!


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

переместить заголовок таблицы документа 1

Внимание: Чтобы переместить заголовки таблицы сверху вниз для каждой таблицы, пожалуйста, используйте следующий код 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

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.