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

Jak vybrat nebo odstranit text mezi dvěma záložkami v dokumentu Word?

Víte, jak vybrat nebo odstranit obsah mezi dvěma záložkami v dokumentu Word? Tento článek vám ukáže metody, jak se s tím vypořádat.

Vyberte / odstraňte text mezi dvěma záložkami pomocí VBA


Vyberte / odstraňte text mezi dvěma záložkami pomocí VBA

Předpokládejme, že v dokumentu jsou dvě záložky, jak je ukázáno níže, můžete vybrat nebo odstranit veškerý obsah mezi těmito dvěma záložkami pomocí následujícího kódu VBA.

1. V dokumentu stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte níže uvedený kód do okna modulu.

Pro výběr nebo mazání textů mezi dvěma záložkami použijte tento kód:

Kód VBA: Vyberte text mezi dvěma zadanými záložkami v aplikaci 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

Kód VBA: Smazání textu mezi dvěma zadanými záložkami v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu.

4. V první Kutools pro Word dialogové okno, zadejte do textového pole název počáteční záložky a klepněte na OK.

5. Ve druhé Kutools pro Word dialogové okno, zadejte koncovou záložku a klikněte na OK. Viz snímek obrazovky:

Poznámka: Pokud zadaný název záložky v dokumentu neexistuje, objeví se další dialogové okno Kutools pro Word, které vám připomene zadání správného.

Poté je veškerý obsah mezi zadanými záložkami okamžitě vybrán nebo odstraněn. Viz snímky obrazovky.

Vyberte texty mezi dvěma záložkami:

Odstraňte texty mezi dvěma záložkami.


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění