Przejdź do głównej zawartości

Jak zaznaczyć wszystkie akapity nagłówków w programie Word?

Czasami musimy usunąć lub edytować wszystkie akapity nagłówków. Pierwszym krokiem jest zaznaczenie wszystkich akapitów nagłówków. Ten samouczek nauczy Cię następujących metod wybierania wszystkich akapitów nagłówka.

Zaznacz wszystkie akapity nagłówków za pomocą polecenia Znajdź i zamień

Zaznacz wszystkie nagłówki akapitów z VBA

Wybierz wszystkie akapity nagłówków za pomocą Kutool for Word


strzałka niebieski prawy bąbelekZaznacz wszystkie akapity nagłówków za pomocą polecenia Znajdź i zamień

Karta Office: zapewnia interfejsy z zakładkami w programach Word, Excel, PowerPoint...
ot word środkowa reklama 100
Usprawnij teraz swój przepływ pracy.      Czytaj więcej       Darmowe pobieranie

Funkcja Znajdź i zamień w słowie jest najczęściej stosowanym sposobem zaznaczania wszystkich akapitów nagłówków.

Krok 1: Kliknij Strona Głowna >Znajdź I wybierz opcję Wyszukiwanie zaawansowane znak

Krok 2: Kliknij Więcej przycisk, aby wyświetlić więcej opcji wyszukiwania;

doc-wybierz-nagłówek-akapity-1

Krok 3: Kliknij utworzony zaznacz opcje wyskakujących okienek poniżej.

doc-wybierz-nagłówek-akapity-2

Krok 4: Kliknij Styl , aby wybrać styl nagłówka użyłeś w oknie dialogowym Znajdź styl.

doc-wybierz-nagłówek-akapity-3

Uwaga: ta metoda umożliwia każdorazowe wybranie tylko jednego akapitu nagłówka. Edycja wszystkich akapitów nagłówków jest czasochłonna.


strzałka niebieski prawy bąbelekZaznacz wszystkie nagłówki akapitów z VBA

Alternatywnie możemy użyć VBA, aby zaznaczyć wszystkie akapity nagłówków.

Krok 1: Naciśnij „Alt-F11” aby otworzyć okno Microsoft Visual Basic for Application;

Krok 2: Kliknij Moduł na wstawka tab, skopiuj i wklej następujący kod VBA do okna Module;

Krok 3: Następnie kliknij rundokument-odwrotny-znak-6 przycisk, aby zastosować VBA.

Kod VBA do zaznaczania wszystkich akapitów nagłówka:

Sub SelectHeadingParagraphs ()
Dim temp Tabela jako akapit
Application.ScreenUpdating = Fałsz
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Dla każdego tempTable w ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
Jeśli tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) to
„Debug.Print” aaa
tempTable.Range.Editors.Dodaj wdEditorEveryone
End If
Następna
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Uwaga: ta metoda przyjmuje jako przykład Heading2. Nagłówek2 może zmienić się na inny styl nagłówka.


strzałka niebieski prawy bąbelekWybierz wszystkie akapity nagłówków za pomocą Kutool for Word

Czy istnieje łatwiejszy sposób na zaznaczenie wszystkich akapitów z nagłówkami? Kutool for Word to najlepszy wybór. Po zainstalowaniu Kutool for Word możesz jednym kliknięciem zaznaczyć wszystkie nagłówki (akapity nagłówków).

Kutools dla Worda, poręczny dodatek, zawiera grupy narzędzi ułatwiających pracę i zwiększających możliwości przetwarzania dokumentów tekstowych. Bezpłatna wersja próbna przez 45 dni! Zdobądź To Teraz!

Kliknij Kutools >Wybierz akapit w grupie Wybierz akapit. Zobacz zrzut ekranu

doc-wybierz-nagłówek-akapity-4

Więcej szczegółowych informacji na temat Wybierz Nagłówek akapitów of Kutools for Word, odwiedź: Wybierz akapit opis funkcji


Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

Zapoznaj się z wyróżnionymi funkcjami poniżej lub kliknij tutaj, aby poznać pełną moc Kutools for Word.

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/XLSX)  /  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 czyszczenieWymieć Dodatkowe przestrzenie  /  Podziały sekcji  /   Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  /  Aby uzyskać więcej narzędzi do usuwania, przejdź do naszej grupy usuwania

Kreatywne wstawki: wstawka 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 naszej grupie wkładek

🔍 Precyzyjne wybory: Wskaż konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  /  Nawiguj z łatwością, korzystając z naszej grupy Select

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 ...

Przekształć swoje zadania Worda za pomocą Kutools. 👉 Pobierz teraz z 30-dniową wersją próbną .

 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is very useful definitely, thank you very much. Is there a way to add bold text in the selection? what would be the best way to change line 7? I want to get all headings and also all keywords in normal text that are marked bold in the text.
This comment was minimized by the moderator on the site
Thanks, this is very useful. I wanted to select all instances of all Headings at once, so I changed line 7 to this:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
This comment was minimized by the moderator on the site
Thanks, this is very useful. I wanted to select all instances of Heading1 and Heading2 at once, so I changed line 7 to this: If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations