Note: The other languages of the website are Google-translated. Back to English

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ń

Niesamowity! Używaj wydajnych kart w programie Word (Office), takim jak Chrome, Firefox i nowy Internet Explorer!

Czytaj więcej Bezpłatne 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łówna >Znajdź I wybierz opcję Wyszukiwanie zaawansowane znak

Krok 2: Kliknij Dowiedz się 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
Dalej
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



Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...
Sortuj komentarze według
Komentarze (3)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki, to jest bardzo przydatne. Chciałem zaznaczyć wszystkie instancje Heading1 i Heading2 na raz, więc zmieniłem linię 7 na następującą: If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki, to bardzo przydatne. Chciałem zaznaczyć wszystkie wystąpienia wszystkich nagłówków naraz, więc zmieniłem wiersz 7 na ten:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
Ten komentarz został zminimalizowany przez moderatora na stronie
Jest to zdecydowanie bardzo przydatne, dziękuję bardzo. Czy istnieje sposób na dodanie pogrubionego tekstu w zaznaczeniu? jaki byłby najlepszy sposób na zmianę linii 7? Chcę uzyskać wszystkie nagłówki, a także wszystkie słowa kluczowe w normalnym tekście, które są pogrubione w tekście.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL