Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es guarda la pàgina actual o cada pàgina com a document de Word separat?

Si hi ha diverses pàgines al document de Word, ara només heu de desar una sola pàgina actual com a nou fitxer de Word. Normalment, podeu copiar i enganxar les dades de la pàgina actual a un nou fitxer de Word i, a continuació, desar-lo. Però, en aquest article, parlaré sobre com estalviar actual o cada pàgina com a documents separats d'un fitxer de Word.

Deseu la pàgina actual com a nou document de Word amb codi VBA

Deseu cada pàgina com a documents de Word separats amb Kutools per a Word


Desa cada pàgina d'un document de Word en fitxers separats:

amb Kutools per a la paraula's divisió , podeu desar ràpidament un document de Word gran en diversos fitxers separats basats en Heading1, pausa, apartat de secció i pàgina.

doc dividir paraula cada pàgina n 9

Kutools per a la paraula: amb més complements Word complementosos de 100, gratuïts per provar sense limitacions en 60 dies. Feu clic per descarregar i provar ara Ara!


Deseu la pàgina actual com a nou document de Word amb codi VBA

El següent codi VBA us pot ajudar a desar un contingut de la pàgina actual en un fitxer de Word nou, feu el següent:

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu el següent codi a la finestra del mòdul.

Codi VBA: guardar la pàgina actual com a nou document de Word:

Sub SaveCurrentPageAsANewDoc()
    Dim xDoc As Document
    Dim xNewDoc As Document
    Dim xFileName As String
    Dim xFolderPath As Variant
    Dim xDlg As FileDialog
    Set xDoc = ActiveDocument
    xFileName = InputBox("Enter file name here: ", "KuTools for Word")
    If xFileName = "" Then Exit Sub
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolderPath = xDlg.SelectedItems(1)
        xDoc.Bookmarks("\Page").Range.Select
        Selection.Copy
        Set xNewDoc = Documents.Add
        Selection.Paste
        xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx"
        xNewDoc.Close
    End If
End Sub

3. I, a continuació, premeu F5 clau per executar aquest codi, en el quadre de diàleg sortit, introduïu un nom per al fitxer nou, vegeu captura de pantalla:

doc guardar la pàgina actual 1

4. A continuació, feu clic a OK botó i, a la segona finestra emergida, seleccioneu una carpeta per a la sortida del nou fitxer, vegeu la captura de pantalla:

doc guardar la pàgina actual 2

5. Clic OK , el contingut de la pàgina actual s'ha desat com un nou fitxer de Word, podeu anar a la carpeta per veure el resultat.


Deseu cada pàgina com a documents de Word separats amb Kutools per a Word

Si voleu desar cada pàgina del document sencer com a fitxers separats, el Kutools per a la paraula'S divisió la funció pot fer-vos un favor.

Kutools per a la paraula : amb més complements Word complementosos de 100, lliures per intentar sense limitacions en dies 60.

Després d'instal·lar Kutools per a la paraula, feu els següents passos:

1. Clic empresa > divisió, veure captura de pantalla:

doc guardar la pàgina actual 3

2. Al Dividir el document Caixa de diàleg:

(1.) Feu clic doc guardar la pàgina actual 5 botó per triar una carpeta per a la sortida dels nous fitxers;

(2). A continuació, seleccioneu pàgina des Dividit per llista desplegable.

doc guardar la pàgina actual 4

3. Després d'acabar la configuració, feu clic a OK botó per començar a dividir, i després, totes les pàgines del document de Word s'han guardat com a fitxers separats a la carpeta específica, com es mostra a la següent captura de pantalla:

doc guardar la pàgina actual 6

Feu clic per descarregar Kutools for Word i prova gratuïta ara mateix.



Kutools per a la paraula

Més de 100 Advanced Functions per Word 2003, 2007, 2010, 2013, 2016 i 2019

shot-kutools-700-225-kte

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.