使用vba在word中将单元格中的数据和文本保持在同一打印行上

Sub PrintDataAndTextInSameRow()
    Dim tbl As Table
    Dim cell As Cell
    Dim rng As Range
    
    ' 设置要操作的表格
    Set tbl = ActiveDocument.Tables(1)
    
    ' 遍历表格中的每个单元格
    For Each cell In tbl.Range.Cells
        ' 获取单元格的文本和数据
        Set rng = cell.Range
        rng.End = rng.End - 1 ' 去除单元格末尾的换行符
        
        ' 将数据和文本合并到同一行
        rng.Text = rng.Text & " " & cell.Range.Text
        
        ' 清空单元格中的数据
        cell.Range.Text = ""
    Next cell
    
    ' 刷新表格以显示合并后的内容
    tbl.Range.Select
    Selection.Collapse Direction:=wdCollapseEnd
End Sub