批量分割Word文档

最新推荐文章于 2024-08-09 12:17:10 发布

leelong80

最新推荐文章于 2024-08-09 12:17:10 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

文章标签：文档 c

本文链接：https://blog.youkuaiyun.com/leelong80/article/details/5683287

此VBA宏用于批量拆分Word文档中的每个节，将每个节内容保存为独立的文档。它遍历文档的每一节，复制内容，创建新文档并粘贴，删除可能的分页符，然后保存并关闭新文档。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >



Sub BreakOnSection()

   ' Used to set criteria for moving through the document by section.

   Application.Browser.Target = wdBrowseSection



   'A mailmerge documents ends with a section break next page.

   'Subtracting one from the section count stop error message.

   For i = 1 To ((ActiveDocument.Sections.Count) - 1)

   

      'Select and copy the section text to the clipboard

      ActiveDocument.Bookmarks("/Section").Range.Copy



      'Create a new document to paste text from clipboard.

      Documents.Add

      Selection.Paste



   ' Removes the break that is copied at the end of the section, if any.

      Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend

      Selection.Delete Unit:=wdCharacter, Count:=1

ChangeFileOpenDirectory "C:/"

      DocNum = DocNum + 1

     ActiveDocument.SaveAs FileName:=DocNum & ".doc"

     ActiveDocument.Close

      ' Move the selection to the next section in the document

     Application.Browser.Next

   Next i

   ActiveDocument.Close savechanges:=wdDoNotSaveChanges

End Sub