Як перемістити заголовки таблиць зверху вниз або навпаки в документі Word?
У документі Word, якщо є кілька таблиць, які під кожною таблицею вставили заголовки. Але іноді вам може знадобитися перемістити ці підписи знизу вгорі таблиць. Як ви могли пакетно впоратися з цією роботою якомога швидше?
Перемістіть заголовки таблиць знизу зверху або навпаки у програмі Word за допомогою коду VBA
Перемістіть заголовки таблиць знизу зверху або навпаки у програмі Word за допомогою коду VBA
Щоб перемістити всі заголовки таблиць знизу вгорі таблиць, вам послужить такий код VBA, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний макрос у вікно модуля.
Перемістіть заголовки таблиць знизу вгору в документі 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. Але, якщо є Кутоли для Word's Кілька підписів Ви можете якомога швидше вставити підписи до таблиці, зображення чи рівняння для всіх таблиць, зображень чи рівнянь. Kutools для Word: з більш ніж 100 зручними надбудовами Word, спробуйте безкоштовно без обмежень протягом 60 днів. Клацніть, щоб завантажити та безкоштовну пробну версію зараз! |
Найкращі інструменти продуктивності офісу
Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!
🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту / Переписати текст / Узагальнити документи / Звертайтеся за інформацією на основі Документа, все в Word
📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF / Експортувати сторінки як зображення / Друк кількох файлів одночасно...
✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами / Змінити розмір усіх зображень / Транспонування рядків і стовпців таблиці / Перетворити таблицю в текст...
🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Усі заголовки / Текстові поля / Гіперпосилання / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...
➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Таблиця діагональних ліній / Заголовок рівняння / Підпис зображення / Заголовок таблиці / Кілька зображень / Дізнайтеся більше в Вставити групу...
???? Точність вибору: Точне визначення конкретні сторінки / Таблиці / форми / заголовок абзаців / Покращте навігацію за допомогою більше Виберіть функції...
⭐ Покращення зірок: Швидка навігація до будь-якого місця / автоматичне вставлення повторюваного тексту / плавно перемикатися між вікнами документів / 11 Інструменти перетворення...