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

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 Sub

Koda 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 Sub

3. 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.


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL