Re: [文件] WORD 檔案存檔問題--擷取頁面(VBA)

看板Office作者windknife18 (windknife18)時間17年前 (2009/05/14 22:34)推噓2(2推 0噓 1→)

留言3則, 3人參與討論串1/1

好像蠻多人有這個需求的，收集一些資料寫一個簡單的 VBA 不過有關頁首、頁尾並無法擷取喔 ... 要自己設定 VBA 的用法請查VBA Option Explicit Sub Macro1() Dim docNew As Word.Document Dim Path As String Dim rng As Range Dim p1 As Integer Dim p2 As Integer Dim filename As String Application.ScreenUpdating = False p1 = InputBox("輸入起始頁", "輸入起始頁") p2 = InputBox("輸入結束頁", "輸入結束頁") filename = InputBox("輸入檔案名稱", "輸入檔案名稱", "page.doc") Set rng = ActiveDocument.Range Selection.GoTo wdGoToPage, wdGoToAbsolute, p1 rng.Start = Selection.Start Selection.GoTo wdGoToPage, wdGoToAbsolute, p2 + 1 rng.End = Selection.Start rng.Copy Set docNew = Application.Documents.Add docNew.Bookmarks("\EndOfDoc").Range.Paste Selection.EndKey Unit:=wdStory Selection.TypeBackspace Path = ThisDocument.Path & Application.PathSeparator docNew.SaveAs Path & "\" & filename docNew.Close Application.ScreenUpdating = True MsgBox "完成！" End Sub ※ 引述《kriminell (cookie dude~)》之銘言： : 軟體: MS WORD : 請問如果要從一個大的word檔案中只取一部份另存成一個新檔 : 有沒有比較方便的方式? : 例如有份200頁的檔案 : 我想存30-50頁成為一個獨立的新檔案 : 請問可以怎麼做? : 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.229.88.235