Как да преместя надписи на таблици отгоре надолу или обратно в документ на 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. Но, ако имате Kutols за Word's Множество надписи можете да вмъкнете надписите за таблица, изображение или уравнение за всички таблици, изображения или уравнения възможно най-бързо. Kutools за Word: с повече от 100 удобни добавки за Word, безплатни за изпробване без ограничение за 60 дни. Щракнете за изтегляне и безплатен пробен период сега! |
Най-добрите инструменти за продуктивност в офиса
Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!
🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание / Пренаписване на текст / Обобщаване на документи / Запитване за информация въз основа на Документ, всичко това в Word
📘 Владеене на документи: Разделяне на страници / Обединяване на документи / Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...) / Пакетно конвертиране в PDF / Експортиране на страници като изображения / Отпечатайте няколко файла наведнъж...
✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове / Преоразмеряване на всички снимки / Транспониране на редовете и колоните на таблицата / Преобразуване на таблица в текст...
🧹 Почистване без усилие: Изметете Допълнителни пространства / Прекъсвания на раздели / Всички заглавки / Текстови полета / Хипервръзки / За повече инструменти за премахване се насочете към нашия Премахване на група...
➕ Творчески вложки: Вмъкване Хилядни разделители / Квадратчета / Радио бутони / QR Code / Баркод / Таблица с диагонални линии / Надпис на уравнение / Надпис на изображението / Надпис на таблица / Множество снимки / Открийте повече в Вмъкване на група...
🔍 Прецизни селекции: Точна точка конкретни страници / таблици / форми / заглавни параграфи / Подобрете навигацията с още Изберете функции...
⭐ Звездни подобрения: Навигирайте бързо до всяко място / автоматично вмъкване на повтарящ се текст / безпроблемно превключване между прозорците на документи / 11 Инструменти за конвертиране...