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

Sai come selezionare o eliminare il contenuto compreso tra due segnalibri in un documento Word? Questo articolo ti illustra i metodi per farlo.

Selezionare/eliminare il testo tra due segnalibri con VBA

---

Selezionare/eliminare il testo tra due segnalibri con VBA

Supponiamo che nel documento siano presenti due segnalibri, come illustrato nell’immagine seguente: puoi selezionare o eliminare tutto il contenuto compreso tra di essi utilizzando il codice VBA riportato di seguito.

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

2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo, quindi copia il codice seguente nella finestra del modulo.

Per selezionare o eliminare il testo compreso tra due segnalibri, utilizzare i codici seguenti:

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 Kutools per Word, inserisci il segnalibro iniziale nella casella di testo e fai clic su OK.

5. Nella seconda finestra di dialogo Kutools per Word, inserisci il segnalibro finale e fai clic su OK. Vedere l’immagine:

Nota: se il nome del segnalibro inserito non esiste nel documento, verrà visualizzata un’altra finestra di dialogo di Kutools per Word per ricordarti di inserire quello corretto.

A questo punto, tutto il contenuto compreso tra i segnalibri specificati viene immediatamente selezionato o rimosso. Si vedano le immagini.

Seleziona il testo tra due segnalibri:

Elimina il testo compreso tra due segnalibri.