Re: [文件] WORD 檔案存檔問題

[windknife18 (windknife18)]

好像蠻多人有這個需求的，簡單的收集資料寫一個簡單的 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
※ 編輯: windknife18     來自: 61.229.88.235        (05/14 22:40)
※ 編輯: windknife18     來自: 61.229.88.235        (05/14 22:41)
推 ljuber:不錯！ 可以收集起來!
※ 編輯: windknife18     來自: 61.229.88.235        (05/14 22:44)