Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come spostare le didascalie delle tabelle dall'alto verso il basso o viceversa nel documento di Word?

In un documento di Word, se sono presenti più tabelle che hanno inserito didascalie sotto ogni tabella. Ma, a volte, potresti voler spostare queste didascalie dal basso verso l'alto delle tabelle. Come hai potuto gestire in batch questo lavoro il più rapidamente possibile?

Sposta le didascalie delle tabelle dal basso verso l'alto o viceversa in Word con codice VBA


Sposta le didascalie delle tabelle dal basso verso l'alto o viceversa in Word con codice VBA

Per spostare tutte le didascalie delle tabelle dal basso verso l'alto delle tabelle, il seguente codice VBA ti fa un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla la seguente macro nella finestra del modulo.

Sposta le didascalie delle tabelle dal basso verso l'alto in un documento di 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. Quindi, premere F5 chiave per eseguire questo codice e tutte le didascalie delle tabelle sono state spostate dal basso verso l'alto delle tabelle, vedi screenshot:

doc sposta didascalia tabella 1

Note:: Per spostare le didascalie delle tabelle dall'alto verso il basso di ciascuna tabella, applicare il seguente codice VBA:

Sposta le didascalie delle tabelle dall'alto verso il basso in un documento di 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ù didascalie di tabelle, immagini o equazioni nel documento di Word contemporaneamente:

Normalmente, dovresti inserire la tabella, l'immagine o la didascalia dell'equazione per la tabella, l'immagine o l'equazione una alla volta nel file Word. Ma se lo hai Kutols per Word's Didascalie multiple è possibile inserire le didascalie di tabelle, immagini o equazioni per tutte le tabelle, immagini o equazioni il più rapidamente possibile.

doc sposta didascalia tabella 2

Kutools for Word: con più di 100 utili componenti aggiuntivi di Word, gratis da provare senza limitazioni per 60 giorni. Fare clic per scaricare e provare gratuitamente ora!


Strumenti di produttività Word consigliati

 

Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo

  • Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
  • Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
  • Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
  • Suddividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
Say something here...
symbols left.
You are guest
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.