Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe tabelopschriften van boven naar beneden te verplaatsen of vice versa in Word-document?

In een Word-document, als er meerdere tabellen zijn die bijschriften onder elke tabel hebben ingevoegd. Maar soms wilt u deze ondertitels mogelijk van onder naar boven verplaatsen. Hoe kon je zo snel mogelijk met deze baan omgaan?

Verplaats de ondertitels van onder naar boven of vice versa in Word met VBA-code

Voeg meerdere tabel-, afbeelding- of vergelijkingsteksten tegelijk in Word-documenten in:

Normaal gesproken moet u de tabel, afbeelding of vergelijkingstitel voor de tabel, afbeelding of vergelijking één voor één invoegen in Word-bestand. Maar als je dat hebt gedaan Kutols voor Word's Meerdere onderschriften functie, kunt u de tabel-, afbeelding- of vergelijkingsbijschriften voor alle tabellen, afbeeldingen of vergelijkingen zo snel mogelijk invoegen.

doc verplaatsingstabblad 2

Kutools for Word: met meer dan 100 handige invoegtoepassingen voor Word, gratis om zonder beperkingen in 60-dagen te proberen. Klik om te downloaden en gratis proef nu!


Verplaats de ondertitels van onder naar boven of vice versa in Word met VBA-code

Als u alle tabelbijschriften van onder naar boven van de tabellen wilt verplaatsen, doet u het volgende met de volgende VBA-code:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende macro in het modulevenster.

Verplaats de ondertitels van onder naar boven in een Word-document

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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en alle tabelbijschriften zijn van onder naar boven van de tabellen verplaatst, zie screenshot:

doc verplaatsingstabblad 1

Notes: Om de tabelbijschriften van boven naar beneden van elke tabel te verplaatsen, moet u de volgende VBA-code toepassen:

Verplaats de ondertitels van boven naar beneden in een Word-document

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


Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.