Kako premakniti napise tabel od zgoraj spodaj ali obratno v dokumentu Word?
Če je v dokumentu Word več tabel, ki imajo pod vsako tabelo vstavljene napise. Včasih pa boste morda želeli te napise premakniti od spodaj navzgor nad tabele. Kako bi se lahko serijsko spoprijeli s tem poslom čim prej?
Premaknite napise tabel od spodaj navzgor ali obratno v Wordu s kodo VBA
Premaknite napise tabel od spodaj navzgor ali obratno v Wordu s kodo VBA
Če želite premakniti vse napise tabel od spodaj na zgornje strani tabel, vam je všeč naslednja koda VBA, storite tako:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednji makro v okno modula.
Premaknite napise tabel od spodaj navzgor v dokumentu 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. Nato pritisnite F5 ključ za zagon te kode in vsi napisi tabel so bili premaknjeni od spodaj nad zgornje tabele, glejte posnetek zaslona:
Opombe: Če želite napise tabel premakniti od zgoraj na spodnjo stran vsake tabele, uporabite naslednjo kodo VBA:
Premaknite napise tabel od zgoraj navzdol v Wordov dokument
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
|
V Wordov dokument hkrati vstavite več napisov tabel, slik ali enačb:
Običajno v tabelo, sliko ali enačbo vstavite napis tabele, slike ali enačbe enega za drugim v datoteko Word. Ampak, če že imate Kutols za Word's Več napisov funkcijo, lahko čim hitreje vstavite napise tabele, slike ali enačbe za vse tabele, slike ali enačbe.
Kutools za Word: z več kot 100 priročnimi dodatki za Word, brezplačno preizkusite brez omejitev v 60 dneh. Kliknite za prenos in brezplačno preizkusno različico zdaj! |
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo...
