删除表格单元格手动换行符之前的内容

honey_bee

最高转速   Max Speed

额定电压   Rated voltage

额定电流   Rated current

额定频率   Rated Frequency

如上图所示，表格中不一定只有两行，需要删除中英文对照中的中文（黑色文字），中文段落都是以^1结尾，英文段落是以^13结尾的，表格中第一行中文没有查找并删除掉。

如何选择合适的查找条件？VBA也行（但好像出了问题不能撤销操作）。

honey_bee

honey_bee

补充图片。

batmanbbs

就是保留字母呗，选中要处理的区域，查找替换（如下图），小写z后面有一个空格

honey_bee

不是，就是手动换行符那一行都要删除，不管有没有字母数字

vbee

查找替换[!A-Za-z]@^l

gwjkkkkk

Option Explicit
Sub test()
    Dim ar(), i&, r&
   
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "^l"
        .Forward = True
        .MatchWildcards = True
        Do While .Execute
            .Parent.Select
            With Selection
                .Collapse 0
                .MoveUp unit:=wdLine, Extend:=wdExtend
                r = r + 1
                ReDim Preserve ar(1 To r)
                Set ar(r) = .Range
            End With
        Loop
    End With
    For i = 1 To UBound(ar)
         ar(i).Delete
    Next i
End Sub

honey_bee

gwjkkkkk  2023-11-8 20:33
Option Explicit
Sub test()
    Dim ar(), i&, r&

лл