Come spostare la didascalia di una tabella da sopra a sotto o viceversa in un documento Word?

In un documento Word, se sono presenti più tabelle con didascalie inserite mediante “Inserisci didascalia” posizionate sotto ciascuna tabella, come si può spostare rapidamente tutte queste didascalie dalla posizione inferiore a quella superiore rispetto alle tabelle in un’unica operazione?

Sposta Didascalia della Tabella da sotto a sopra o viceversa in Word con codice VBA

---

Sposta Didascalia della Tabella da sotto a sopra o viceversa in Word con codice VBA

Per spostare tutte le didascalie delle tabelle da sotto a sopra, il seguente codice VBA vi sarà di grande aiuto. Procedete come segue:

1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fare clic su Inserisci > Modulo, quindi incollare la seguente macro nella finestra del modulo.

Sposta Didascalia della Tabella da sotto a sopra in un documento 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. Successivamente, premere il tasto F5 per eseguire questo codice: tutte le didascalie delle tabelle saranno spostate da sotto a sopra, come mostrato nello screenshot:

Nota: per spostare le Didascalia della Tabella da sopra a sotto di ciascuna tabella, applicare il seguente codice VBA:

Sposta Didascalia della Tabella da sopra a sotto in un documento Word

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

---

Inserisci più tabelle, immagini o Didascalia dell'Equazione in un documento Word contemporaneamente Normalmente, si inseriscono tabelle, immagini o didascalie per equazioni una alla volta in un file Word. Tuttavia, se si dispone della funzionalità Kutools for Word's Didascalie Multiple, è possibile aggiungere automaticamente didascalie a tutte le tabelle, immagini ed equazioni in modo rapido e immediato. Cerchi un modo più veloce per gestire attività simili in Word? Prova Kutools per Word e semplifica il tuo lavoro quotidiano. ScarichiScopra di più