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 > Modulie 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:
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.
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! |
I migliori strumenti per la produttività in ufficio
Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!
🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto / Riscrivere il testo / Riepilogare i documenti / Richiedi informazioni sulla base del documento, tutto all'interno di Word
📘 Padronanza dei documenti: Pagine divise / Unisci documenti / Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF / Esporta pagine come immagini / Stampa più file contemporaneamente...
✏ Modifica dei contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasporre righe e colonne della tabella / Converti tabella in testo...
🧹 Pulito senza sforzo: Spazza via Spazi extra / Interruzioni di sezione / Tutte le intestazioni / Caselle di testo / Collegamenti ipertestuali / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...
➕ Inserti creativi: Inserisci Mille separatori / Caselle di controllo / Pulsanti di scelta / QR Code / Codice a barre / Tabella della linea diagonale / Didascalia dell'equazione / Didascalia immagine / Didascalia / Immagini multiple / Scopri di più nella Inserisci gruppo...
???? Selezioni di precisione: Individuare pagine specifiche / con tabelle / forme / paragrafi di intestazione / Migliora la navigazione con Scopri di più Seleziona funzionalità...
⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo / inserire automaticamente testo ripetitivo / passare senza problemi da una finestra all'altra del documento / 11 strumenti di conversione...
