Salt la conținutul principal

Cum se salvează pagina curentă sau fiecare pagină ca document Word separat?

Dacă există mai multe pagini în documentul dvs. Word, acum, trebuie doar să salvați o singură pagină curentă ca fișier Word nou. În mod normal, puteți copia și lipi datele curente ale paginii într-un fișier Word nou și apoi le puteți salva. Dar, în acest articol voi vorbi despre cum să salvați pagina curentă sau fiecare pagină ca documente separate dintr-un fișier Word.

Salvați pagina curentă ca document Word nou cu cod VBA

Salvați fiecare pagină ca documente Word separate cu Kutools pentru Word


Salvați pagina curentă ca document Word nou cu cod VBA

Următorul cod VBA vă poate ajuta să salvați conținutul unei pagini curente într-un fișier Word nou, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: Salvați pagina curentă ca document Word nou:

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 apoi, apăsați F5 tasta pentru a rula acest cod, în caseta de dialog pop-out, vă rugăm să introduceți un nume pentru noul fișier, consultați captura de ecran:

doc salvează pagina curentă 1

4. Apoi apasa OK , iar în a doua fereastră ieșită, vă rugăm să alegeți un folder pentru a afișa noul fișier, vedeți captura de ecran:

doc salvează pagina curentă 2

5. Clic OK butonul, conținutul curent al paginii a fost salvat ca un fișier Word nou, puteți accesa folderul pentru a vizualiza rezultatul.


Salvați fiecare pagină ca documente Word separate cu Kutools pentru Word

Dacă doriți să salvați fiecare pagină a întregului document ca fișiere separate, fișierul Kutools pentru Cuvânt'S Despică funcția vă poate face o favoare.

Kutools pentru Cuvânt : cu mai mult de 100 de suplimente Word la îndemână, încercare gratuită fără limitări în 60 de zile. 

După instalare Kutools pentru CuvântVă rugăm să efectuați pașii următori:

1. Clic Kutools Plus > Despică, vezi captura de ecran:

2. În Împărțiți documentul căsuță de dialog:

(1.) Selectați Pagină de la Împărțit de lista verticală;

(1.) Faceți clic pe doc salvează pagina curentă 5 buton pentru a alege un folder pentru a afișa noile fișiere;

(2.) Și apoi, specificați prefixul pentru noile fișiere salvate după cum aveți nevoie.

3. După terminarea setărilor, faceți clic pe OK butonul pentru a începe divizarea și apoi, toate paginile din documentul Word au fost salvate ca fișiere separate în folderul specific, după cum se arată în următoarea captură de ecran:

doc salvează pagina curentă 6

Faceți clic pentru a descărca Kutools pentru Word și încercarea gratuită acum!

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Solicitați informații pe baza Documentului, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...

Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie pagini specifice  /  tabele  /  forme  /  paragrafele de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Kutools pentru Word oferă a 60-zi de încercare gratuită, fără limitări! 🚀
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am using Office 365. I think I did everything right to split doc in pages, tried several times, mas the splited page docs are not saved on destination foler.
This comment was minimized by the moderator on the site
Have downloaded Kutools , however do not have ENTERPRISE as an option. Only KUTOOLS and KUTOOLS PLUS, please advise how to activate Enterprise
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations