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

使用VBA逐步选择单词表

1 个答案: