0

Word の大きな表の書式を変更するマクロを作成しようとしています。この情報を探してみましたが、テーブルがあるとすぐに、情報はExcel用です。

だから私が得た状況はこれです、私は6列のテーブルを手に入れました。最初の 2 つの列が選択され、マクロが開始されます。ここで、選択範囲の最初のセルを左上から読み取り、それを使用して操作/計算を行い、操作されたデータを書き戻し、右側のセルに移動したいと思います。データを読み取り、操作し、何かを書き戻してから、Selection の最後までそれを行います。

誰かがコードの骨組みを手伝ってくれますか? それは素晴らしいでしょう！

4

1 に答える 1

0

これは考えられるスケルトンです。既存のテーブルの列 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
于 2013-08-23T18:18:51.283 に答える