Gå til hovedindhold

Sådan flytter du tabeltekster fra oven til neden eller omvendt ind Word dokumentere?

I en Word dokument, hvis der er flere tabeller, der har indsat billedtekster under hver tabel. Men nogle gange vil du måske flytte disse billedtekster fra neden til over tabellerne. Hvordan kunne du batch håndtere dette job så hurtigt som du kan?

Flyt tabeltekster fra neden til oven eller omvendt ind Word med VBA-kode


Flyt tabeltekster fra neden til oven eller omvendt ind 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 tabeltekster fra neden til oven i en 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:

doc flyt tabel billedtekst 1

Bemærk: Hvis du vil flytte billedteksterne ovenfra og under i hver tabel, skal du anvende følgende VBA-kode:

Flyt tabeltekster fra oven til neden i en 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 dokument med det samme:

Normalt skal du indsætte tabel-, billede- eller ligningsteksten for tabellen, billedet eller ligningen én efter én i Word fil. Men hvis du har Kutols for Word's Flere billedtekster funktion, kan du indsætte tabel-, billed- eller ligningstekster for alle tabeller, billeder eller ligninger så hurtigt som muligt.

doc flyt tabel billedtekst 2

Kutools for Word: med mere end 100 handy Word add-ins, gratis at prøve uden begrænsning i 60 dage. Klik for at downloade og gratis prøveversion nu!


Anbefales Word Produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
  • Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations