Hvordan flyttes tabeltekster ovenfra til neden eller omvendt i Word-dokument?
I et Word-dokument, hvis der er flere tabeller, der har indsat billedtekster under hver tabel. Men nogle gange vil du måske flytte disse billedtekster nedenunder til oven over tabellerne. Hvordan kunne du batch-håndtere dette job så hurtigt som muligt?
Flyt billedtekster nedenfra til oven eller omvendt i Word med VBA-kode
Flyt billedtekster nedenfra til oven eller omvendt i Word med VBA-kode
For at flytte alle tabeltekster nedenunder til oven over tabellerne, gør følgende VBA-kode dig en tjeneste, gør venligst som denne:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende makro i modulvinduet.
Flyt billedtekster nedenunder til oven i et Word-dokument
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. Tryk derefter på F5 nøgle til at køre denne kode, og alle tabeltekster er flyttet nedenfra til oven over tabellerne, se skærmbillede:
Bemærk: Hvis du vil flytte billedteksterne ovenfra og under i hver tabel, skal du anvende følgende VBA-kode:
Flyt billedtekster ovenfra og ned i et Word-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
|
Indsæt flere tabel-, billed- eller ligningstekster i Word-dokumentet på én gang:
Normalt skal du indsætte tabellen, billedet eller billedteksten til tabellen, billedet eller ligningen en efter en i Word-filen. Men hvis du har Kutols til Word's Flere billedtekster funktion, kan du indsætte tabel-, billed- eller ligningstekster for alle tabeller, billeder eller ligninger så hurtigt som muligt.
Kutools for Word: med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. Klik for at downloade og gratis prøveversion nu! |
Bedste kontorproduktivitetsværktøjer
Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!
🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold / Omskriv tekst / Opsummer dokumenter / Spørg for information baseret på Dokument, alt sammen i Word
📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF / Eksporter sider som billeder / Udskriv flere filer på én gang...
✏ Indholdsredigering: Batch Find og erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...
🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Alle overskrifter / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...
➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Diagonal linjebord / Ligningstekst / Billede Caption / Tabeltekst / Flere billeder / Oplev mere i Indsæt gruppe...
???? Præcisionsvalg: Find ud af specifikke sider / tabeller / former / overskrifter / Forbedre navigation med mere Vælg funktioner...
⭐ Stjerneforbedringer: Naviger hurtigt til ethvert sted / automatisk indsæt gentagende tekst / skifte problemfrit mellem dokumentvinduer / 11 Konverteringsværktøjer...
