Jak przenieść podpisy tabeli z góry na dół lub odwrotnie w dokumencie programu Word?
W dokumencie programu Word, jeśli istnieje wiele tabel, które mają wstawione podpisy pod każdą tabelą. Czasami jednak możesz chcieć przenieść te podpisy z dołu na górę tabel. Jak możesz zbiorczo poradzić sobie z tym zadaniem tak szybko, jak to możliwe?
Przenieś podpisy tabel od dołu do góry lub odwrotnie w programie Word za pomocą kodu VBA
Przenieś podpisy tabel od dołu do góry lub odwrotnie w programie Word za pomocą kodu VBA
Aby przenieść wszystkie podpisy tabel z dołu do góry tabel, poniższy kod VBA wyświadczy ci przysługę, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujące makro w oknie modułu.
Przenieś podpisy tabel od dołu do góry w dokumencie programu 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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie podpisy tabel zostały przeniesione z dołu do góry tabel, patrz zrzut ekranu:
Note: Aby przenieść podpisy tabel z góry na dół każdej tabeli, zastosuj następujący kod VBA:
Przenieś podpisy tabel z góry na dół w dokumencie programu 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
Wstaw wiele podpisów tabel, obrazów lub równań do dokumentu programu Word jednocześnie:
Zwykle należy wstawiać podpis tabeli, obrazu lub równania dla tabeli, obrazu lub równania jeden po drugim w pliku Word. Ale jeśli masz Kutols dla słowa's Wiele napisów funkcja, możesz wstawić podpisy tabeli, obrazu lub równania dla wszystkich tabel, obrazów lub równań tak szybko, jak to możliwe. Kutools dla Worda: z ponad 100 przydatnymi dodatkami do Worda, które możesz wypróbować bez ograniczeń przez 60 dni. Kliknij, aby pobrać i bezpłatną wersję próbną teraz! |
Najlepsze narzędzia biurowe
Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...
✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...
🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...
➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...
🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...
⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...