Skip to main content

Come selezionare o eliminare il testo tra due segnalibri in un documento Word?

Author: Siluvia Last Modified: 2025-08-06

Sapete come selezionare o eliminare il contenuto tra due segnalibri in un documento Word? Questo articolo vi mostrerà i metodi per gestirlo.

Selezionare/eliminare il testo tra due segnalibri con VBA

Selezionare/eliminare il testo tra due segnalibri con VBA

Supponendo che ci siano due segnalibri nel vostro documento come mostrato nello screenshot qui sotto, potete selezionare o eliminare tutto il contenuto tra questi due segnalibri utilizzando il seguente codice VBA.

Word diaplaying content between two bookmarks

1. Nel documento, premere i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, cliccare su Inserisci > Modulo, quindi copiare il codice sottostante nella finestra Modulo.

Per selezionare o eliminare i testi tra due segnalibri, utilizzare i seguenti codici:

Codice VBA: Seleziona il testo tra due segnalibri specificati in 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

Codice VBA: Elimina il testo tra due segnalibri specificati in 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. Premere il tasto F5 per eseguire il codice.

4. Nella prima finestra di dialogo di Kutools per Word, inserire il nome del segnalibro iniziale nella casella di testo e fare clic su OK.

Dialog box for entering the start bookmark name

5. Nella seconda Kutools per Word finestra di dialogo, inserire il segnalibro finale e fare clic su OK. Vedere screenshot:

Dialog box for entering the end bookmark name

Nota: Se il nome del segnalibro inserito non esiste nel documento, apparirà un'altra finestra di dialogo di Kutools per Word per ricordarvi di inserire quello corretto.

Quindi, tutto il contenuto tra i segnalibri specificati verrà selezionato o eliminato immediatamente. Vedere gli screenshot.

Selezionare i testi tra due segnalibri:

Content between the specified bookmarks are selected

Eliminare i testi tra due segnalibri.

Content between the specified bookmarks are deleted

Office Tab: Introduce interfacce a schede in Word, Excel, PowerPoint...
Navigate through documents using Office Tab
Migliora il tuo flusso di lavoro ora.Scopri di più su Office Tab Download gratuito

I migliori strumenti per la produttività in ufficio

Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...

✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...

⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools per Word! 🚀
 

I migliori strumenti per la produttività in ufficio

Kutools per Word - 100+ Strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools