I documenti di Microsoft Word possono contenere singole pagine che sarebbero più adatte ai propri documenti. Ad esempio, un documento può contenere dozzine di pagine di moduli, ognuno dei quali va in gran parte a un reparto separato per l'elaborazione. Per estrarre una singola pagina, puoi copiarla in un file vuoto. Per estrarre tutte le pagine di un documento, è necessario copiare e incollare ciascuno dei suoi file, operazione che può richiedere molto tempo e fatica. Tuttavia, è possibile automatizzare il processo di estrazione scrivendo una macro di Visual Basic.
1
Premi "Alt-F11" per aprire l'editor di Visual Basic di Word.
2
Fare clic sul modulo "NewMacros" nella cartella Modules della finestra Progetto, se Word non lo apre automaticamente.
3
Digita quanto segue per aprire una nuova macro:
Sub mcrExtractPages ()
4
Aggiungere il codice seguente per impostare la macro per esplorare il documento per pagina:
Application.Browser.Target = wdBrowsePage
5
Aggiungi il codice seguente, che apre un ciclo che viene eseguito su ogni pagina del documento:
For i = 1 To ActiveDocument.BuiltInDocumentProperties ("Number of Pages")
6
Aggiungi quanto segue per copiare i contenuti della pagina selezionata:
ActiveDocument.Bookmarks (" page"). Range.Copy
7
Aggiungi il codice seguente per creare un nuovo documento:
Documents.Add
8
Aggiungi il codice seguente per incollare il codice copiato nel nuovo documento:
Selection.Paste
9
Aggiungi il codice seguente per impostare la directory in cui Word salverà le pagine estratte:
ChangeFileOpenDirectory "C: Users Ryan Documents"
10
Cambia "C: Users Ryan Documents" nella directory che desideri.
11
Aggiungi il seguente codice per salvare il nuovo documento come nuovo file nella directory scelta:
DocNum = DocNum + 1 ActiveDocument.SaveAs FileName: = "ExtractedPage_" & DocNum & ".docx"
12
Cambia "ExtractedPage_" con il nome che desideri assegnare alle pagine estratte.
13
Aggiungi il codice seguente per chiudere il nuovo documento e passare alla pagina successiva del documento principale:
ActiveDocument.Close Application.Browser.Next
14
Aggiungi il codice seguente per chiudere il ciclo:
Avanti
15
Aggiungi il codice seguente per chiudere la macro:
End Sub
16
Premere "F5" per eseguire la macro.