如何按规律增加硬回车

ysw2

俺有一个4M多的word文档，要求每隔10行就加一个硬回车，如用手工，工作量太大，而且常有这种文档。
俺想请教一下高手，如何让这个文档 自动的 每隔10行就加一个硬回车？？
多谢！！:

3m-cat

不好弄

konggs

能上传一份这样标准的文档的话。

帮你做一个宏。以后一劳永逸。

但前提是你要认真的配合。

c81

我不会宏.

我只会在一定区域内加个回车

Sub a()
Dim myRange As Range
Set myRange = ActiveDocument.Range(Start:=0, End:=10)
myRange.InsertParagraphAfter

End Sub

有人能提个醒吗？

[此贴子已经被作者于2006-8-23 0:56:17编辑过]

如意

QUOTE:

以下是引用ysw2在2006-8-22 14:11:53的发言：
俺有一个4M多的word文档，要求每隔10行就加一个硬回车，如用手工，工作量太大，而且常有这种文档。
俺想请教一下高手，如何让这个文档 自动的 每隔10行就加一个硬回车？？
多谢！！:

楼主最好发个附件上来，让大家看看你说的这10行是什么样的10行，若是如下这样的10行

第1行每隔10行就加一个硬回车

第2行每隔10行就加一个硬回车

第3行每隔10行就加一个硬回车

第4行每隔10行就加一个硬回车

第5行每隔10行就加一个硬回车

第6行每隔10行就加一个硬回车

第7行每隔10行就加一个硬回车

第8行每隔10行就加一个硬回车

第9行每隔10行就加一个硬回车

第10行每隔10行就加一个硬回车

第11行每隔10行就加一个硬回车

第12行每隔10行就加一个硬回车

第13行每隔10行就加一个硬回车

第14行每隔10行就加一个硬回车

第15行每隔10行就加一个硬回车

此类东东就很好做，查找替换就行，查找：*^13*^13*^13*^13*^13*^13*^13*^13*^13*^13

                                                        替换为：^&^13

　　　　　　　　　　　　　　　　　　　　(钩选通配符)

若是10行连续的文本，那就不那么好做了。所以楼主最好上传附件，大家才好根据实际情况教你方面。

ysw2

不好意思没说明白，是这样子：
有一段文字，共110行，俺想分别在原第10行，第20行，第30行，第40行，第50行，第60行，第70行，第80行，第90行，第100行的位置上插入（增加）一个硬回车，也就是空一行。如何让这个文档 自动的 每隔10行就加一个硬回车？？

ysw2

另需说明的是：不管该文本多长，均要求在.原.文本的第10、20、30……行（每隔10行，或每隔n行）插入一个硬回车 jXTXU5vy.rar (6.02 KB, 下载次数: 8)

2006-8-23 09:11 上传

点击文件名下载附件
如何按规律增加硬回车

[此贴子已经被作者于2006-8-23 9:32:04编辑过]

守柔

按如意版主的方法即可。

强烈提醒楼主注意行与段落的区别，如果是行，则需要使用VBA！

ysw2

说的是，说的是。

俺所谓的行都是带换行符的行，也就是一个以硬回车结束的行。是不是应说成“段落”