Hogyan válasszuk ki vagy töröljük a szöveget két könyvjelző között a Word dokumentumban?
Tudja, hogyan lehet kiválasztani vagy törölni a tartalmat a Word két dokumentumának két könyvjelzője között? Ez a cikk bemutatja a kezelésének módszereit.
Válasszon / töröljön szöveget két könyvjelző között a VBA segítségével
Válasszon / töröljön szöveget két könyvjelző között a VBA segítségével
Feltéve, hogy a dokumentumban két könyvjelző van, amint az az alábbi képernyőképen látható, kiválaszthatja vagy törölheti a két könyvjelző közötti összes tartalmat a következő VBA kóddal.
1. A dokumentumban nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a kód alatt a Modul ablakba.
Két könyvjelző közötti szöveg kiválasztásához vagy törléséhez használja ezt a kódot:
VBA kód: Válasszon szöveget a Word két megadott könyvjelzője között:
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-kód: Szöveg törlése a Word két megadott könyvjelzője között:
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. megnyomni a F5 gombot a kód futtatásához.
4. Az elsőben Kutools for Word párbeszédpanelen írja be a kezdő könyvjelző nevét a szövegmezőbe, majd kattintson a gombra OK.
5. A másodikban Kutools for Word párbeszédpanelen írja be a könyvjelző végét, majd kattintson a gombra OK. Lásd a képernyőképet:
Megjegyzések: Ha a beírt könyvjelzőnév nem létezik a dokumentumban, egy másik Kutools for Word párbeszédpanel jelenik meg, amely emlékezteti Önt a helyes név megadására.
Ezután a megadott könyvjelzők közötti összes tartalmat kijelöli vagy azonnal törli. Lásd a képernyőképeket.
Válasszon szöveget két könyvjelző között:
Szövegek törlése két könyvjelző között.
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...