麻辣家族討論版版 » Word » WORD自訂義頁碼分割---VBA

返回列表下一主題上一主題發帖

[發問] WORD自訂義頁碼分割---VBA

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-1-15 00:45 | 只看該作者

[發問] WORD自訂義頁碼分割---VBA

有一需求...
例...一個303頁的docx檔案
希望能自訂頁碼需求(1-90,91-158,159-235,236-265,266-299,300-303)
分割為6個docx檔案
請求該 VBA 程式碼該如何?

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

2^#

發表於 2021-2-22 17:41 | 只看該作者

先把你的代碼貼上來

Word呈現極致的靜態之美，Excel展現極致的動態之美。

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

3^#

發表於 2021-2-27 00:33 | 只看該作者

回復 2# linyancheng

不好意思!感謝版主回復

只知網路上將一個word文件按頁數分割為多個文件VBA...

大部分修改控制每隔幾頁分割一次(例如單一一頁分割或是每隔幾頁(例 10頁)...

目前無能自訂頁碼需求VBA代碼(1-90,91-158,159-235,236-265,266-299,300-303)

中學生 Rank: 2

帖子: 47
主題: 19
精華: 0
積分: 82
點名: 0
作業系統: win
軟體版本: xp
閱讀權限: 20
註冊時間: 2014-7-4
最後登錄: 2021-9-4

4^#

發表於 2021-9-1 22:38 | 只看該作者

本帖最後由 ciboybj 於 2021-9-1 22:41 編輯

以下是我直覺想到的方式
看有沒有版上的大神有其他的更好的方式
如果要把一個檔案拆成6個，應該是利用剪下、刪除等方式可以簡單達到

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

複製代碼

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

5^#

發表於 2021-9-2 12:10 | 只看該作者

回復 4# ciboybj

非常感謝 ciboybj 提供的程式碼...
經實測之後可依程式碼自訂頁碼複製...貼上...另存新檔
或許是來源檔案格式問題，所產生之檔案格式非原本檔案頁次
再度感謝 ciboybj 提供之方式 ^^

中學生 Rank: 2

帖子: 37
主題: 15
精華: 0
積分: 58
點名: 0
作業系統: WIN XP＆WIN 7 PRO
軟體版本: OFFICE 2003＆AUTOCAD 2008
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-5-2
最後登錄: 2024-3-15

6^#

發表於 2024-3-4 07:18 | 只看該作者

以下是我直覺想到的方式
看有沒有版上的大神有其他的更好的方式
如果要把一個檔案拆成6個，應該是利用剪下 ...
ciboybj 發表於 2021-9-1 22:38

測試了一下，還OK
滿好用的，謝謝你的分享！

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

7^#

發表於 2024-3-6 03:36 | 只看該作者

回復 6# ianlcc

謝謝您...共同分享實用之處

靜思自在 : 人事的艱難與琢磨，就是一種考驗。

返回列表下一主題上一主題