Sub haifeistar()
Selection.HomeKey wdStory
Do While Selection.Range.End <> ActiveDocument.Content.End - 1
Selection.MoveDown
Selection.MoveDown wdLine, 3, True
Selection.Delete
Loop
End Sub
或者
Sub haifeistar()
Selection.HomeKey wdStory
Do
Selection.MoveDown
Selection.MoveDown wdLine, 3, True
Selection.Delete
Loop Until Selection.Range.End = ActiveDocument.Content.End - 1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024