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:
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:
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 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:
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...