Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

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

Author Siluvia Last modified

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 for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!

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

📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...

✏ Modifica del Testo: Trova e Sostituisci in batch su più file / Ridimensiona tutte le Immagini / Trasponi Righe e Colonne della Tabella / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...

⭐ Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!

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

✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!

Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint

📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività

I migliori strumenti per la produttività in ufficio

Kutools for Word - 100+ strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools