vba - VBA を使用して MS Word で表を作成する

Question

MS Word で表を作成するためのコードは何ですか?

マクロの記録機能を使用して、それがどのように記述されているかを確認しましたが、これを解釈する方法がわかりません。

マクロの記録中にテーブルを描画できませんか? 「テーブルの描画」機能をグレーアウトします。

テーブル内にいくつかのセルが結合されたタルベを作成する必要があります。テーブルを描画してマクロを使用して記録できれば簡単ですが、それができないようです...

draw 関数を使用してフォロー テーブルを描画しましたが、記録できません。

ヘルプ？！

Answer 1

これで始められるはずです。

Sub Tester()


    Dim x, w, c

    ThisDocument.Tables(1).Delete

    ThisDocument.Tables.Add Range:=Selection.Range, NumRows:=7, NumColumns:=1, _
                          DefaultTableBehavior:=wdWord9TableBehavior, _
                          AutoFitBehavior:=wdAutoFitFixed

    With ThisDocument.Tables(1)

        .Rows.Height = 70
        w = .Rows(1).Cells(1).Width

        .Rows(1).Cells(1).Split 1, 7
        .Rows(1).Cells(1).Width = w / 2
        For x = 2 To 7
            .Rows(1).Cells(x).Width = (w / 2) / 6
        Next x

        .Rows(5).Height = 15
        .Rows(7).Height = 15

        .Rows(7).Cells(1).Split 1, 7

        .Rows(6).Cells(1).Split 1, 4
        .Rows(6).Cells(2).Split 2, 1

        'Once you merge cells it gets difficult to use .Rows, but
        '  you can still address individual cells. Use the loop below to
        '  find out which one you need to operate on...
        x = 1
        For Each c In .Range.Cells
            c.Range.Text = x
            x = x + 1
        Next c

        .Range.Cells(16).Split 1, 4
        'you can figure out setting the exact required widths...
    End With
End Sub

Answer 2

テーブルを作成するための基本的なコマンドは

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= 3

セルを分割/マージするには:

Selection.Cells.Split NumRows:=1, NumColumns:=2
Selection.Cells.Merge

Answer 3

テーブルを作成し、オートテキストとして保存できます (テーブルを選択 - ALT + F3 - オートテキストの名前)。次に、ドキュメントでテーブルが必要な場合は、テーブルに付けた名前を入力して F3 を押します。