以下是引用allex81在2005-9-13 20:36:11的发言：
就是三个空白行，相当于按三次回车键。 还是没有说清楚，我就做了二个，楼主自己看吧。
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-9-14 06:54:43
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'№ 00020^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub Example1()
Dim MyRange As Range, myDup As ParagraphFormat
With Selection.Paragraphs(1) '光标所在段落或者选定内容中的第一个段落
'定义一个RANGE对象,为所选内容第一个段落的后三个段落结束标记处
Set MyRange = ActiveDocument.Range(.Next(3).Range.End, .Next(3).Range.End)
Set myDup = .Format.Duplicate '取得段落格式
MyRange.InsertAfter Chr(13) '插入一个空白段落
MyRange.ParagraphFormat = myDup '该段落的段落格式同第一个段落
End With
End Sub
'----------------------
Sub Example2()
Dim MyRange As Range, myDup As ParagraphFormat
With Selection.Paragraphs(1)
Set MyRange = .Range '定义一个RANGE对象
Set myDup = .Format.Duplicate '取得该段落格式
MyRange.InsertAfter Chr(13) & Chr(13) & Chr(13) & Chr(13) '在此段落后插入四个空白段落
MyRange.Paragraphs.Last.Range.ParagraphFormat = myDup '最后一个空白段落格式同第一个段落
End With
End Sub
'---------------------- | 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-9-13 16:25
楼主