如何在Microsoft Word中每个表格单元格的末尾添加公式/文本

Question

我正在处理一个宏，我需要在Microsoft Word的表格中的每个单元格的末尾添加一个公式。我需要知道是否可以在单词的末尾添加文本或空格每个表格单元格。

Answer 1

你可以通过做这样的事情来遍历表格的所有单元格

Sub addStuffToTableCells()
    Dim oTable As Table
    Dim x As Integer
    Dim y As Integer

    For Each oTable In ActiveDocument.Tables
        For x = 1 To oTable.Rows.Count
            For y = 1 To oTable.Columns.Count
                oTable.Cell(x, y).Select
                Selection.Text = "asdasd"
            Next y
        Next x
    Next oTable
End Sub