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 selectarea sau ștergerea textelor între două marcaje, vă rugăm să utilizați acest cod:
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 SubCod 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 Sub3. 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.
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut / Rescrie textul / Rezumat documente / Solicitați informații pe baza Documentului, toate în Cuvânt
📘 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 / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste 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 / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în Inserați grupul...
???? Selectii de precizie: Repera cu precizie pagini specifice / tabele / forme / paragrafele de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați rapid în orice locație / inserarea automată a textului repetitiv / comutați fără probleme între ferestrele documentelor / 11 Instrumente de conversie...
