'remove any manual page break to prevent a second blankĭ Findtext:="^m", ReplaceWith:="" Set docSingle = Documents.Add 'create a new documentĭ 'paste the clipboard contents to the new document
#CARA WORD KE PDF WINDOWS#
RngPage.Copy 'copy the page into the Windows clipboard
'Set the end of the range to the point between the pages Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1 The Range.Goto method will not work on a page RngPage.End = 'last page (there won't be a next page) Set rngPage = docMultiple.Range 'instantiate the range object (the one currently containing the Selection) Set docMultiple = ActiveDocument 'Work on the active document _
#CARA WORD KE PDF CODE#
VBA: Pisahkan Dokumen menjadi Beberapa Dokumen berdasarkan Halaman di Word Sub SplitIntoPages()Īpplication.ScreenUpdating = False 'Makes the code run faster and reduces screen _ Pisahkan dokumen Word demi halaman dengan VBAīerikut adalah VBA lain untuk membantu Anda dengan cepat membagi satu dokumen Word menjadi beberapa halaman di Word. (4) Anda tidak perlu menambahkan pembatas di akhir file asli, jika Anda melakukannya, akan ada dokumen kosong setelah pemisahan. (3) Dan dokumen pemisahan akan disimpan ke tempat yang sama dengan file aslinya. (2) Anda dapat mengubah dokumen "Catatan" di sub Uji sesuai dengan kebutuhan Anda. Juga, Anda bisa berubah "///" ke pembatas apa pun untuk memenuhi kebutuhan Anda. (1) Pastikan untuk menambahkan pembatas Anda sama seperti "///" di sub tes ke dokumen antara setiap bagian teks yang ingin Anda pisahkan. Dalam dokumen Microsoft Word yang muncul, klik tombol Yes untuk melanjutkan. Lalu klik menjalankan atau tekan tombol F5 untuk menerapkan VBA.Ĥ. Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)įor I = LBound(arrNotes) To UBound(arrNotes)ĭoc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")ģ. VBA: Pisahkan Dokumen Word menjadi Beberapa Dokumen dengan Pembatas Sub SplitNotes(delim As String, strFilename As String)ĪrrNotes = Split(ActiveDocument.Range, delim) Klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke jendela Modul pembuka yang baru. tekan Alt + F11 bersama-sama untuk membuka jendela Microsoft Visual Basic for Application Ģ. Alih-alih membagi dokumen menjadi beberapa dokumen secara manual, metode ini akan memperkenalkan VBA untuk membagi dokumen Word dengan pembatas yang ditentukan di Word.
0 kommentar(er)
