Hogyan lehet az aktuális oldalakat vagy az egyes oldalakat külön Word dokumentumként menteni?
Ha a Word-dokumentumban több oldal van, most csak egy aktuális oldalt kell új Word fájlként mentenie. Normál esetben másolhatja és beillesztheti az aktuális oldal adatait egy új Word fájlba, majd elmentheti. De ebben a cikkben arról fogok beszélni, hogyan lehet az aktuális oldalakat vagy az egyes oldalakat külön dokumentumként menteni egy Word fájlból.
Az aktuális oldal mentése új Word dokumentumként VBA kóddal
Mentse el az egyes oldalakat külön Word-dokumentumként a Kutools for Word segítségével
Az aktuális oldal mentése új Word dokumentumként VBA kóddal
A következő VBA-kód segíthet az aktuális oldal tartalmának új Word fájlba történő mentésében, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA kód: Az aktuális oldal mentése új Word dokumentumként:
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. És akkor nyomja meg F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen írja be az új fájl nevét, lásd a képernyőképet:
4. Ezután kattints a gombra OK gombra, és a második felbukkanó ablakban válasszon egy mappát az új fájl kiadásához, lásd a képernyőképet:
5. Kattints OK gombra, az aktuális oldal tartalma új Word fájlként lett elmentve, az eredmény megtekintéséhez lépjen a mappába.
Mentse el az egyes oldalakat külön Word-dokumentumként a Kutools for Word segítségével
Ha a teljes dokumentum minden oldalát külön fájlként kívánja menteni, akkor a Kutools for Word'S Hasított funkció tehet egy szívességet.
Kutools for Word : több mint 100 praktikus Word-bővítménnyel, 60 nap alatt szabadon kipróbálható korlátozás nélkül. |
Telepítése után Kutools for Word, kérjük, tegye a következőket:
1. Kattints Kutools Plus > Hasított, lásd a képernyőképet:
2. Az Osztott dokumentum párbeszédablak:
(1.) Válassza ki oldal tól Felosztva legördülő lista;
(1.) Kattintson gombra kattintva kiválaszthatja az új fájlok mappáját;
(2.) Ezután szükség szerint adja meg az új mentett fájlok előtagját.
3. A beállítások elvégzése után kattintson a gombra OK gombot a felosztás megkezdéséhez, majd a Word dokumentum összes oldalát külön fájlként mentette az adott mappába, az alábbi képernyőkép szerint:
Kattintson a Kutools for Word letöltéséhez és az ingyenes próbaverzióhoz most!
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...