Word VBA 拆分单元格并将数值放到下方

不知道大家有没有这种场景：

公司要求将表格数据放在word中形成报告，而在word中的表格没有计算功能，非常难用，所以我都是先用EXCEl编辑好数据，再粘贴到word中调整表格的大小。

但遇到了一件麻烦的小事情，就是公司有一列的表格要求拆分单元格，并在拆分单元格的上方写上一些标注（如图实例）。这种数据有非常多，每次自己设置拆表格还挺麻烦的

我根据word中自带的录制宏功能，很方便的将拆分单元格的VBA写出来了，但是默认拆分后的数据1 会在拆分上下单元格的上方，而我想让数字默认在拆分单元格的下方。

费了好大的劲，问了讯飞星火、文心一言都不太行（国产的模型对于冷门的知识点真的不太行），最后求助chatGPT，找到了正确的VBA代码，贴在这里给大家学习一下，通过这次的word VBA，让我对word的了解又加深了一步。

Sub 剪切并粘贴到下一个单元格1()
    '将单元格拆分为上下两个单元格
    Selection.Cells.Split NumRows:=2, NumColumns:=1, MergeBeforeSplit:=False
    ' 检查光标是否在表格中
    If Selection.Information(wdWithInTable) = True Then
        ' 获取当前光标所在的表格
        Dim tbl As Table
        Set tbl = Selection.Tables(1)

        ' 获取当前单元格的行和列索引
        Dim rowIndex As Integer
        Dim colIndex As Integer
        rowIndex = Selection.Cells(1).rowIndex
        colIndex = Selection.Cells(1).ColumnIndex

        ' 获取当前单元格中的文本
        Dim cellText As String
        cellText = tbl.Cell(rowIndex, colIndex).Range.Text

        ' 剪切当前单元格中的文本
        tbl.Cell(rowIndex, colIndex).Range.Cut

        ' 粘贴到下一个单元格
        If rowIndex < tbl.Rows.Count Then
            tbl.Cell(rowIndex + 1, colIndex).Range.Text = cellText
        Else
            MsgBox "已到达表格末尾，无法粘贴。"
            Exit Sub
        End If
    Else
        MsgBox "请将光标置于表格内的单元格中。"
    End If
End Sub

附上chatGPT对这段代码的解释：

当你在编写Word VBA时，需要考虑Word文档中的元素，比如段落、表格、文本等。对表格的操作涉及表格对象（Table）、单元格对象（Cell）以及范围对象（Range）。下面是对上面提供的代码的详细解释：

1. Sub 剪切并粘贴到下一个单元格()：这是一个宏，可以在Word中执行以实现所描述的功能。

2. If Selection.Information(wdWithInTable) = True Then：这一行检查光标是否在表格内。Selection对象代表用户在文档中所选的内容。wdWithInTable是Word中的一个常量，指示光标是否在表格内。

3. Dim tbl As Table：声明一个Table类型的变量tbl，用于存储表格对象。

4. Set tbl = Selection.Tables(1)：将Selection中的第一个表格赋给tbl。Selection.Tables(1)返回文档中第一个表格的引用。

5. rowIndex = Selection.Cells(1).RowIndex 和 colIndex = Selection.Cells(1).ColumnIndex：这两行获取当前光标所在单元格的行索引和列索引。

6. cellText = tbl.Cell(rowIndex, colIndex).Range.Text：从当前单元格的Range中获取文本内容。

7. tbl.Cell(rowIndex, colIndex).Range.Cut：将当前单元格中的文本剪切到剪贴板。

8. 如果条件判断：在下面的代码块中，它检查是否可以粘贴到下一个单元格。

   • 如果当前行不是最后一行，将文本设置到下一行的对应单元格。
   • 如果是最后一行，就会显示一条消息框，提示已经到达了表格的末尾。

这段代码主要涉及了在Word文档中定位表格、单元格、范围，以及对文本内容的操作