Elimina la pagina in Word

Question

Ho bisogno del codice VBA per eliminare tutte le sezioni (pagine) ad eccezione del primo in Word Document

Per questo utilizzo sotto il codice.

For Each oSec In ActiveDocument.Sections
    If oSec.Index <> 1 Then
        oSec.Range.Delete
    End If   
Next oSec

.

Questo funziona ma non elimina la seconda sezione rimuove solo il proprio contenuto. Se rimuove se le condizioni nel codice rimuove il contenuto della prima pagina.

Voglio conservare il contenuto della prima pagina.

Per favore dimmi dove sto commettendo un errore.

Answer 1

Quando si elimina è necessario includere i segni di rottura della sezione .Prova a cambiare questa linea:

oSec.Range.Delete

.

in questo:

ActiveDocument.Range(oSec.Range.Start - 1, oSec.Range.End).Delete

.

BTW, Non si dovrebbe pensare a quella pagina= Sezione, sono diversi tipi di unità documenti.