【求助】請問該如何另存word文件中的部分頁數呢?

顯示結果從第 1 筆 到 9 筆,共計 9 筆
  1. #1
    kerwin
    註冊日期
    2002-03-10
    討論區文章
    17

    【求助】請問該如何另存word文件中的部分頁數呢?

    想要將一有大量頁數的word檔
    當中的幾頁獨立出來存成另一
    個檔,請問該怎麼做呢??
    感謝回應!



  2. #2
    會員
    註冊日期
    2003-12-24
    討論區文章
    121
    mark => copy => open new document => paste => save

  3. #3
    kerwin
    註冊日期
    2002-03-10
    討論區文章
    17
    我知道此法可行,不過要處理很多檔案而且檔案的頁數很多的時候,
    這樣的操作就變得很繁瑣,請問是否有較有效率的方法嗎?

  4. #4
    Take it easy~ leonchou 的大頭照
    註冊日期
    2001-05-03
    討論區文章
    3,244
    寫個巨集試試

    Sub 另存指定頁()
    inputpages = InputBox("輸入要另存的頁碼, 以逗號分隔")
    If inputpages = "" Then Exit Sub

    newDocname = "D:\temp\Doc1.doc"
    Selection.HomeKey Unit:=wdStory
    Set myRange = Selection.Range
    Set myDoc = ActiveDocument
    Documents.Add

    pages = Split(inputpages, ",") '將輸入頁碼轉為陣列
    For Each page In pages
      Set myRange = myRange.GoTo(What:=wdGoToPage, _
        Which:=wdGoToAbsolute, Count:=page)
      pagestart = myRange.Start
      Set myRange = myRange.GoToNext(What:=wdGoToPage)
      pageend = myRange.Previous.Start
      If myRange.Start = pagestart Then _
        pageend = myDoc.Content.End
      myDoc.Range(pagestart, pageend).Copy
      Selection.Paste
    Next

    ActiveDocument.SaveAs newDocname
    End Sub

    Word2000 測試ok.
    附加檔案 附加檔案

  5. #5
    嘴炮戰隊隊長 ivantw 的大頭照
    註冊日期
    2002-05-04
    所在地區
    CHT FTTH 100M/20M Static IP
    討論區文章
    4,903
    Leon Chou 兄真是 Office 之神!

    不過建議改一下色字部分,否則可能會產生路徑錯誤。

    最初由 Leon Chou 發表
    寫個巨集試試

    Sub 另存指定頁()
    inputpages = InputBox("輸入要另存的頁碼, 以逗號分隔")
    If inputpages = "" Then Exit Sub

    newDocname = "C:\Temp1.doc"
    Selection.HomeKey Unit:=wdStory
    Set myRange = Selection.Range
    Set myDoc = ActiveDocument
    Documents.Add

    pages = Split(inputpages, ",") '將輸入頁碼轉為陣列
    For Each page In pages
      Set myRange = myRange.GoTo(What:=wdGoToPage, _
        Which:=wdGoToAbsolute, Count:=page)
      pagestart = myRange.Start
      Set myRange = myRange.GoToNext(What:=wdGoToPage)
      pageend = myRange.Previous.Start
      If myRange.Start = pagestart Then _
        pageend = myDoc.Content.End
      myDoc.Range(pagestart, pageend).Copy
      Selection.Paste
    Next

    ActiveDocument.SaveAs newDocname

    Kill "C:\Temp1.doc" ' 刪除暫存檔
    End Sub

    Word2000 測試ok.



  6. #6
    Take it easy~ leonchou 的大頭照
    註冊日期
    2001-05-03
    討論區文章
    3,244
    太抬舉我了~~ (汗)

    不過這兩句倒是令我搞混了:
    ActiveDocument.SaveAs newDocname
    Kill "C:\Temp1.doc" ' 刪除暫存檔

    為什麼是先存再殺,而不是先殺再存呢?
    而且,SaveAS應該會覆蓋不是嗎?
    請教了。

  7. #7
    嘴炮戰隊隊長 ivantw 的大頭照
    註冊日期
    2002-05-04
    所在地區
    CHT FTTH 100M/20M Static IP
    討論區文章
    4,903
    最初由 Leon Chou 發表
    太抬舉我了~~ (汗)

    不過這兩句倒是令我搞混了:
    ActiveDocument.SaveAs newDocname
    Kill "C:\Temp1.doc" ' 刪除暫存檔

    為什麼是先存再殺,而不是先殺再存呢?
    而且,SaveAS應該會覆蓋不是嗎?
    請教了。
    挖哈哈,真抱歉,搞笑話了,我看錯啦..

  8. #8
    -停權中-
    註冊日期
    2002-02-11
    討論區文章
    6
    最初由 Ivan Lin 發表
    挖哈哈,真抱歉,搞笑話了,我看錯啦..
    呵呵 一復出就鬧笑話~
    不過沒什麼變嘛 您還是一樣常常'看錯'呢~

  9. #9
    kerwin
    註冊日期
    2002-03-10
    討論區文章
    17
    Leon Chou大大真神...

類似的主題

  1. 【問題】請問如何自動更改資料夾中所有word文件摘要資訊中的內容?
    作者:billsoho 所在討論版:-- OFFICE 相 關 軟 體 討 論 版
    回覆: 0
    最後發表: 2008-08-15, 08:34 AM
  2. VISTA WORD文件使用FAX列印傳真分頁亂掉
    作者:james610 所在討論版:Windows VISTA 討論版
    回覆: 2
    最後發表: 2007-07-18, 04:57 PM
  3. 【求助】儲存WORD文件時,一直說我空間不足?
    作者:lancer 所在討論版:-- OFFICE 相 關 軟 體 討 論 版
    回覆: 2
    最後發表: 2005-03-05, 03:35 AM
  4. 【求助】請問該如何使用WORD開啟*.sxw檔
    作者:jackpohsu 所在討論版:-- OFFICE 相 關 軟 體 討 論 版
    回覆: 2
    最後發表: 2005-02-21, 05:41 PM
  5. WORD文件中頁碼的問題
    作者:rock4582 所在討論版:-- OFFICE 相 關 軟 體 討 論 版
    回覆: 5
    最後發表: 2003-05-17, 10:29 PM

 

WORD 儲存 部分 頁數

儲存word部分頁數

發表文章規則

  • 不可以發表新主題
  • 不可以回覆文章
  • 不可以上傳附加檔案
  • 不可以編輯自己的文章
  •