Cum se selectează sau se șterge textul dintre două marcaje din documentul Word?

Știți cum să selectați sau să ștergeți conținutul dintre două marcaje dintr-un document Word? Acest articol vă va arăta metodele de abordare a acestuia.

Selectați / ștergeți text între două marcaje cu VBA

Selectați / ștergeți text între două marcaje cu VBA

Presupunând că există două marcaje în documentul dvs., așa cum se arată în imaginea de mai jos, puteți selecta sau șterge tot conținutul dintre aceste două marcaje cu următorul cod VBA.

1. În document, apăsați tasta Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați codul de mai jos în fereastra Module.

Pentru a selecta sau șterge texte între două marcaje, vă rugăm să utilizați codurile de mai jos:

Cod VBA: Selectați textul dintre două marcaje specificate în 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

Cod VBA: ștergeți textul dintre două marcaje specificate în 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. apasă pe F5 tasta pentru a rula codul.

4. În prima Kutools pentru Cuvânt caseta de dialog, introduceți numele marcajului de început în caseta de text și faceți clic pe OK.

5. În al doilea Kutools pentru Cuvânt caseta de dialog, introduceți marcajul final și faceți clic pe OK. Vedeți captura de ecran:

notițe: Dacă numele marcajului pe care l-ați introdus nu există în document, va apărea o altă casetă de dialog Kutools pentru Word pentru a vă reaminti că ați introdus-o pe cea corectă.

Apoi, toate conținuturile dintre marcajele specificate sunt selectate sau șterse imediat. Vedeți capturi de ecran.

Selectați texte între două marcaje:

Ștergeți textele dintre două marcaje.

Fila Office: Aduce interfețe cu file în Word, Excel, PowerPoint...

Îmbunătățiți-vă fluxul de lucru acum.      Aflați mai multe despre Office Tab       Descărcare gratuită

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Caracteristici Kutools AI: Generați conținut / Rescrie textul / Documente Întrebări și răspunsuri / Obțineți răspunsuri rapide / Traduceți documente / Document polonez (format păstrat)...

📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF...

✏ Editarea continutului: Găsiți și înlocuiți în loturi în mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la Elimină grup...

➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Imagini multiple / Descoperiți mai multe în Insera grup...

???? Selectii de precizie: Repera cu precizie Pagini specifice / Mese / Forme / Paragrafe de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

⭐ Îmbunătățiri de stele: Navigați la orice locație / Inserarea automată a textului repetitiv / Comutați între ferestrele documentelor / 11 Convertire Instrumente...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀

Descărcare gratuită     Cumpară acum     Aflați mai multe despre Kutools pentru Word

 

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Peste 100 de instrumente pentru Word

• 🤖 Caracteristici Kutools AI: Genera, Rescrie, Rezuma, Traduceți Documente / Obțineți răspunsuri rapide / Document polonez (format păstrat)
• 📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Conversie lot în PDF
• ✏ Editarea continutului: Găsiți și înlocuiți în lot / Redimensionați toate imaginile
• 🧹 Curățare fără efort: Eliminați spațiile suplimentare / Eliminați secțiunile de secțiune
• ➕ Inserții creative: Introduceți o mie de separatoare / Introduceți casete de selectare / Creați coduri QR

Descărcare gratuită Cumpară acum Aflați mai multe despre Kutools