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!