Word一問, 請進

提示: 作者被禁止或刪除 內容自動屏蔽

以下的VBA幫到你

  1. Sub BreakOnPage()

  2.    Application.Browser.Target = wdBrowsePage
  3.    Selection.HomeKey Unit:=wdStory
  4.    DocNum = 0

  5.    For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
  6.       
  7.       ActiveDocument.Bookmarks("\page").Range.Copy

  8.       Documents.Add
  9.       Selection.Paste
  10.       Selection.TypeBackspace
  11.       
  12.       ChangeFileOpenDirectory "R:" '在雙引號內指定儲存的路徑
  13.       DocNum = DocNum + 1
  14.       ActiveDocument.SaveAs FileName:="Page_" & DocNum & ".doc"
  15.       ActiveDocument.Close

  16.       Application.Browser.Next
  17.    Next i

  18. End Sub
複製代碼

TOP

提示: 作者被禁止或刪除 內容自動屏蔽

TOP

提示: 作者被禁止或刪除 內容自動屏蔽

TOP

會唔會圖文並茂咁出唔到?

TOP

看看這篇 Word 2010 的 VBA 快速入門

https://msdn.microsoft.com/zh-tw ... 9(v=office.14).aspx

TOP