如何用VBA去掉表格上的那一行字和其后的换行符？

ssq1109

我想把附件文档中表格上的那一行字和其后的换行符都去掉，用下面的宏第2句仅能去掉字，不能去掉其后的换行符，用第1句又没作用。如何解决？
Sub test()
    Set myRange = ActiveDocument.Content
     myRange.Find.Execute FindText:="测试^p", replacewith:="", Replace:=wdReplaceAll
   '  myRange.Find.Execute FindText:="测试", replacewith:="", Replace:=wdReplaceAll
End Sub

413191246se

楼主，表格没有文字环绕，所以，第一段就是第一段，第末段就是第末段，删除即可。
Sub test1()
    With ActiveDocument.Paragraphs
        .First.Range.Delete
        .Last.Range.Delete
    End With
End Sub

ssq1109

谢谢楼上的回答！也许我没说明，不一定是第一段。我写了一个，可以达到目的。
Sub test1()
'
Dim myRange As Range
    Set myRange = ActiveDocument.Content
    With myRange.Find
        .ClearFormatting
        .Text = "测试^p"
        If .Execute = True Then
           myRange.Select
           Selection.Delete
        End If
    End With
End Sub

duquancai

ssq1109 发表于 2019-5-16 15:02
谢谢楼上的回答！也许我没说明，不一定是第一段。我写了一个，可以达到目的。
Sub test1()
'

一个小小的vba

1. Sub main()
   
2.     Dim p As Range
   
3.     Set p = ActiveDocument.Tables(1).Range.Previous
   
4.     If Not p Is Nothing Then p.Paragraphs(1).Range.Text = Empty
   
5. End Sub

复制代码