如何根据分页符拆分文档

sxhus

一文档内包含多篇小文章,每篇小文章之间用分页符分开
如何拆分成一个一个文档,每个文档名称为小文章的第一非空段内容

tomb88

我也遇到这个问题，论文要分别标页码，求高人指点！！！

lovemy123

试试插入分隔符——分节——连续，应该可以实现呀

kqbt

这个问题其实论坛里面早已有了，搜索一下应该能找到。
这里面需要考虑：校验文件名的有效性、存在同名文件是否覆盖等等问题，感觉如果要考虑尽量周全，还是比较伤脑筋的。

sxhus

lovemy123 发表于 2011-11-4 23:19
试试插入分隔符——分节——连续，应该可以实现呀

对于大量内容的,手工太麻烦了!

sxhus

kqbt 发表于 2011-11-5 09:43
这个问题其实论坛里面早已有了，搜索一下应该能找到。
这里面需要考虑：校验文件名的有效性、存在同名文件 ...

可否给(根据分页符拆分文档拆分成一个一个文档),文件名我自己考虑

kqbt

sxhus 发表于 2011-11-5 10:33
可否给(根据分页符拆分文档拆分成一个一个文档),文件名我自己考虑

根据分页符拆分应该不难：

1. Sub CFBYFJF()
   
2.   'by Word爱好者Q群[5090217]
   
3.   Dim tempDoc As Document
   
4.   Dim wRng As Range
   
5.   Dim tempPar As Paragraph
   
6.   Dim tempStr As String
   
7.   Set wRng = ThisDocument.Content
   
8.   With wRng.Find
   
9.     .ClearFormatting
   
10.     .Replacement.ClearFormatting
    
11.     Do While wRng.Start <> ThisDocument.Content.End - 1
    
12.       If .Execute(findtext:="*^m", MatchWildcards:=True) Then
    
13.         Range(wRng.Start, wRng.End - 1).Copy
    
14.       Else
    
15.         wRng.Copy
    
16.       End If
    
17.       Set tempDoc = Documents.Add(Visible:=False)
    
18.       tempDoc.Content.Paste
    
19.       tempDoc.SaveAs ThisDocument.Path & Application.PathSeparator & 文件名 & ".doc"
    
20.       tempDoc.Close True
    
21.       wRng.SetRange wRng.End, ThisDocument.Content.End
    
22.     Loop
    
23.   End With
    
24.   Set RegExp = Nothing
    
25. End Sub

复制代码

sxhus

测试成功!

多谢 kqbt !

我的word_vba也不长进,word_vba实用资料也不多,不像excel_vba好学

小学没毕业

版主，麻烦能否对代码做一下注释，谢谢

zhyuanqung

kqbt 发表于 2011-11-5 12:43
根据分页符拆分应该不难：

斑竹，请教一下问题，我把代码放到word宏里面，显示Range没有定义，我想知道怎么修改？非常感谢！！！