想要將一有大量頁數的word檔
當中的幾頁獨立出來存成另一
個檔,請問該怎麼做呢??
感謝回應!
想要將一有大量頁數的word檔
當中的幾頁獨立出來存成另一
個檔,請問該怎麼做呢??
感謝回應!
mark => copy => open new document => paste => save
我知道此法可行,不過要處理很多檔案而且檔案的頁數很多的時候,
這樣的操作就變得很繁瑣,請問是否有較有效率的方法嗎?
寫個巨集試試
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, ",") [color=green]'將輸入頁碼轉為陣列[/color]
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.
Leon Chou 兄真是 Office 之神! :D
不過建議改一下[color=red]紅[/color]色字部分,否則可能會產生路徑錯誤。
[QUOTE][i]最初由 Leon Chou 發表[/i]
[B]寫個巨集試試
Sub 另存指定頁()
inputpages = InputBox("輸入要另存的頁碼, 以逗號分隔")
If inputpages = "" Then Exit Sub
newDocname = [color=red]"C:\Temp1.doc"[/color]
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
Set myDoc = ActiveDocument
Documents.Add
pages = Split(inputpages, ",") [color=green]'將輸入頁碼轉為陣列[/color]
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
[color=red]Kill "C:\Temp1.doc"[/color] [color=green]' 刪除暫存檔[/color]
End Sub
Word2000 測試ok. [/B][/QUOTE]
太抬舉我了~~ (汗)
不過這兩句倒是令我搞混了:
ActiveDocument.SaveAs newDocname
Kill "C:\Temp1.doc" ' 刪除暫存檔
為什麼是先存再殺,而不是先殺再存呢?
而且,SaveAS應該會覆蓋不是嗎?
請教了。
[QUOTE][i]最初由 Leon Chou 發表[/i]
[B]太抬舉我了~~ (汗)
不過這兩句倒是令我搞混了:
ActiveDocument.SaveAs newDocname
Kill "C:\Temp1.doc" ' 刪除暫存檔
為什麼是先存再殺,而不是先殺再存呢?
而且,SaveAS應該會覆蓋不是嗎?
請教了。 [/B][/QUOTE]
挖哈哈,真抱歉,搞笑話了,我看錯啦.. :(
[QUOTE][i]最初由 Ivan Lin 發表[/i]
[B]挖哈哈,真抱歉,搞笑話了,我看錯啦.. :( [/B][/QUOTE]
呵呵 一復出就鬧笑話~:D
不過沒什麼變嘛 您還是一樣常常'看錯'呢~:D
Leon Chou大大真神...