使用word删除指定行

Word中删除含有"-->"的行时 ，

word2010中：点击“视图”--“宏”--“查看宏”，在“宏名”栏中输入一个英文名称，然后点击“创建”即可打开VBA编辑器

低版本：工具-〉宏-〉Visual Basic编辑器-〉双击The Document，

输入以下代码：

Sub op1()
Dim a As Paragraph
For Each a In ActiveDocument.Paragraphs
    If InStr(a, "-->") Then
        a.Range.Delete
    End If
Next
End Sub
使用变量：
Sub op1()
Dim a As Paragraph, n As Integer
n = 1
For Each a In ActiveDocument.Paragraphs
    If InStr(a, n) Then
        a.Range.Delete
        n = n + 1
    End If
Next
End Sub
然后运行，就可以了