Kako izbrati ali izbrisati besedilo med dvema zaznamkoma v dokumentu Word?
Ali veste, kako izbrati ali izbrisati vsebino med dvema zaznamkoma v dokumentu Word? Ta članek vam bo pokazal metode za spopadanje z njimi.
Izberite / izbrišite besedilo med dvema zaznamkoma z VBA
Izberite / izbrišite besedilo med dvema zaznamkoma z VBA
Recimo, da sta v dokumentu dva zaznamka, kot je prikazano na spodnji sliki zaslona, lahko z naslednjo kodo VBA izberete ali izbrišete vso vsebino med tema dvema zaznamkoma.
1. V dokumentu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte spodnjo kodo v okno modula.
Za izbiro ali brisanje besedil med dvema zaznamkoma uporabite to kodo:
Koda VBA: Izberite besedilo med dvema določenima zaznamkoma v Wordu:
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 SubKoda VBA: Izbrišite besedilo med dvema določenima zaznamkoma v Wordu:
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 Sub3. Pritisnite F5 tipko za zagon kode.
4. V prvem Kutools za Word v pogovorno okno vnesite ime začetnega zaznamka v besedilno polje in kliknite OK.
5. V drugem Kutools za Word pogovorno okno, vnesite končni zaznamek in kliknite OK. Oglejte si posnetek zaslona:
Opombe: Če ime zaznamka, ki ste ga vnesli, ne obstaja v dokumentu, se prikaže drugo pogovorno okno Kutools for Word, ki vas bo opozorilo na pravilno vnos.
Nato se vsa vsebina med navedenimi zaznamki takoj izbere ali izbriše. Oglejte si posnetke zaslona.
Izberite besedila med dvema zaznamkoma:
Brisanje besedil med dvema zaznamkoma.
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo...
