WORD自訂義頁碼分割---VBA
有一需求...例...一個303頁的docx檔案
希望能自訂頁碼需求(1-90,91-158,159-235,236-265,266-299,300-303)
分割為6個docx檔案
請求該 VBA 程式碼該如何? 先把你的代碼貼上來 [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=114510&ptid=22991]2#[/url] [i]linyancheng[/i] [/b]
不好意思!感謝版主回復
只知網路上將一個word文件按頁數分割為多個文件VBA...
大部分修改控制每隔幾頁分割一次(例如單一一頁分割或是每隔幾頁(例 10頁)...
目前無能自訂頁碼需求VBA代碼(1-90,91-158,159-235,236-265,266-299,300-303) [i=s] 本帖最後由 ciboybj 於 2021-9-1 22:41 編輯 [/i]
以下是我直覺想到的方式
看有沒有版上的大神有其他的更好的方式
如果要把一個檔案拆成6個,應該是利用剪下、刪除等方式可以簡單達到[code]Sub test()
'到指定頁數,設定書籤
Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
ActiveDocument.Bookmarks.Add name:="p1"
Selection.GoTo wdGoToPage, wdGoToAbsolute, 90
ActiveDocument.Bookmarks.Add name:="p90"
'利用書籤,設定範圍、選取範圍、複製範圍內容
Dim orng As Range
Set orng = ActiveDocument.Range
orng.Start = orng.Bookmarks("p1").Range.End
orng.End = orng.Bookmarks("p90").Range.Start
orng.Select
orng.Copy
'建立新檔案,將複製的範圍內容貼入至新檔案中,新檔案另存指定名稱
Dim docNew As Document
Set docNew = Documents.Add
With docNew
.Content.Paste
.SaveAs FileName:="Sample.doc"
End With
End Sub[/code] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=116724&ptid=22991]4#[/url] [i]ciboybj[/i] [/b]
非常感謝 ciboybj 提供的程式碼...
經實測之後可依程式碼自訂頁碼複製...貼上...另存新檔
或許是來源檔案格式問題,所產生之檔案格式非原本檔案頁次
再度感謝 ciboybj 提供之方式 ^^ [quote]以下是我直覺想到的方式
看有沒有版上的大神有其他的更好的方式
如果要把一個檔案拆成6個,應該是利用剪下 ...
[size=2][color=#999999]ciboybj 發表於 2021-9-1 22:38[/color] [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=116724&ptid=22991][img]http://forum.twbts.com/images/common/back.gif[/img][/url][/size][/quote]
測試了一下,還OK
滿好用的,謝謝你的分享! [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=123113&ptid=22991]6#[/url] [i]ianlcc[/i] [/b]
謝謝您...共同分享實用之處
頁:
[1]