Word VBA 处理表格

1. 删除Word表格中各单元格开头的换行符

直接使用查找替换 ^l 替换为空，会把紧挨着软回车的图片也给删掉，以及表格内单元格文字中的软回车符号也会被删除。

^{l也可使用}011或^11 但没有好办法来简单替换。

Sub RemoveLeadingSoftReturnPreserveImages()
    Dim tbl As Table
    Dim cel As Cell
    Dim rng As Range

    For Each tbl In ActiveDocument.Tables
        For Each cel In tbl.Range.Cells
            Set rng = cel.Range
            rng.End = rng.End - 1 ' 去掉表格标记

            ' 如果第一个字符是软回车（Chr(11)），则删除它
            If rng.Characters.Count > 1 Then
                If rng.Characters(1).Text = Chr(11) Then
                    rng.Characters(1).Delete
                End If
            End If
        Next cel
    Next tbl

   Debug.Print "已删除单元格开头的软回车！避免图片被替换为/"
End Sub

2. 软回车前有。的替换为硬回车，删除其余的软回车

Sub ConditionalSoftReturnSkipTitle_Optimized()
    '功能：使用Word查找替换 
    Dim tbl As Table
    Dim cel As Cell
    Dim rng As Range
    Dim tblIndex As Integer
    Dim processedCells As Long
    Dim startTime As Double
    
    On Error GoTo ErrorHandler
    
    ' 记录开始时间
    startTime = Timer
    tblIndex = 0
    processedCells = 0
    
    ' 关闭屏幕更新以提高性能
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For Each tbl In ActiveDocument.Tables
        tblIndex = tblIndex + 1
        
        For Each cel In tbl.Range.Cells
            ' 跳过第一个表格的第一行
            If tblIndex = 1 And cel.rowIndex = 1 Then
                GoTo NextCell
            End If
            
            Set rng = cel.Range
            rng.End = rng.End - 1
            
            ' 检查单元格是否为空
            If Len(Trim(rng.Text)) = 0 or Trim(rng.Text)="//" & Chr(13) & Chr(7) or Trim(rng.Text)="/" & Chr(13) & Chr(7) or Len(rng.Text) <=2 Then
                GoTo NextCell
            End If
            
            ' 使用高效的查找替换方法
            Call ProcessCellSoftReturns(rng)
            processedCells = processedCells + 1

NextCell:
        Next cel
    Next tbl

    ' 恢复设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    ' 显示处理结果
    Dim elapsedTime As Double
    elapsedTime = Timer - startTime
    
    MsgBox "优化处理完成！" & vbCrLf & _
           "处理单元格数: " & processedCells & vbCrLf & _
           "耗时: " & Format(elapsedTime, "0.00") & " 秒" & vbCrLf & _
           "平均每单元格: " & Format(elapsedTime / IIf(processedCells > 0, processedCells, 1) * 1000, "0.0") & " 毫秒", _
           vbInformation
    Exit Sub

ErrorHandler:
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "处理过程中发生错误：" & Err.Description, vbCritical
End Sub

' 处理单个单元格的软回车（优化版本的核心函数）
Private Sub ProcessCellSoftReturns(rng As Range)
    '功能：使用Word内置查找替换功能处理软回车
    '参数：rng - 要处理的单元格范围
    
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Wrap = wdFindStop
        .Forward = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        
        ' 第一步：替换"。" + Chr(11) 为 "。" + Chr(13)
        .Text = "。" & Chr(11)
        .Replacement.Text = "。" & Chr(13)
        .Execute Replace:=wdReplaceAll
        
        ' 第二步：删除剩余的Chr(11)
        .Text = Chr(11)
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
    End With
End Sub