Note: The other languages of the website are Google-translated. Back to English

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:

doc premik tabele napis 1

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.

doc premik tabele napis 2

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!


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL