WORD中选中某段落，自动另起一行插入固定的一句话

旧城遗梦

如题：在WORD中选中某段落（可能是一个段落或者多个段落），然后自动另起一段插入固定的一句话。
小弟为了写标书的逐项应答方便点，想弄个VBA试试。就是招标文件的所有内容，每个有效内容都需要另起一段写上"应答：满足。我方满足上述招标要求。"这句话。

问题来了：
1.当只选中一个段落的时候，无法执行命令，没有任何反应；
2.选中多个段的时候，如果选中段落的最后一个的下一个是个标题行，那么选中的最后一段生成的那个文字"应答：满足。我方满足上述招标要求。"会带有下一个标题行的格式（就是层级啊等等）。


求各位大佬给改进下，或者重新给写个合适的也行。

1. Sub 点对点应答()
   
2. 
   
3. If Selection.Type = wdSelectionIP Then MsgBox "请鼠标选择！": Exit Sub
   
4.     Dim w
   
5.         w = "应答：满足。我方满足上述招标要求。"
   
6.     Set p = Selection.Range: Set r = p.Duplicate
   
7.     With p.Find
   
8.             MsgBox "这里错了！"
   
9.             Do While .Execute("(*)^13(*)", , , 1)
   
10.             If Not p.InRange(r) Then Exit Do
    
11.             With p
    
12.                 .InsertAfter w & vbCr
    
13.                 .Paragraphs(2).Range.ListFormat.RemoveNumbers
    
14.                 .Start = .End
    
15.             End With
    
16.         Loop
    
17.     End With
    
18.     Selection.Find.ClearFormatting
    
19.     Selection.Find.Replacement.ClearFormatting
    
20.     Selection.Find.Replacement.Font.Bold = True
    
21.     With Selection.Find.Replacement.ParagraphFormat
    
22.         .SpaceBeforeAuto = False
    
23.         .SpaceAfterAuto = False
    
24.         .FirstLineIndent = CentimetersToPoints(0.74)
    
25.         .CharacterUnitFirstLineIndent = 2
    
26.         .WordWrap = True
    
27.     End With
    
28.     With Selection.Find
    
29.         .Text = "应答：满足。我方满足上述招标要求。"
    
30.         .Replacement.Text = "应答：满足。我方满足上述招标要求。"
    
31.         .Forward = True
    
32.         .Wrap = wdFindContinue
    
33.         .Format = True
    
34.         .MatchCase = False
    
35.         .MatchWholeWord = False
    
36.         .MatchByte = True
    
37.         .MatchWildcards = False
    
38.         .MatchSoundsLike = False
    
39.         .MatchAllWordForms = False
    
40.     End With
    
41.     Selection.Find.Execute Replace:=wdReplaceAll
    
42. End Sub

复制代码

sylun

是这个意思吗？

1. Sub test()
   
2.     With Selection
   
3.         If .Type = wdSelectionIP Then MsgBox "请鼠标选择！": Exit Sub
   
4.         .Expand wdParagraph
   
5.         .SetRange .End - 1, .End - 1
   
6.         .InsertAfter vbCrLf & "应答：满足。我方满足上述招标要求。"
   
7.         .Start = .Start + 1
   
8.     End With
   
9. End Sub
   

复制代码

前进者

学了一招，标记一下，以备后续使用！