超急，请教大家！

生活的乐趣

一段很长的文字，如何可以用VBA按每10个字分一段，谢谢大家！

守柔

再急你也得把话说完嘛！

自身有没有段落？要不要保留？

标点符号有无规定？算不算？

生活的乐趣

自身段落不保留，标点符号算一个字。谢谢版主！

生活的乐趣

加点要求，在段落的前面加上时间

[00:00.00]在在在大在在在大在在

[00:05.00]在在在大在在在大在在

[00:10.00]在在在大在在在大在在

。。。。。。。。。。。。。。。

当到[01:00.00]时下一段的时间变成[00:00.00]

谢谢版主。

守柔

请参此贴：

Sub CreateLine() Dim i As Long, n As Integer On Error Resume Next Application.ScreenUpdating = False With ActiveDocument .Content.Find.Execute FindText:="^p", ReplaceWith:="", Replace:=wdReplaceAll For i = 0 To .Content.End Step 10 .Range(i, i + 10 + n).InsertAfter Chr(13) n = n + 1 Next End With Application.ScreenUpdating = True End Sub

守柔

以下是引用生活的乐趣在2004-9-3 10:47:00的发言：

加点要求，在段落的前面加上时间

[00:00.00]在在在大在在在大在在

[00:05.00]在在在大在在在大在在

[00:10.00]在在在大在在在大在在

。。。。。。。。。。。。。。。

当到[01:00.00]时下一段的时间变成[00:00.00]

谢谢版主。

怎么不早说，好家伙，大换气！

守柔

上面一段宏运行结束后再运行以下宏：

Sub InsertTime() Dim i As Paragraph, n As Integer, TimeStr As String On Error Resume Next Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If n < 10 Then TimeStr = "[00:0" & n & ".00]" ElseIf n = 60 Then TimeStr = "[01:00.00]" n = 0 Else TimeStr = "[00:" & n & ".00]" End If i.Range.InsertBefore TimeStr n = n + 5 Next Application.ScreenUpdating = True End Sub ‘也可以两段加起来中间用模块名如：

Sub CreateLine() Dim i As Long, n As Integer On Error Resume Next Application.ScreenUpdating = False With ActiveDocument .Content.Find.Execute FindText:="^p", ReplaceWith:="", Replace:=wdReplaceAll For i = 0 To .Content.End Step 10 .Range(i, i + 10 + n).InsertAfter Chr(13) n = n + 1 Next End With Application.ScreenUpdating = True InsertTime End Sub Sub InsertTime() Dim i As Paragraph, n As Integer, TimeStr As String On Error Resume Next Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If n < 10 Then TimeStr = "[00:0" & n & ".00]" ElseIf n = 60 Then TimeStr = "[01:00.00]" n = 0 Else TimeStr = "[00:" & n & ".00]" End If i.Range.InsertBefore TimeStr n = n + 5 Next Application.ScreenUpdating = True End Sub

生活的乐趣

OK,十分感谢，帮了大忙。