vba - 使用 VBA 逐步完成单词表选择

Question

我一直在尝试编写一个宏来为我更改 Word 中大表格中的一些格式。我试图找到这些信息，但只要有表格，这些信息就是用于 excel 的。

所以我得到的情况是这样的，我得到了一个有 6 列的表。前两列将被选中，宏启动。现在我希望它从左上角读取选择的第一个单元格，然后我对其进行一些操作/计算，然后我想写回操作后的数据，移动到右侧的单元格，读取数据，操作它，写回一些东西，然后这样做直到选择结束。

有人可以帮我写一个代码骨架吗？那将是真棒！

Answer 1

这是一个可能的骨架，它遍历预先存在的表的第 1 列和第 2 列。

Sub TestTable()

Dim wordApp As Word.Application
Dim docDocument As Word.Document
Dim tblTable As Word.Table
Dim c As Word.Cell
Dim sString As String
Dim iColumnNumber As Integer

Set wordApp = CreateObject("Word.Application")
Set docDocument = wordApp.Documents.Open("<location of your document e.g. C:\MyDoc.doc>")
Set tblTable = docDocument.Tables(1)

For iColumnNumber = 1 To 2
    For Each c In tblTable.Columns(1).Cells
        sString = c.Range.Text
        'Do something
    Next c
Next iColumnNumber

'wordApp.Visible = True

Set tblTable = Nothing
Set docDocument = Nothing
Set wordApp = Nothing

End Sub