Word怎么批量合并单元格

haichuan5121

各位大神好


  小弟有个文本几千行 需要将每行的第三列和第四列合并，求助怎么批量合并；

gwjkkkkk

Option Explicit
Sub test1()
    Dim i&, j&, n&, objTable As Table, strJoin$
   
    Application.ScreenUpdating = False
   
    With ActiveDocument
        For Each objTable In .Tables
            With objTable
                n = .Rows.Count
                For i = 1 To n
                    If .Rows(i).Cells.Count > 4 Then
                        strJoin = ""
                        For j = 3 To 4
                            strJoin = strJoin & vbCr & Left(.Cell(i, j).Range.Text, Len(.Cell(i, j).Range.Text) - 2)
                        Next j
                        With .Cell(i, 3)
                            .Merge .Next
                            .Range.Text = Mid(strJoin, 2)
                        End With
                    End If
                Next i
            End With
        Next
                  
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

.............

minchar

用橡皮擦掉竖格线注就行了吗？？？？？？

xsdyy

先合并几个，然后用格式刷刷即可