Hoppa till huvudinnehåll

Utforska det nya, gratisversionen av Kutools for Outlook idag!

Hur flyttar jag bildtexter ovanifrån och ner eller vice versa i Word-dokument?

Författare: Xiaoyang Senast ändrad: 2024-08-29

I ett Word-dokument, om det finns flera tabeller som har infogat bildtexter under varje tabell. Men ibland kanske du vill flytta dessa bildtexter underifrån till ovanför tabellerna. Hur skulle du kunna hantera det här jobbet så fort du kan?

Flytta tabelltext från nedan till ovan eller tvärtom i Word med VBA-kod

Flytta tabelltext från nedan till ovan eller tvärtom i Word med VBA-kod

För att flytta alla tabelltexter underifrån till ovanför tabellerna, gör följande VBA-kod en tjänst, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i modulfönstret.

Flytta tabelltext från nedan till ovan i ett 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. Tryck sedan på F5 nyckel för att köra den här koden, och alla tabelltexter har flyttats underifrån till ovanför tabellerna, se skärmdump:

Alla tabelltexter flyttas underifrån till ovan

Anmärkningar: Använd följande VBA-kod för att flytta tabelltexterna ovanifrån till nedanför varje tabell:

Flytta tabelltext från ovan till under i ett 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

Infoga flera tabell-, bild- eller ekvationstexter i Word-dokument på en gång

Normalt bör du infoga tabellen, bilden eller ekvationstexten för tabellen, bilden eller ekvationen en efter en i Word-filen. Men om du har Kutols för Word's Flera bildtexter funktion kan du infoga tabell-, bild- eller ekvationstext för alla tabeller, bilder eller ekvationer så snabbt som möjligt.

Batchinsatser

Kutools för Word är det ultimata Word-tillägget som effektiviserar ditt arbete och ökar dina färdigheter i dokumentbehandling. Hämta den nu!

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk (bevara format) / Super Translate (Bevara format) / AI-redaktion / AI korrekturläsning...

📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF...

✏ Innehållsredigering: Batchsök och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till ta bort grupp...

➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Flera bilder / Upptäck mer i Insert grupp...

🔍 Precisionsval: Precisera Specifika sidor / Bord / Former / Rubrik stycken / Förbättra navigering med mer Välja pass...

⭐ Stjärnförbättringar: Navigera till valfri plats / Auto-infoga upprepad text / Växla mellan dokumentfönster / 11 Konvertering verktyg...

Kutools och Kutools Plus flikar på Word Ribbon
👉 Vill du prova dessa funktioner? Ladda ner Kutools för Word nu! 🚀
 

Bästa kontorsproduktivitetsverktyg

Kutools för Word - 100+ verktyg för Word

Gratis nedladdning Köp nu Lär dig mer om Kutools