用VBA实现 word删除特定的行或段 的运行错误问题

本人初学，网络上看到的一段实现删除特征行的vba代码 ，具体如下：

Sub 删除此特征行行()
ftt =inputbox("请输入您的文本","请输入")
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
Do While .Execute(findtext:=ftt)
.Parent.Bookmarks("\line").Range.delete
Loop
End With
End Sub
运行时提醒” 运行错误5623 替换内容含有超出范围的一组数 “，我是菜鸟，找不到原因，求高手指教！

要在word中实现哦

代码没有问题，可能是你在输入指定文本的时候，输入了某些特定字符，比如某些通配符等特殊字符，就有可能引发此类错误的！！

sub delblank() dim i as paragraph, n as long application.screenupdating = false for each i in activedocument.paragraphs if len(i.range) = 1 then i.range.delete n = n + 1 end if next msgbox "共删除空白段落" & n & "个。" application.screenupdating = true end sub 摘自 excelhome