Kuinka valita tai poistaa tekstiä kahden kirjanmerkin välillä Word-asiakirjassa?

Tiedätkö kuinka valita tai poistaa sisältö kahden kirjanmerkin välillä Word-asiakirjassa? Tämä artikkeli näyttää menetelmiä käsitellä sitä.

Valitse/poista teksti kahden kirjanmerkin välillä VBA:lla

Valitse/poista teksti kahden kirjanmerkin välillä VBA:lla

Olettaen, että asiakirjassasi on kaksi kirjanmerkkiä alla olevan kuvakaappauksen mukaisesti, voit valita tai poistaa kaiken sisällön näiden kahden kirjanmerkin välillä seuraavalla VBA-koodilla.

1. Paina asiakirjassa -painiketta muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulitja kopioi alla oleva koodi moduuliikkunaan.

Käytä alla olevia koodeja valitaksesi tai poistaaksesi tekstiä kahden kirjanmerkin välillä:

VBA-koodi: Valitse teksti kahden määritetyn kirjanmerkin välillä Wordissa:

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

VBA-koodi: Poista teksti kahden määritetyn kirjanmerkin väliltä Wordissa:

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. paina F5 avain koodin suorittamiseen.

4. Ensimmäisessä Kutools for Word -valintaikkunassa, kirjoita aloituskirjanmerkin nimi tekstiruutuun ja napsauta OK.

5. Toisessa Kutools for Word -valintaikkunassa, kirjoita lopetuskirjanmerkki ja napsauta OK. Katso kuvakaappaus:

Huomautuksia: Jos antamaasi kirjanmerkin nimeä ei ole asiakirjassa, toinen Kutools for Word -valintaikkuna avautuu muistuttamaan oikean nimen syöttämisestä.

Sitten kaikki määritettyjen kirjanmerkkien välissä oleva sisältö valitaan tai poistetaan välittömästi. Katso kuvakaappaukset.

Valitse tekstit kahden kirjanmerkin väliltä:

Poista tekstit kahden kirjanmerkin väliltä.

Office-välilehti: Tuo välilehtiliittymät Wordiin, Exceliin, PowerPointiin...

Paranna työnkulkuasi nyt.      Lisätietoja Office-välilehdestä       Ilmainen lataus

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista