返回列表 上一主題 發帖

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

ciboybj

帖子
47 
主題
19 
精華
0 
積分
82 
點名
0  
作業系統
win  
軟體版本
xp 
閱讀權限
20 
註冊時間
2014-7-4 
最後登錄
2021-9-4 
1# 跳轉到 »
發表於 2021-9-1 22:38 | 顯示全部帖子
本帖最後由 ciboybj 於 2021-9-1 22:41 編輯

以下是我直覺想到的方式
看有沒有版上的大神有其他的更好的方式
如果要把一個檔案拆成6個，應該是利用剪下、刪除等方式可以簡單達到
  1. Sub test()
  2.     '到指定頁數，設定書籤
  3.         Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
  4.         ActiveDocument.Bookmarks.Add name:="p1"
  5.         Selection.GoTo wdGoToPage, wdGoToAbsolute, 90
  6.         ActiveDocument.Bookmarks.Add name:="p90"
  7.    
  8.     '利用書籤，設定範圍、選取範圍、複製範圍內容
  9.         Dim orng As Range
  10.         Set orng = ActiveDocument.Range
  11.         orng.Start = orng.Bookmarks("p1").Range.End
  12.         orng.End = orng.Bookmarks("p90").Range.Start
  13.         orng.Select
  14.         orng.Copy
  15.    
  16.     '建立新檔案，將複製的範圍內容貼入至新檔案中，新檔案另存指定名稱
  17.         Dim docNew As Document
  18.         Set docNew = Documents.Add
  19.         With docNew
  20.             .Content.Paste
  21.             .SaveAs FileName:="Sample.doc"
  22.         End With
  23. End Sub
複製代碼

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題