Jak zaznaczyć lub usunąć tekst między dwiema zakładkami w dokumencie programu Word?
Czy wiesz, jak zaznaczyć lub usunąć zawartość między dwiema zakładkami w dokumencie programu Word? Ten artykuł pokaże Ci metody radzenia sobie z tym problemem.
Wybierz / usuń tekst między dwiema zakładkami za pomocą VBA
Wybierz / usuń tekst między dwiema zakładkami za pomocą VBA
Przypuśćmy, że w twoim dokumencie są dwie zakładki, jak pokazano na zrzucie ekranu, możesz wybrać lub usunąć całą zawartość między tymi dwoma zakładkami za pomocą następującego kodu VBA.
1. W dokumencie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj poniższy kod do okna modułu.
Aby zaznaczyć lub usunąć teksty między dwiema zakładkami, użyj tego kodu:
Kod VBA: Wybierz tekst między dwiema określonymi zakładkami w programie Word:
Sub SelectBetweenBookmarks()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Select
End Sub
Kod VBA: Usuń tekst między dwiema określonymi zakładkami w programie Word:
Sub DeleteBetweenBookmarks ()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Delete
End Sub
3. wciśnij F5 klucz do uruchomienia kodu.
4. W pierwszym Kutools dla Worda W oknie dialogowym wprowadź nazwę zakładki początkowej w polu tekstowym i kliknij OK.
5. W sekundę Kutools dla Worda w oknie dialogowym, wprowadź zakładkę końcową i kliknij OK. Zobacz zrzut ekranu:
Note: Jeśli wprowadzona nazwa zakładki nie istnieje w dokumencie, pojawi się kolejne okno dialogowe Kutools for Word, przypominające o wprowadzeniu prawidłowego.
Następnie cała zawartość między określonymi zakładkami zostanie natychmiast zaznaczona lub usunięta. Zobacz zrzuty ekranu.
Wybierz teksty między dwiema zakładkami:
Usuń teksty między dwiema zakładkami.
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...