使用 VBA 逐步完成单词表选择答案

【问题标题】：Step through a word table selection with VBA使用 VBA 逐步完成单词表选择
【发布时间】：2016-11-22 05:32:19
【问题描述】：

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

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

有人可以帮助我编写代码框架吗？那太棒了！

【问题讨论】：

标签： vba ms-word

【解决方案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

【讨论】：