Jak zapisać każdą stronę jako osobne pliki PDF w dokumencie programu Word?

Korzystając z dokumentu Microsoft Word, możesz zapisywać każdą stronę jako osobne pliki PDF, jeden po drugim, dzięki wbudowanej funkcji Zapisz jako. Jeśli jednak istnieją setki stron, które należy podzielić i zapisać jako pojedyncze pliki PDF, jak możesz to zrobić? W tym artykule przedstawiono metodę szybkiego rozwiązania tego problemu.

Zapisz każdą stronę jako osobne pliki PDF zbiorczo z kodem VBA

Zapisz każdą stronę jako osobne pliki PDF zbiorczo z kodem VBA

Poniższy kod VBA pomaga szybko zapisać każdą stronę w dokumencie jako osobne pliki PDF w tym samym czasie. Wykonaj następujące czynności.

1. Otwórz dokument, w którym chcesz zapisać każdą stronę lub określone strony jako pliki PDF, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, skopiuj poniższy kod VBA do okna modułu.

Kod VBA: Zapisz każdą stronę jako oddzielne pliki PDF w tym samym czasie w dokumencie Word

Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

3. wciśnij F5 klucz do uruchomienia kodu.

4. w Przeglądaj wybierz folder, w którym chcesz zapisać pliki pdf i kliknij OK przycisk. Zobacz zrzut ekranu:

5. W pierwszym Kutools dla Worda W oknie dialogowym wprowadź numer strony początkowej dokumentu w polu tekstowym i kliknij OK.

6. W sekundę Kutools dla Worda w oknie dialogowym wprowadź numer ostatniej strony dokumentu, a następnie kliknij OK. Zobacz zrzut ekranu:

Note: Jeśli chcesz tylko zapisać kilka ciągłych stron w dokumencie jako oddzielne pliki PDF, takie jak strona 4, 5 i 6, wprowadź osobno 4 i 6 w dwóch powyższych oknach dialogowych.

Po uruchomieniu kodu przejdź do określonego folderu wybranego w kroku 4, możesz zobaczyć, że wszystkie strony są podzielone i zapisane jako pojedyncze pliki pdf, jak pokazano poniżej.

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość  /  Przepisz tekst  /  Podsumowanie dokumentów  /  Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie...

✏ Edycja treści: Znajdź i zamień partii w wielu plikach  /  Zmień rozmiar wszystkich zdjęć  /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie  /  Podziały sekcji  /  Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

➕ Kreatywne wstawki: Wstawić Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀

Darmowe pobieranie     Czytaj więcej     Kup teraz