[请问]如何按照分节符将一个文档另存为多个文档

请问如何按照分节符将一个文档另存为多个文档 mvfKvuj7.rar (2.66 KB)

[此贴子已经被作者于2007-11-18 13:13:50编辑过]

在大纲模式下，将节适当处理一下，创建子文档，保存即得。

果然，谢谢！

问题已解决。

能不能用宏实现？以（分节符-下一页）为单位？

Sub test()
   Dim mySec As Section, i As Long, myDoc As Document, SourceDoc As Document
   Set SourceDoc = ActiveDocument
   For Each mySec In SourceDoc.Sections
      If mySec.PageSetup.SectionStart = wdSectionNewPage And mySec.Index > 1 Then
         Set myDoc = Application.Documents.Add
         myDoc.Content.FormattedText = SourceDoc.Range(i, mySec.Range.Start - 1)
         myDoc.Content.Sections.Last.PageSetup.SectionStart = _
                  SourceDoc.Range(i, mySec.Range.Start - 1).Sections.Last.PageSetup.SectionStart
         i = mySec.Range.Start
      End If
      If mySec.Index = SourceDoc.Sections.Count Then
         Set myDoc = Application.Documents.Add
         myDoc.Content.FormattedText = SourceDoc.Range(i, SourceDoc.Content.End)
         myDoc.Content.Sections.Last.PageSetup.SectionStart = _
                  SourceDoc.Range(i, SourceDoc.Content.End).Sections.Last.PageSetup.SectionStart
      End If
  
   Next
End Sub

谢谢chylhr

四楼！高手！

四楼的方法真是好！学习了，多谢！

代码很好！！
怎样自动保存？自动命名？